<?php
/*
* Script that create the Archinsurance part of an Ontology.
* This script generate a xml file to add in the Archimate with extensions
* Ontology file, the generated file add the Archinsurance concepts
* (Individuals and Object Properties) in the Archimate with extensions OWL file.
*
* The script take as source the CSV file exported using the Archi Tool.
* @author INESC-ID
*/
Header('Content-type: text/xml');
//Files
$csvFile = "D:/Dropbox/11_ScriptsTese/Archi_files/eHealth_Model.csv";
//If you provide the DIO file, the Model you be added to DIO file.
$DIOFile = "D:/Dropbox/11_ScriptsTese/PhpProject/DIO-Archimate-V0.1.owl";
$csv = fopen($csvFile, "r");
if ($DIOFile) {
$xmlArchimate = simplexml_load_file(/* getInput() . */ $DIOFile);
$newXML = new SimpleXMLElement($xmlArchimate->asXML());
} else {
$newXML = new SimpleXMLElement("<RDF/>");
}
//Read Archi File --------------------------------------------------------------
$arrayRelationAccessType = array('hasAccessTypeWrite', 'hasAccessTypeRead', 'hasAccessTypeAccess', 'hasAccessTypeRead_Write');
$arrayJunctions = array();
//Write AccessTypes as subProperties
foreach ($arrayRelationAccessType as $value) {
$property = $newXML->addChild('SubObjectPropertyOf');
$subProp = $property->addChild("ObjectProperty");
$subProp->addAttribute("IRI", "#" . $value);
$subPropOf = $property->addChild("ObjectProperty");
$subPropOf->addAttribute("IRI", "#accesses");
}
//Read CSV File-----------------------------------------------------------------
$arrayOperations = array();
$firstline = true;
while (!feof($csv)) {
$line = fgetcsv($csv);
$line = to_utf8($line);
//skip first line
if ($firstline) {
$firstline = false;
continue;
}
//skip empty line
if (empty($line)) {
continue;
}
$elementName = format_string($line[1]);
$sourceType = format_string($line[3]);
$sourceName = format_string($line[4]);
$targetType = format_string($line[5]);
$targetName = format_string($line[6]);
$type = str_replace("Relationship", "", $line[0]);
//is individual
if ($line[3] == "" && $type != "") {
$newXML = writeIndividual($newXML, $type, $elementName);
//has property
if (!($line[8] == "")) {
$props = split(";", $line[8]);
foreach ($props as $prop) {
// '|' is operator in php
$keyvalue = split("\|", $prop);
list($propKey, $propValue) = $keyvalue;
$newXML = writeDataProperty($newXML, $elementName, $propKey, $propValue);
}
}
} else {//is relation
$type = convertObjectPropertyName($type);
if ($elementName) {
if (array_search("$elementName.$type", $arrayOperations) === false) {
$newXML = writeSubProperty($newXML, $type, $elementName);
array_push($arrayOperations, "$elementName.$type");
}
}
if (($sourceType == 'AndJunction' or $targetType == 'AndJunction')
and array_search('AndJunction', $arrayJunctions) === false) {
$newXML = writeSubClass($newXML, 'Junction', 'AndJunction');
array_push($arrayJunctions, 'AndJunction');
}
if (($sourceType == 'OrJunction' or $targetType == 'OrJunction')
and array_search('OrJunction', $arrayJunctions) === false) {
$newXML = writeSubClass($newXML, 'Junction', 'OrJunction');
array_push($arrayJunctions, 'OrJunction');
}
$operation = $elementName ? $elementName : $type;
$newXML = writeProperty($newXML, $operation, $sourceName, $targetName);
if ($type == 'accesses') {
$newXML = writeProperty($newXML, $arrayRelationAccessType[$line[7]], $sourceName, $targetName);
}
}
}
//path to output file
//Format XML to save indented tree rather than one line
$dom = new DOMDocument('1.0');
$dom->preserveWhiteSpace = false;
$dom->formatOutput = true;
$dom->loadXML(replace_special_chars($newXML->asXML()));
//echo $newXML->asXML();
$dom->save('eHealth_Model.owl');
function format_string($string) {
$elementName = str_replace(" ", "_", $string);
$elementName = str_replace("(", "-", $elementName);
$elementName = str_replace(")", "-", $elementName);
$elementName = str_replace("/", "_", $elementName);
return $elementName;
}
function getInput($fileDescription) {
fwrite(STDOUT, 'Type the file location of ' . $fileDescription . ':');
$input = fgets(STDIN);
return rtrim($input);
}
function convertObjectPropertyName($oldObjectProperty) {
$oldObjectProperty = strtolower($oldObjectProperty);
switch ($oldObjectProperty) {
case 'access':
$newObjectProperty = 'accesses';
break;
case 'aggregation':
$newObjectProperty = 'aggregates';
break;
case 'assignment':
$newObjectProperty = 'assignedFrom';
break;
case 'composition':
$newObjectProperty = 'composedOf';
break;
case 'flow':
$newObjectProperty = 'flowTo';
break;
case 'influence':
$newObjectProperty = 'influencedBy';
break;
case 'realisation':
$newObjectProperty = 'realizes';
break;
case 'specialisation':
$newObjectProperty = 'specialization';
break;
case 'triggering':
$newObjectProperty = 'triggers';
break;
case 'usedby':
$newObjectProperty = 'usedBy';
break;
default:
$newObjectProperty = 'association';
break;
}
return $newObjectProperty;
}
function writeSubProperty($newXML, $superProperty, $subProperty) {
$property = $newXML->addChild('SubObjectPropertyOf');
$subProp = $property->addChild("ObjectProperty");
$subProp->addAttribute("IRI", "#" . $subProperty);
$subPropOf = $property->addChild("ObjectProperty");
$subPropOf->addAttribute("IRI", "#" . $superProperty);
return $newXML;
}
function writeProperty($newXML, $relation, $source, $target) {
$objectPropertyAssertion = $newXML->addChild("ObjectPropertyAssertion");
$op = $objectPropertyAssertion->addChild("ObjectProperty");
$op->addAttribute("IRI", "#" . $relation);
$name1 = $objectPropertyAssertion->addChild("NamedIndividual");
$name1->addAttribute("IRI", "#" . $source);
$name2 = $objectPropertyAssertion->addChild("NamedIndividual");
$name2->addAttribute("IRI", "#" . $target);
return $newXML;
}
function writeDataProperty($newXML, $elementName, $propKey, $propValue) {
$datatypePropertyAssertion = $newXML->addChild("DataPropertyAssertion");
$dataProperty = $datatypePropertyAssertion->addChild("DataProperty");
$dataProperty->addAttribute("IRI", "#" . format_string($propKey));
$nameIndividual = $datatypePropertyAssertion->addChild("NamedIndividual");
$nameIndividual->addAttribute("IRI", "#" . $elementName);
$literal = $datatypePropertyAssertion->addChild("Literal", $propValue);
return $newXML;
}
function writeIndividual($newXML, $type, $elementName) {
$classAssertion = $newXML->addChild("ClassAssertion");
$entity = $classAssertion->addChild("Class");
$entity->addAttribute('IRI', "#" . $type);
$individual = $classAssertion->addChild("NamedIndividual");
$individual->addAttribute('IRI', "#" . $elementName);
return $newXML;
}
function writeSubClass($newXML, $class, $subClass) {
$subClassOf = $newXML->addChild('SubClassOf');
$classSub = $subClassOf->addChild("Class");
$classSub->addAttribute('IRI', "#" . $subClass);
$classSup = $subClassOf->addChild("Class");
$classSup->addAttribute('IRI', "#" . $class);
return $newXML;
}
function to_utf8($in) {
if (is_array($in)) {
foreach ($in as $key => $value) {
$out[to_utf8($key)] = to_utf8($value);
}
} elseif (is_string($in)) {
return utf8_encode($in);
} else {
return $in;
}
return $out;
}
//http://konfiguracja.c0.pl/webpl/index_en.html
//http://en.sourceforge.jp/projects/nucleus-jp/scm/git/nucleus-jp-ancient/blobs/branch-3-6/utf8/nucleus/libs/entity.php
function replace_special_chars($in){
//cp1251
$_entities = array (
'€' => '€', '‚' => '‚', 'ƒ' => 'ƒ',
'„' => '„', '…' => '…', '†' => '†',
'‡' => '‡', 'ˆ' => 'ˆ', '‰' => '‰',
'Š' => 'Š', '‹' => '‹', 'Œ' => 'Œ',
'Ž' => 'Ž', '‘' => '‘', '’' => '’',
'“' => '“', '”' => '”', '•' => '•',
'–' => '–', '—' => '—', '˜' => '˜',
'™' => '™', 'š' => 'š', '›' => '›',
'œ' => 'œ', 'ž' => 'ž', 'Ÿ' => 'Ÿ',
);
$out = str_replace(array_keys($_entities), array_values($_entities), $in);
return $out;
}
?>