#!perl# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).# All rights reserved.# This component and the accompanying materials are made available# under the terms of the License "Symbian Foundation License v1.0"# which accompanies this distribution, and is available# at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".## Initial Contributors:# Nokia Corporation - initial contribution.## Contributors:## Description:#use strict;use warnings;use FindBin;use lib $FindBin::Bin;use lib $FindBin::Bin."/old";use lib $FindBin::Bin."/src";use SysModelGen;#legacy stuffuse lib $FindBin::Bin."/src/old/svg";use DrawSvg;my %versions = &DrawSvg::SchemaVersionsFromArgs(@ARGV);#my $drawer = new DrawSvg();my $nOld = 0; my $nCurrent = 0;# test versions here. If any are less than 3.0.0, build using old model codeforeach my $v (keys(%versions)) { # need to downgrade anything in 3.x syntax if($v=~/^[12]\./) {$nOld++} else {$nCurrent++} }if($nOld && $nCurrent) { die "Cannot mix pre-3.0 syntax system definitions with 3.0 and later syntaxes"; }my $drawer = ($nOld) ? new DrawSvg() : new SysModelGen();$drawer->Draw();exit;