paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 23:09:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys to remove unneeded tools

Browse Source 
git-svn-id: trunk@34037 -
This commit is contained in:
michael 2016-06-30 17:47:26 +00:00
parent 95f28e5e0c
commit ffe626fe6e
3 changed files with 0 additions and 121 deletions

2
.gitattributes vendored
View File

@ -2599,8 +2599,6 @@ packages/fcl-pdf/tests/unittests_console.lpi svneol=native#text/plain
packages/fcl-pdf/tests/unittests_console.lpr svneol=native#text/plain
packages/fcl-pdf/tests/unittests_gui.lpi svneol=native#text/plain
packages/fcl-pdf/tests/unittests_gui.lpr svneol=native#text/plain
packages/fcl-pdf/utils/mkpdffontdef.lpi svneol=native#text/plain
packages/fcl-pdf/utils/mkpdffontdef.pp svneol=native#text/plain
packages/fcl-pdf/utils/ttfdump.lpi svneol=native#text/plain
packages/fcl-pdf/utils/ttfdump.lpr svneol=native#text/plain
packages/fcl-process/Makefile svneol=native#text/plain

83
packages/fcl-pdf/utils/mkpdffontdef.lpi
View File

@ -1,83 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="mkpdffontdef"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="/usr/share/fonts/truetype/msttcorefonts/arial.ttf cp1252 arial.fnt"/>
</local>
</RunParams>
<Units Count="3">
<Unit0>
<Filename Value="mkpdffontdef.pp"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="fpttfencodings.pp"/>
<IsPartOfProject Value="True"/>
</Unit1>
<Unit2>
<Filename Value="fpparsettf.pp"/>
<IsPartOfProject Value="True"/>
</Unit2>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="mkpdffontdef"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../src"/>
<UnitOutputDirectory Value="units/"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

36
packages/fcl-pdf/utils/mkpdffontdef.pp
View File

@ -1,36 +0,0 @@
{
This file is part of the Free Component Library (FCL)
Copyright (c) 2014 by Michael Van Canneyt
This small program reads a TTF font file and creates a definition in a .ini file for later use
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$mode objfpc}
{$h+}
program mkpdffontdef;
uses sysutils, fpttfencodings, fpparsettf;
begin
if (ParamCount<3) then
begin
writeln('Usage : ',ExtractFileName(paramstr(0)),' ttffilename encoding fntfilename');
Halt(1);
end;
With TTFFileInfo.Create do
try
LoadFromFile(ParamStr(1));
MakePDFFontDef(Paramstr(3),Paramstr(2),False)
finally
Free;
end;
end.