#!/bin/perl  

#graph abs3 {
#size ="10,7";
#UNEMPLOYMENT--EMPLOYMENT;
#UNEMPLOYMENT--LABOUR;
#REDUNDANCY--LABOUR;
#}


my $ns = "http://ilrt.org/discovery/2001/07/regard#";

my $infilen=$ARGV[0];
open (IN,$infilen);


print "\n<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";

print "<rdf:RDF
 xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"
 xmlns:rdfs=\"http://www.w3.org/2000/01/rdf-schema#\" 
 xmlns:regard=\"http://ilrt.org/discovery/2001/07/regard#\"
>";


 
while(<IN>){
 
	if(/(^.*)--(.*);/){

	print "\n\n<regard:Node rdf:about=\"".$ns.$1."\">";
	print "\n\t<rdfs:value>$1</rdfs:value>";
	print "\n\t<regard:isRelatedTo rdf:resource=\"".$ns.$2."\" />";
	print "\n</regard:Node>";

	print "\n\n<regard:Node rdf:about=\"".$ns.$2."\">";
	print "\n\t<rdfs:value>$2</rdfs:value>";
	print "\n\t<regard:isRelatedTo rdf:resource=\"".$ns.$1."\" />";
	print "\n</regard:Node>";
	
	}

 
}            

print "\n</rdf:RDF>\n\n";

close(IN);