sl@0: #
sl@0: # Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description: 
sl@0: # Build font files
sl@0: #
sl@0: 
sl@0: use Cwd;
sl@0: use File::Path;
sl@0: 
sl@0: $dir = getcwd();
sl@0: chdir "..";
sl@0: $parentdir = getcwd();
sl@0: 
sl@0: $datadir="/tfs/fntfiles";
sl@0: $datadir = $parentdir . $datadir;
sl@0: 
sl@0: if (-e "$datadir")
sl@0: { 
sl@0:   #proceed with your code
sl@0: }
sl@0: else
sl@0: {
sl@0: 	eval { mkpath($datadir) };
sl@0: 	if ($@) {
sl@0: 	    print "Couldn't create $dir: $@";
sl@0:   	} 
sl@0: }
sl@0: 
sl@0: system("fnttran tfs/tsection.bdf tfs/tsection.gd $datadir/tsection.gdr");