#!/usr/bin/perl -w

#ce programme transformes le thésaurus du B&g en un format OWL
#todo : SKOS compliant en cours
#todo : mettre les differents axes du GTAA en arguments
#todo : les gerer comme des tableaux, pour virer les doublons

$subject = $ARGV[0];
$genre = $ARGV[1];
$locaties = $ARGV[2];
$makers = $ARGV[3];
$namen = $ARGV[4];
$persoon = $ARGV[5];
$premier = "oui";
@temp = ();
@contentBT=@contentNT=@contentRT=@broaderSujetCourant=();

print"<?xml version=\"1.0\" encoding=\"iso-8859-1\" ?>\n";
print "<!DOCTYPE rdf:RDF [
  	<!ENTITY gtaa \"http://www.beeldengeluid.nl/Thesaurus\#\">
	]>\n";
print "<rdf:RDF
    xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns\#\"
    xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\#\"
    xmlns:rdfs=\"http://www.w3.org/2000/01/rdf-schema\#\"
    xmlns=\"http://www.beeldengeluid.nl/Thesaurus\#\"
    xmlns:owl=\"http://www.w3.org/2002/07/owl\#\"
    xmlns:daml=\"http://www.daml.org/2001/03/daml+oil\#\"
    xmlns:skos=\"http://www.w3.org/2004/02/skos/core\#\"
    xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
  xml:base=\"http://www.beeldengeluid.nl/Thesaurus\">\n";

  
my $sujetCourant;
my %memberOf =();

open(SUBJECT, "< $subject") or die "Can't open $subject : $!";
while($ligne = <SUBJECT>)
{
	push (@lines, $ligne);
}
close FILE;

for ($i=0; $i<scalar@lines; $i++) 
{
	warn "ligne: $lines[$i]";
	chomp $lines[$i];
	$lines[$i]=~s/\"//g;
	$lines[$i]=~s/\'//g;
	$lines[$i]=~s/\&/\_en\_/g;
	$lines[$i]=~s/%/_procent_/g;
	$ligne=~s/\}/_/g;
	#$ligne=~s/\s/_/g;
	if($lines[$i]=~/^([a-z]+)/ || $lines[$i]=~/^([A-Z]{1}[a-z]+)/ || $lines[$i]=~/^([A-Z]{3})/|| $lines[$i]=~/^([A-Z]{4})/|| $lines[$i]=~/^(IQ)/)
        {
		if($premier eq "oui")
		{
			warn "premier";
			$j=$i+1;
			if($lines[$j]=~m/US/)#s'il s'agit d'un descripteur: s'il n'est pas suivi d'une ligne avec US
			{}
			else
			{
			#chomp $lines[$i];
			$lines[$i]=~s/\s/_/g;
			print "<Subject rdf:about=\"\&gtaa\;$lines[$i]\">\n";
			#print "<rdf:type resource=\"\http://www\.beeldengeluid\.nl/Thesaurus\#Descriptor\"/>\n";
			print "<skos:prefLabel>$lines[$i]</skos:prefLabel>\n";
			$premier = "non";
			$sujetCourant = $lines[$i];
			}	
		}
		else
		{
			$j=$i+1;
			if($lines[$j]=~m/US/)#s'il s'agit d'un descripteur: s'il n'est pas suivi d'une ligne avec US
			{}
			else
			{	
			chomp $lines[$i];
			$lines[$i]=~s/\s/_/g;
			print "</Subject>\n";
				if (@broaderSujetCourant)
				{
					for $bsc (0 .. $#broaderSujetCourant)
						{
							print"<Subject rdf:about=\"\&gtaa\;";
							for $bt (3 .. $#{$broaderSujetCourant[$bsc]})
							{
								print "$broaderSujetCourant[$bsc][$bt]_";
							}
							print"\">\n";
							#print "<rdf:type resource=\"\http://www\.beeldengeluid\.nl/Thesaurus\#Descriptor\"/>\n";
							print "<skos:prefLabel>";
							for $bt (3 .. $#{$broaderSujetCourant[$bsc]})
								{
								print "$broaderSujetCourant[$bsc][$bt]_";
								}
							print "</skos:prefLabel>\n";
							print "</Subject>\n";	
						}										
				}
			if (@narrowerSujetCourant)
			{
					for $nsc (0 .. $#narrowerSujetCourant)
						{
							print"<Subject rdf:about=\"\&gtaa\;";
							for $nt (3 .. $#{$narrowerSujetCourant[$nsc]})
							{
								print "$narrowerSujetCourant[$nsc][$nt]_";
							}
							print"\">\n";
							#print "<rdf:type resource=\"\http://www\.beeldengeluid\.nl/Thesaurus\#Descriptor\"/>\n";
							print "<skos:prefLabel>";
							for $nt (3 .. $#{$narrowerSujetCourant[$nsc]})
								{
								print "$narrowerSujetCourant[$nsc][$nt]_";
								}
							print "</skos:prefLabel>\n";
							print "</Subject>\n";	
						}										
				}
			if (@relatedSujetCourant)
			{
						for $rsc (0 .. $#relatedSujetCourant)
						{
							print"<Subject rdf:about=\"\&gtaa\;";
							for $rt (3 .. $#{$relatedSujetCourant[$rsc]})
							{
								print "$relatedSujetCourant[$rsc][$rt]_";
							}
							print"\">\n";
							#print "<rdf:type resource=\"\http://www\.beeldengeluid\.nl/Thesaurus\#Descriptor\"/>\n";
							print "<skos:prefLabel>";
							for $rt (3 .. $#{$relatedSujetCourant[$rsc]})
								{
								print "$relatedSujetCourant[$rsc][$rt]_";
								}
							print "</skos:prefLabel>\n";
							print "</Subject>\n";	
						}
				}
			@broaderSujetCourant=();
			@narrowerSujetCourant=();
			@relatedSujetCourant=();
			@contentBT=();
			@contentNT=();
			@contentRT=();
			print"<Subject rdf:about=\"\&gtaa\;$lines[$i]\">\n";
			#print "<rdf:type resource=\"\http://www\.beeldengeluid\.nl/Thesaurus\#Descriptor\"/>\n";
			print "<skos:prefLabel>$lines[$i]</skos:prefLabel>\n";
			$sujetCourant = $lines[$i];	
			}			
		}
	}
	elsif($lines[$i]=~/SN/)
	{
		@content= split('\b',$lines[$i]);
		$content[1]=~s/\s/_/g;
		print "<skos:scopeNote>";
		for ($sn=3; $sn<scalar@content; $sn++)
		{
			print "$content[$sn]_";
		}
		print "</skos:scopeNote>";
		@content=();	
	}
	elsif($lines[$i]=~/BT/)
	{
		$lines[$i]=~s/\s/_/g;
		@contentBT= split('_',$lines[$i]);
		push @broaderSujetCourant, [@contentBT];
		print "<skos:broader rdf:resource=\"\#";
		for ($bt=3; $bt<scalar@contentBT; $bt++)
		{
			print "$contentBT[$bt]_";
		}
		print"\"/>\n";
		#@contentBT=();
	}
	elsif($lines[$i]=~/NT/)
	{
		$lines[$i]=~s/\s/_/g;
		@contentNT= split('_',$lines[$i]);
		push @narrowerSujetCourant, [@contentNT];
		print "<skos:narrower rdf:resource=\"\#";
		for ($nt=3; $nt<scalar@contentNT; $nt++)
		{
			print "$contentNT[$nt]_";
		}
		print"\"/>\n";
		#@contentNT=();
	}
	elsif($lines[$i]=~/RT/)
	{
		$lines[$i]=~s/\s/_/g;
		@contentRT= split('_',$lines[$i]);
		push @relatedSujetCourant, [@contentRT];
		print "<skos:related rdf:resource=\"\#";
		for ($rt=3; $rt<scalar@contentRT; $rt++)
		{
			print "$contentRT[$rt]_";
		}
		print"\"/>\n";
		#@contentRT=();
	}
	#elsif($lines[$i]=~/\bUS\b/)
	#{
	#	$lines[$i]=~s/\s/_/g;
	#	@contentUS= split('_',$lines[$i]);
	#	print "<prefLabel>";
	#	for ($us=3; $us<scalar@contentUS; $us++)
	#	{
	#		print "$contentUS[$us]_";
	#	}
	#	print"</prefLabel>\n";
	#	@contentUS=();
	#}
	elsif($lines[$i]=~/UF/)
	{
		$lines[$i]=~s/\s/_/g;
		@contentUF= split('_',$lines[$i]);
		print "<skos:altLabel>";
		for ($uf=3; $uf<scalar@contentUF; $uf++)
		{
			print "$contentUF[$uf]_";
		}
		print"</skos:altLabel>\n";
		@contentUF=();
	}
	elsif($lines[$i]=~/(1D[0-9]{2}\.[0-9]{0,2})/)
	{
		#$1=~s/\s/_/g;
		#les deux suivants mis en commentaire pour ne plus imprimer les CC
		##print "<hasClassificationCode rdf:resource=\"\#$1\"/>\n";
		##push( @{$memberOf{$1}}, $sujetCourant );
		#version du cookbook
		#%ttys = ( );
		#
		#open(WHO, "who|")                   or die "can't open who: $!";
		#while (<WHO>) {
		#    ($user, $tty) = split;
		#	    push( @{$ttys{$user}}, $tty );
		#}
		#foreach $user (sort keys %ttys) {
 		#   print "$user: @{$ttys{$user}}\n";
		#}
		
		#verif si ligne au-dessus marche pas comme ca
		#if (exists ($memberOf{$1}))
		#{
		#	push( @{$memberOf{$1}}, $sujetCourant );	
		#}
		#else
		#{
		#	$memberOf{$1} = $sujetCourant;
		#}
	}
	elsif($ligne=~/ /)
	{
		#print "</term>";
	}
	else
	{}

}
#close FILE;
print "</Subject>";

open(GENRE, "< $genre") or die "Can't open $genre : $!";
while($ligne = <GENRE>)
{
	$ligne=~s/\s/_/g;
	$ligne=~s/&/_en_/g;
	$ligne=~s/\"//g;
	$ligne=~s/%/_procent_/g;
	$ligne=~s/\}/_/g;
	print "<Genre rdf:about=\"\&gtaa\;$ligne\">\n";
	print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
	print "</Genre>\n";
}
close GENRE;

open(LOCATIES, "< $locaties") or die "Can't open $locaties : $!";
while($ligne = <LOCATIES>)
{
	if ($ligne=~m/\(/)
	{
		push @temp, split (/\(/, $ligne);
		$temp[0]=~s/\s/_/g;
		$temp[0]=~s/&/_en_/g;
		$temp[0]=~s/%/_procent_/g;
		$temp[0]=~s/\}/_/g;
		$temp[0]=~s/\"//g;
		$temp[0]=~s/\)/_/g;
		$temp[1]=~s/\s/_/g;
		$temp[1]=~s/&/_en_/g;
		$temp[1]=~s/%/_procent_/g;
		$temp[1]=~s/\}/_/g;
		$temp[1]=~s/\"//g;
		$temp[1]=~s/\)/_/g;
		print "<Location rdf:about=\"\&gtaa\;$temp[0]\">\n";
		print "<skos:prefLabel>$temp[0]</skos:prefLabel>\n";
		print "<skos:scopeNote>";
		print "$temp[1]";
		print "</skos:scopeNote>";
		print "</Location>\n";
		@temp=();	
	}
	else
	{
		$ligne=~s/\s/_/g;
		$ligne=~s/&/_en_/g;
		$ligne=~s/%/_procent_/g;
		$ligne=~s/\}/_/g;
		$ligne=~s/\"//g;
		print "<Location rdf:about=\"\&gtaa\;$ligne\">\n";
		print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
		print "</Location>\n";
	}
}
close LOCATIES;

open(MAKERS, "< $makers") or die "Can't open $makers : $!";
while($ligne = <MAKERS>)
{
	if ($ligne=~m/\(/)
	{
		if ($ligne=~m/\(zie ook\}/)
		{
			push @temp, split (/\(zie ook\}/, $ligne);
			$temp[0]=~s/\s/_/g;
			$temp[0]=~s/&/_en_/g;
			$temp[0]=~s/%/_procent_/g;
			$temp[0]=~s/\}/_/g;
			$temp[0]=~s/\"//g;
			$temp[1]=~s/\s/_/g;
			$temp[1]=~s/&/_en_/g;
			$temp[1]=~s/%/_procent_/g;
			$temp[1]=~s/\}/_/g;
			$temp[1]=~s/\"//g;
			print "<Maker rdf:about=\"\&gtaa\;$temp[0]\">\n";
			print "<skos:prefLabel>$temp[0]</skos:prefLabel>\n";
			print "<skos:related rdf:resource=\"\#";
			$value=substr($temp[1], 1);
			print "$value";
			print"\"/>\n";
			print "</Maker>\n";
			@temp=();	
		}
		elsif($ligne=~m/\(jr\.\)/)
		{
			$ligne=~s/\s/_/g;
			$ligne=~s/&/_en_/g;
			$ligne=~s/%/_procent_/g;
			$ligne=~s/\}/_/g;
			$ligne=~s/\(/_/g;
			$ligne=~s/\)/_/g;
			$ligne=~s/\"//g;
			print "<Maker rdf:about=\"\&gtaa\;$ligne\">\n";
			print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "jr.";
			print "</skos:scopeNote>";
			print "</Maker>\n";
		}
		elsif($ligne=~m/\(sr\.\)/)
		{
			$ligne=~s/\s/_/g;
			$ligne=~s/&/_en_/g;
			$ligne=~s/%/_procent_/g;
			$ligne=~s/\}/_/g;
			$ligne=~s/\(/_/g;
			$ligne=~s/\)/_/g;
			$ligne=~s/\"//g;
			print "<Maker rdf:about=\"\&gtaa\;$ligne\">\n";
			print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "sr.";
			print "</skos:scopeNote>";
			print "</Maker>\n";
			
		}
		else 
		{
			push @temp, split (/\(/, $ligne);
			$temp[0]=~s/\s/_/g;
			$temp[0]=~s/&/_en_/g;
			$temp[0]=~s/%/_procent_/g;
			$temp[0]=~s/\}/_/g;
			$temp[0]=~s/\"//g;
			$temp[0]=~s/\)/_/g;
			$temp[1]=~s/\s/_/g;
			$temp[1]=~s/&/_en_/g;
			$temp[1]=~s/%/_procent_/g;
			$temp[1]=~s/\}/_/g;
			$temp[1]=~s/\"//g;
			$temp[1]=~s/\)/_/g;
			print "<Maker rdf:about=\"\&gtaa\;$temp[0]\">\n";
			print "<skos:prefLabel>$temp[0]</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "$temp[1]";
			print "</skos:scopeNote>";
			print "</Maker>\n";
			@temp=();
		}
	}
	else #si la ligne ne contient pas de parentheses -> info simple
	{
	$ligne=~s/\s/_/g;
	$ligne=~s/&/_en_/g;
	$ligne=~s/%/_procent_/g;
	$ligne=~s/\}/_/g;
	$ligne=~s/\"//g;
	print "<Maker rdf:about=\"\&gtaa\;$ligne\">\n";
	print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
	print "</Maker>\n";
	}
}
close MAKERS;

open(NAMEN, "< $namen") or die "Can't open $namen : $!";
while($ligne = <NAMEN>)
{
	if ($ligne=~m/\(/)
	{
		push @temp, split (/\(/, $ligne);
		$temp[0]=~s/\s/_/g;
		$temp[0]=~s/&/_en_/g;
		$temp[0]=~s/%/_procent_/g;
		$temp[0]=~s/\}/_/g;
		$temp[0]=~s/\"//g;
		$temp[0]=~s/\)/_/g;
		$temp[1]=~s/\s/_/g;
		$temp[1]=~s/&/_en_/g;
		$temp[1]=~s/%/_procent_/g;
		$temp[1]=~s/\}/_/g;
		$temp[1]=~s/\"//g;
		$temp[1]=~s/\)/_/g;
		print "<Name rdf:about=\"\&gtaa\;$temp[0]\">\n";
		print "<skos:prefLabel>$temp[0]</skos:prefLabel>\n";
		print "<skos:scopeNote>";
		print "$temp[1]";
		print "</skos:scopeNote>";
		print "</Name>\n";
		@temp=();	
	}
	else
	{
		$ligne=~s/\s/_/g;
		$ligne=~s/\"//g;
		$ligne=~s/&/_en_/g;
		$ligne=~s/%/_procent_/g;
		$ligne=~s/\}/_/g;
		print "<Name rdf:about=\"\&gtaa\;$ligne\">\n";
		print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
		print "</Name>\n";
	}
}
close NAMEN;

open(PERSON, "< $persoon") or die "Can't open $persoon : $!";
while($ligne = <PERSON>)
{
	if ($ligne=~m/\(/)
	{
		if($ligne=~m/\(jr\.\)/)
		{
			$ligne=~s/\s/_/g;
			$ligne=~s/&/_en_/g;
			$ligne=~s/%/_procent_/g;
			$ligne=~s/\}/_/g;
			$ligne=~s/\(/_/g;
			$ligne=~s/\)/_/g;
			$ligne=~s/\"//g;
			print "<PersonName rdf:about=\"\&gtaa\;$ligne\">\n";
			print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "jr.";
			print "</skos:scopeNote>";
			print "</PersonName>\n";
		}
		elsif($ligne=~m/\(sr\.\)/)
		{
			$ligne=~s/\s/_/g;
			$ligne=~s/&/_en_/g;
			$ligne=~s/%/_procent_/g;
			$ligne=~s/\}/_/g;
			$ligne=~s/\(/_/g;
			$ligne=~s/\)/_/g;
			$ligne=~s/\"//g;
			print "<PersonName rdf:about=\"\&gtaa\;$ligne\">\n";
			print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "sr.";
			print "</skos:scopeNote>";
			print "</PersonName>\n";
			
		}
		else 
		{
			push @temp, split (/\(/, $ligne);
			$temp[0]=~s/\s/_/g;
			$temp[0]=~s/&/_en_/g;
			$temp[0]=~s/%/_procent_/g;
			$temp[0]=~s/\}/_/g;
			$temp[0]=~s/\"//g;
			$temp[0]=~s/\)/_/g;
			$temp[1]=~s/\s/_/g;
			$temp[1]=~s/&/_en_/g;
			$temp[1]=~s/%/_procent_/g;
			$temp[1]=~s/\}/_/g;
			$temp[1]=~s/\"//g;
			$temp[1]=~s/\)/_/g;
			print "<PersonName rdf:about=\"\&gtaa\;$temp[0]\">\n";
			print "<skos:prefLabel>$temp[0]</skos:prefLabel>\n";
			print "<skos:scopeNote>";
			print "$temp[1]";
			print "</skos:scopeNote>";
			print "</PersonName>\n";
			@temp=();
		}
	}
	else #si la ligne ne contient pas de parentheses -> info simple
	{
		$ligne=~s/\s/_/g;
		$ligne=~s/&/_en_/g;
		$ligne=~s/%/_procent_/g;
		$ligne=~s/\}/_/g;
		$ligne=~s/\"//g;
		print "<PersonName rdf:about=\"\&gtaa\;$ligne\">\n";
		print "<skos:prefLabel>$ligne</skos:prefLabel>\n";
		print "</PersonName>\n";
	}
}
close PERSON;


print "<Category rdf:about=\"\&gtaa\;1D00\">
	<skos:prefLabel>Algemeen</skos:prefLabel>  
	</Category>
	<Category rdf:about=\"\&gtaa\;1D01\">
	  <skos:prefLabel>Filosofie, religie en levensbeschouwing</skos:prefLabel>";
	  printMembers("1D01");
print  "<skos:member><Category rdf:about=\"\&gtaa\;1D01.00\">
	<skos:prefLabel>Filosofie, religie en levensbeschouwing - algemeen</skos:prefLabel>";
	printMembers("1D01.00");
print 	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D01.01\">
	 <skos:prefLabel>filosofie (hierbij ethiek); levensbeschouwelijke stromingen (hierbij humanisme, atheïsme)</skos:prefLabel>";
	 printMembers("1D01.01");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D01.02\">
	 <skos:prefLabel>godsdiensten algemeen</skos:prefLabel>";
	 printMembers("1D01.02");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D01.03\">
	 <skos:prefLabel>christendom</skos:prefLabel>";
	 #foreach my $cat (sort keys %memberOf) 
	printMembers("1D01.03");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D01.04\">
	 <skos:prefLabel>overige religies</skos:prefLabel>";
	 printMembers("1D01.04");
print	"</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D02\">
	  <skos:prefLabel>Maatschappij en samenlevingsvormen</skos:prefLabel>";
		printMembers("1D02");
print	"<skos:member><Category rdf:about=\"\&gtaa\;1D02.00\">
	 <skos:prefLabel>Maatschappij en samenlevingsvormen - algemeen</skos:prefLabel>";
	 printMembers("1D02.00");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D02.01\">
	 <skos:prefLabel>demografische vraagstukken</skos:prefLabel>";
	 printMembers("1D02.01");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D02.02\">
	 <skos:prefLabel>sociale vraagstukken (hierbij armoede, agressie, werkloosheid)</skos:prefLabel>";
	 printMembers("1D02.02");			
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D02.03\">
	 <skos:prefLabel>sociale dienstverlening (hierbij maatschappelijk werk, slachtofferhulp)</skos:prefLabel>";
	 printMembers("1D02.03");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D02.04\">
	 <skos:prefLabel>groepen in de samenleving (hierbij arbeiders, ouderen, migranten), emancipatie</skos:prefLabel>";
	 printMembers("1D02.04");
print   "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D02.05\">
	 <skos:prefLabel>familie, gezin en relatievormen</skos:prefLabel>";
	 printMembers("1D02.05");
print"</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D03\">
	 <skos:prefLabel>Staat en politiek (hierbij overheidsbeleid)</skos:prefLabel>";
	 printMembers("1D03");
	 print"<skos:member><Category rdf:about=\"\&gtaa\;1D03.00\">
	 	<skos:prefLabel>Staat en politiek (hierbij overheidsbeleid) - algemeen</skos:prefLabel>";
	 	printMembers("1D03.00");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.01\">
	 	<skos:prefLabel>geschiedenis en staatsinrichting (hierbij staatsvormen, monarchie)</skos:prefLabel>";
	 	printMembers("1D03.01");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.02\">
	 	<skos:prefLabel>openbaar bestuur (hierbij overheid, overheidsorganisatie, -personeel)</skos:prefLabel>";
	 	printMembers("1D03.02");
print	"</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.03\">
	 	<skos:prefLabel>recht en rechtshandhaving (hierbij delicten en criminaliteitsbestrijding)</skos:prefLabel>";
	 	printMembers("1D03.03");
print  "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.04\">
	 	<skos:prefLabel>krijgsaangelegenheden (hierbij defensie, oorlogvoering)</skos:prefLabel>";
	 	printMembers("1D03.04");
print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.05\">
	 	<skos:prefLabel>internationale betrekkingen (hierbij ontwikkelingssamenwerking)</skos:prefLabel>";
	 	printMembers("1D03.05");
print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D03.06\">
	 	<skos:prefLabel>politieke stromingen</skos:prefLabel>";
	 	printMembers("1D03.06");
print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D04\">
	  <skos:prefLabel>Ruimtelijke ordening en gebouwde en aangelegde omgeving</skos:prefLabel>";
	  printMembers("1D04");
	  #<relatedTerm rdf:resource=\"\#1D10.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D04.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D04.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D04.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D04.03\"/>  
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D04.00\">
	  <skos:prefLabel>Ruimtelijke ordening en gebouwde en aangelegde omgeving - algemeen</skos:prefLabel>";
	  printMembers("1D04.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D04.01\">
	  <skos:prefLabel>ruimtelijke ordening, planologie, platteland, stedenbouw</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D04.03\"/>
	  printMembers("1D04.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D04.02\">
	  <skos:prefLabel>(volks)huisvesting (hierbij woningnood, renovatie)</skos:prefLabel>";
	 printMembers("1D04.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D04.03\">
	  <skos:prefLabel>specifieke bouwwerken, kunstwerken en landschapselementen, onderdelen en fasen hiervan</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D09.06\"/>
	  printMembers("1D04.03");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D05\">
	  <skos:prefLabel>Economie</skos:prefLabel>";
	  printMembers("1D05");
	  #<narrowerTerm rdf:resource=\"\#1D05.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D05.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D05.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D05.03\"/>
	  #<narrowerTerm rdf:resource=\"\#1D05.04\"/>
	  #<narrowerTerm rdf:resource=\"\#1D05.05\"/>
	 print"<skos:member><Category rdf:about=\"\&gtaa\;1D05.00\">
	  <skos:prefLabel>Economie - algemeen (hierbij macro-economische zaken, monetaire economie, consumptie)</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D03\"/>
	  printMembers("1D05.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D05.01\">
	  <skos:prefLabel>agrarische sector en visserij</skos:prefLabel>"; 
	  printMembers("1D05.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D05.02\">
	  <skos:prefLabel>delfstofwinning, industrie en productiearbeid</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D09.01\"/>
	  #<relatedTerm rdf:resource=\"\#1D14.04\"/>
	  printMembers("1D05.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D05.03\">
	  <skos:prefLabel>handel, bouwnijverheid en dienstverlening (hierbij bank- en verzekeringswezen, toerisme)</skos:prefLabel>"; 
	  printMembers("1D05.03");
	print "<scopeNote>transport bij 10.00; bouwkunde bij 09.06</scopeNote>
	  </Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D05.04\">
	  <skos:prefLabel>bedrijfseconomische en arbeidsaangelegenheden</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D02.02\"/>
	  #<relatedTerm rdf:resource=\"\#1D02.04\"/>
	  printMembers("1D05.04");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D05.05\">
	  <skos:prefLabel>specifieke producten</skos:prefLabel>"; 
	  printMembers("1D05.05");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D06\">
	  <skos:prefLabel>Gezondheid(szorg) en welzijn</skos:prefLabel>";
	  printMembers("1D06");
	  #<narrowerTerm rdf:resource=\"\#1D06.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D06.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D06.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D06.03\"/>
	print "<skos:member><Category rdf:about=\"\&gtaa\;1D06.00\">
	  <skos:prefLabel>Gezondheid(szorg) en welzijn - algemeen (hierbij menselijk lichaam)</skos:prefLabel>"; 
	  printMembers("1D06.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D06.01\">
	  <skos:prefLabel>geneeskunde, institutionele gezondheidszorg en paramedische sector</skos:prefLabel>"; 
	  printMembers("1D06.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D06.02\">
	  <skos:prefLabel>specifieke ziekten, aandoeningen en handicaps</skos:prefLabel>"; 
	  printMembers("1D06.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D06.03\">
	  <skos:prefLabel>persoonlijke gezondheid(szorg) en welzijn overig (hierbij lichaamsverzorging, seksualiteit, abortus, gevoelens, leeftijd, dood)</skos:prefLabel>"; 
	  #<relatedTerm rdf:resource=\"\#1D02.05\"/>
	  printMembers("1D06.03");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D07\">
	  <skos:prefLabel>Opvoeding en onderwijs</skos:prefLabel>";
	  printMembers("1D07");
	  #<narrowerTerm rdf:resource=\"\#1D07.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D07.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D07.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D07.03\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D07.00\">
	  <skos:prefLabel>Opvoeding en onderwijs - algemeen</skos:prefLabel>"; 
	  printMembers("1D07.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D07.01\">
	  <skos:prefLabel>opvoeding</skos:prefLabel>"; 
	  printMembers("1D07.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D07.02\">
	  <skos:prefLabel>onderwijs</skos:prefLabel>"; 
	  printMembers("1D07.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D07.03\">
	  <skos:prefLabel>vorming en ontwikkeling overig (hierbij volwasseneneducatie)</skos:prefLabel>"; 
	  printMembers("1D07.03");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D08\">
	  <skos:prefLabel>Wetenschapsgebieden en hulpwetenschappen</skos:prefLabel>";
	  printMembers("1D08");
	  #<narrowerTerm rdf:resource=\"\#1D08.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D08.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D08.02\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D08.00\">
	  <skos:prefLabel>Wetenschapsgebieden en hulpwetenschappen - algemeen</skos:prefLabel>"; 
	  printMembers("1D08.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D08.01\">
	  <skos:prefLabel>(hulp)wetenschappen</skos:prefLabel>"; 
	  printMembers("1D08.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D08.02\">
	  <skos:prefLabel>interdisciplinaire aangelegenheden (hierbij onderzoek, uitvindingen, statistiek, methodologie)</skos:prefLabel>"; 
	  printMembers("1D08.02");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D09\">
	  <skos:prefLabel>Techniek</skos:prefLabel>";
	  printMembers("1D09");
	  #<narrowerTerm rdf:resource=\"\#1D09.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.03\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.04\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.05\"/>
	  #<narrowerTerm rdf:resource=\"\#1D09.06\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D09.00\">
	  <skos:prefLabel>Techniek - algemeen</skos:prefLabel>"; 
	  printMembers("1D09.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.01\">
	  <skos:prefLabel>delfstofwinning en energie</skos:prefLabel>"; 
	  printMembers("1D09.01");
	  #<relatedTerm rdf:resource=\"\#1D05.02\"/>
	  #<relatedTerm rdf:resource=\"\#1D14.04\"/>
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.02\">
	  <skos:prefLabel>werktuigbouwkunde, metaalbewerking, meet- en regeltechniek, techniek van verkeer en 
vervoermiddelen (hierbij ruimtevaart)</skos:prefLabel>"; 
	  printMembers("1D09.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.03\">
	  <skos:prefLabel>elektrotechniek, (elektrische) apparatuur, informatietechnologie</skos:prefLabel>"; 
	  printMembers("1D09.03");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.04\">
	  <skos:prefLabel>algemene en chemische technologie</skos:prefLabel>"; 
	  printMembers("1D09.04");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.05\">
	  <skos:prefLabel>verwerkende industrie</skos:prefLabel>"; 
	  printMembers("1D09.05");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D09.06\">
	  <skos:prefLabel>bouwkunde</skos:prefLabel>"; 
	  printMembers("1D09.06");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D10\">
	  <skos:prefLabel>Verkeer en vervoer</skos:prefLabel>";
	  printMembers("1D10");
	  #<narrowerTerm rdf:resource=\"\#1D10.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D10.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D10.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D10.03\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D10.00\">
	  <skos:prefLabel>Verkeer en vervoer - algemeen (hierbij transport, openbaar vervoer, infrastructuur)</skos:prefLabel>"; 
	  printMembers("1D10.00");
	  #<relatedTerm rdf:resource=\"\#1D04.00\"/>
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D10.01\">
	  <skos:prefLabel>verkeer te land (hierbij vervoermiddelen en verkeersrampen)</skos:prefLabel>"; 
	  printMembers("1D10.01");
	  #<relatedTerm rdf:resource=\"\#1D04.00\"/>
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D10.02\">
	  <skos:prefLabel>scheepvaart (hierbij vervoermiddelen en verkeersrampen)</skos:prefLabel>"; 
	  printMembers("1D10.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D10.03\">
	  <skos:prefLabel>luchtvaart (hierbij ruimtevaart) (hierbij vervoermiddelen en verkeersrampen)</skos:prefLabel>"; 
	  printMembers("1D10.03");
	  #<relatedTerm rdf:resource=\"\#1D09.02\"/>
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D11\">
	  <skos:prefLabel>Communicatie en media</skos:prefLabel>";
	  printMembers("1D11");
	  #<narrowerTerm rdf:resource=\"\#1D11.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D11.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D11.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D11.03\"/>
	  #<narrowerTerm rdf:resource=\"\#1D11.04\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D11.00\">
	  <skos:prefLabel>Communicatie en media - algemeen (hierbij communicatieprocessen, taal als communicatiemiddel)</skos:prefLabel>";
	  #<relatedTerm rdf:resource=\"\#1D11.04\"/>
	  printMembers("1D11.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D11.01\">
	  <skos:prefLabel>communicatietransport</skos:prefLabel>"; 
	  printMembers("1D11.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D11.02\">
	  <skos:prefLabel>massacommunicatie en - media (hierbij pers, omroep)</skos:prefLabel>"; 
	  printMembers("1D11.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D11.03\">
	  <skos:prefLabel>informatievoorziening overig (hierbij bibliotheken, archieven, voorlichting)</skos:prefLabel>"; 
	  printMembers("1D11.03");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D11.04\">
	  <skos:prefLabel>audiovisuele en elektronische (incl. digitale) media</skos:prefLabel>"; 
	  printMembers("1D11.04");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D12\">
	  <skos:prefLabel>Kunst en cultuur</skos:prefLabel>";
	  printMembers("1D12");
	  #<narrowerTerm rdf:resource=\"\#1D12.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D12.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D12.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D12.03\"/>
	  #<narrowerTerm rdf:resource=\"\#1D12.04\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D12.00\">
	  <skos:prefLabel> Kunst en cultuur - algemeen (hierbij musea, tentoonstellingen)</skos:prefLabel>"; 
	  printMembers("1D12.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D12.01\">
	  <skos:prefLabel>beeldende kunst (hierbij architectuur, film, fotografie)</skos:prefLabel>"; 
	  printMembers("1D12.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D12.02\">
	  <skos:prefLabel>literatuur (in ruime zin)</skos:prefLabel>"; 
	  printMembers("1D12.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D12.03\">
	  <skos:prefLabel>muziek en podiumkunsten (hierbij theater, dans)</skos:prefLabel>"; 
	  printMembers("1D12.03");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D12.04\">
	  <skos:prefLabel>toegepaste kunsten en kunstnijverheid (hierbij mode)</skos:prefLabel>"; 
	  printMembers("1D12.04");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D13\">
	  <skos:prefLabel>Sport en vrijetijdsbesteding</skos:prefLabel>";
	  printMembers("1D13");
	  #<narrowerTerm rdf:resource=\"\#1D13.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D13.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D13.02\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D13.00\">
	  <skos:prefLabel>Sport en vrijetijdsbesteding - algemeen</skos:prefLabel>"; 
	  printMembers("1D13.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D13.01\">
	  <skos:prefLabel>sport, sportbeoefenaren en -evenementen, lichaamsoefening</skos:prefLabel>"; 
	  printMembers("1D13.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D13.02\">
	  <skos:prefLabel>(overige) vrijetijdsbesteding, recreatie</skos:prefLabel>"; 
	  printMembers("1D13.02");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D14\">
	  <skos:prefLabel>Natuur en milieu, astronomie</skos:prefLabel>";
	  printMembers("1D14");
	  #<narrowerTerm rdf:resource=\"\#1D14.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D14.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D14.02\"/>
	  #<narrowerTerm rdf:resource=\"\#1D14.03\"/>
	  #<narrowerTerm rdf:resource=\"\#1D14.04\"/>
	  #<narrowerTerm rdf:resource=\"\#1D14.05\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D14.00\">
	  <skos:prefLabel>Natuur en milieu, astronomie - algemeen</skos:prefLabel>"; 
	  printMembers("1D14.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D14.01\">
	  <skos:prefLabel>natuur (hierbij natuurrampen), ecologie, dieren en planten</skos:prefLabel>"; 
	  printMembers("1D14.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D14.02\">
	  <skos:prefLabel>milieubeheer en -verontreiniging (hierbij milieurampen)</skos:prefLabel>"; 
	  printMembers("1D14.02");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D14.03\">
	  <skos:prefLabel>weer en klimaat</skos:prefLabel>"; 
	  printMembers("1D14.03");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D14.04\">
	  <skos:prefLabel>geologie, gesteenten, delfstoffen</skos:prefLabel>"; 
	  printMembers("1D14.04");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D14.05\">
	  <skos:prefLabel>astronomie, hemellichamen</skos:prefLabel>"; 
	  printMembers("1D14.05");
	print "</Category></skos:member>
	</Category>
	<Category rdf:about=\"\&gtaa\;1D15\">
	  <skos:prefLabel>Land- en volkenkunde</skos:prefLabel>";
	  printMembers("1D15");
	  #<narrowerTerm rdf:resource=\"\#1D15.00\"/>
	  #<narrowerTerm rdf:resource=\"\#1D15.01\"/>
	  #<narrowerTerm rdf:resource=\"\#1D15.02\"/>
	print"<skos:member><Category rdf:about=\"\&gtaa\;1D15.00\">
	  <skos:prefLabel>Land- en volkenkunde - algemeen</skos:prefLabel>"; 
	  printMembers("1D15.00");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D15.01\">
	  <skos:prefLabel>geografie, topografie</skos:prefLabel>"; 
	  printMembers("1D15.01");
	print "</Category></skos:member>
	<skos:member><Category rdf:about=\"\&gtaa\;1D15.02\">
	  <skos:prefLabel>volkscultuur, volksgebruiken, folklore</skos:prefLabel>"; 
	  printMembers("1D15.02");
	print "</Category></skos:member>
	</Category>";
print "</rdf:RDF>";

sub printMembers {
	my $category = $_[0];
	foreach my $cat (sort keys %memberOf) 
		{
			if ($cat eq "$category")
			{
 		   		#print "$cat: @{$memberOf{$cat}}\n";
 		   		foreach $membre (@{$memberOf{$cat}})
 		   		{
	 		   		print "<skos:member rdf:resource=\"\#$membre\"/>";
	 		   	}
 		   	}
 		   	else{}
		}
	}