From: navarrop Date: Thu, 30 Sep 2010 14:45:55 +0000 (+0000) Subject: Unuse file. X-Git-Tag: v3_5~518 X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/1576126997a42eb30844433bb83477ba01aa6863?ds=sidebyside Unuse file. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8306 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- 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