From 1576126997a42eb30844433bb83477ba01aa6863 Mon Sep 17 00:00:00 2001 From: navarrop Date: Thu, 30 Sep 2010 14:45:55 +0000 Subject: [PATCH] Unuse file. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8306 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- tools/simgrid_update_xml_v2_to_v3.pl | 50 ---------------------------- 1 file changed, 50 deletions(-) delete mode 100644 tools/simgrid_update_xml_v2_to_v3.pl diff --git a/tools/simgrid_update_xml_v2_to_v3.pl b/tools/simgrid_update_xml_v2_to_v3.pl deleted file mode 100644 index 10b02fe413..0000000000 --- a/tools/simgrid_update_xml_v2_to_v3.pl +++ /dev/null @@ -1,50 +0,0 @@ -#! /usr/bin/perl - -# This script updates the simgrid XML file passed as argument (modification in place) -# It is built to do the conversion from a XML platfrom version 2 to a version 3 - -# Copyright (C) 2006-2010. The SimGrid team. All rights reserved. -# -# This file is part of the SimGrid project. This is free software: -# You can redistribute and/or modify it under the terms of the -# GNU LGPL (v2.1) licence. - -use strict; - -my($line); -my($command); -my($Filecount)=1; -my($file); -my($filename_old); -my($AScount); - -if($#ARGV!=0) { - die "Error: Wrong number of parameters\nUsage:\tperl transform_platform.perl [platform_v2.xml]\n"; -} - -my($file)=$ARGV[0]; - -open FILE, "$file" or die "Error: Unable to open file: \"$file\".\n$!\n"; -while(defined($line=)) -{ - $AScount=0; - if($line =~ /^(.*)\n"; - print "\n"; - $AScount++; - } - else - { - if($line =~ /^(.*)<\/platform(.*)$/) - { - print "<\/AS>\n"; - print "$line"; - } - else - { - print "$line"; - } - } -} -close(FILE); \ No newline at end of file -- 2.20.1