paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: removed agg_platform_support.pas for lcl

Browse Source 
git-svn-id: trunk@21952 -
This commit is contained in:
mattias 2009-10-01 17:01:32 +00:00
parent f0bc788ad4
commit fdf7bc3def
5 changed files with 89 additions and 2636 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -301,8 +301,6 @@ components/aggpas/src/pf_rgb565_gamma.inc svneol=native#text/plain
components/aggpas/src/pf_rgb565_pre.inc svneol=native#text/plain
components/aggpas/src/pf_rgba32.inc svneol=native#text/plain
components/aggpas/src/pf_rgba32_pre.inc svneol=native#text/plain
components/aggpas/src/platform/lcl/agg_linux_mini_libc.pas svneol=native#text/plain
components/aggpas/src/platform/lcl/agg_platform_support.pas svneol=native#text/plain
components/aggpas/src/platform/lcl/file_utils_.pas svneol=native#text/plain
components/aggpas/src/platform/linux/agg_linux_mini_libc.pas svneol=native#text/plain
components/aggpas/src/platform/linux/agg_platform_support.pas svneol=native#text/plain

146
components/aggpas/lazarus/aggpaslcl.lpk
View File

@ -8,7 +8,7 @@
<SearchPaths>
<IncludeFiles Value="../src/"/>
<OtherUnitFiles Value="../src/;../src/util/;../src/svg/;../src/ctrl/;../src/platform/lcl/;../expat-pas/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
@ -23,7 +23,7 @@
<License Value="Permission to copy, use, modify, sell and distribute this software is granted provided this copyright notice appears in all copies.
This software is provided &quot;as is&quot; without express or implied warranty, and with no claim as to its suitability for any purpose."/>
<Version Major="1"/>
<Files Count="211">
<Files Count="209">
<Item1>
<Filename Value="../src/Agg2D.pas"/>
<AddToUsesPkgSection Value="False"/>
@ -744,154 +744,146 @@ This software is provided &quot;as is&quot; without express or implied warranty,
<Type Value="Include"/>
</Item176>
<Item177>
<Filename Value="../src/platform/lcl/agg_linux_mini_libc.pas"/>
<UnitName Value="agg_linux_mini_libc"/>
</Item177>
<Item178>
<Filename Value="../src/platform/lcl/agg_platform_support.pas"/>
<UnitName Value="agg_platform_support"/>
</Item178>
<Item179>
<Filename Value="../src/platform/lcl/file_utils_.pas"/>
<UnitName Value="file_utils_"/>
</Item179>
<Item180>
</Item177>
<Item178>
<Filename Value="../src/platform/linux/agg_linux_mini_libc.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_linux_mini_libc"/>
</Item180>
<Item181>
</Item178>
<Item179>
<Filename Value="../src/platform/linux/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/>
</Item181>
<Item182>
</Item179>
<Item180>
<Filename Value="../src/platform/linux/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/>
</Item182>
<Item183>
</Item180>
<Item181>
<Filename Value="../src/platform/mac/agg_mac_pmap.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_mac_pmap"/>
</Item181>
<Item182>
<Filename Value="../src/platform/mac/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/>
</Item182>
<Item183>
<Filename Value="../src/platform/mac/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/>
</Item183>
<Item184>
<Filename Value="../src/platform/mac/agg_platform_support.pas"/>
<Filename Value="../src/platform/win/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/>
</Item184>
<Item185>
<Filename Value="../src/platform/mac/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/>
</Item185>
<Item186>
<Filename Value="../src/platform/win/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/>
</Item186>
<Item187>
<Filename Value="../src/platform/win/agg_win32_bmp.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_win32_bmp"/>
</Item187>
<Item188>
</Item185>
<Item186>
<Filename Value="../src/platform/win/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/>
</Item188>
<Item189>
</Item186>
<Item187>
<Filename Value="../src/svg/agg_svg_exception.pas"/>
<UnitName Value="agg_svg_exception"/>
</Item189>
<Item190>
</Item187>
<Item188>
<Filename Value="../src/svg/agg_svg_parser.pas"/>
<UnitName Value="agg_svg_parser"/>
</Item190>
<Item191>
</Item188>
<Item189>
<Filename Value="../src/svg/agg_svg_path_renderer.pas"/>
<UnitName Value="agg_svg_path_renderer"/>
</Item191>
<Item192>
</Item189>
<Item190>
<Filename Value="../src/svg/agg_svg_path_tokenizer.pas"/>
<UnitName Value="agg_svg_path_tokenizer"/>
</Item192>
<Item193>
</Item190>
<Item191>
<Filename Value="../src/util/agg_color_conv.pas"/>
<UnitName Value="agg_color_conv"/>
</Item191>
<Item192>
<Filename Value="../expat-pas/ascii.inc"/>
<Type Value="Include"/>
</Item192>
<Item193>
<Filename Value="../expat-pas/asciitab.inc"/>
<Type Value="Include"/>
</Item193>
<Item194>
<Filename Value="../expat-pas/ascii.inc"/>
<Filename Value="../expat-pas/asciitab_bt_colon_.inc"/>
<Type Value="Include"/>
</Item194>
<Item195>
<Filename Value="../expat-pas/asciitab.inc"/>
<Type Value="Include"/>
</Item195>
<Item196>
<Filename Value="../expat-pas/asciitab_bt_colon_.inc"/>
<Type Value="Include"/>
</Item196>
<Item197>
<Filename Value="../expat-pas/expat.pas"/>
<UnitName Value="expat"/>
</Item197>
<Item198>
</Item195>
<Item196>
<Filename Value="../expat-pas/expat_basics.pas"/>
<UnitName Value="expat_basics"/>
</Item196>
<Item197>
<Filename Value="../expat-pas/expat_external.inc"/>
<Type Value="Include"/>
</Item197>
<Item198>
<Filename Value="../expat-pas/expat_external.pas"/>
<UnitName Value="expat_external"/>
</Item198>
<Item199>
<Filename Value="../expat-pas/expat_external.inc"/>
<Filename Value="../expat-pas/expat_mode.inc"/>
<Type Value="Include"/>
</Item199>
<Item200>
<Filename Value="../expat-pas/expat_external.pas"/>
<UnitName Value="expat_external"/>
<Filename Value="../expat-pas/iasciitab.inc"/>
<Type Value="Include"/>
</Item200>
<Item201>
<Filename Value="../expat-pas/expat_mode.inc"/>
<Filename Value="../expat-pas/iasciitab_bt_colon_.inc"/>
<Type Value="Include"/>
</Item201>
<Item202>
<Filename Value="../expat-pas/iasciitab.inc"/>
<Type Value="Include"/>
<Filename Value="../expat-pas/readme.txt"/>
<Type Value="Text"/>
</Item202>
<Item203>
<Filename Value="../expat-pas/iasciitab_bt_colon_.inc"/>
<Filename Value="../expat-pas/utf8tab.inc"/>
<Type Value="Include"/>
</Item203>
<Item204>
<Filename Value="../expat-pas/readme.txt"/>
<Type Value="Text"/>
<Filename Value="../expat-pas/winconfig.inc"/>
<Type Value="Include"/>
</Item204>
<Item205>
<Filename Value="../expat-pas/utf8tab.inc"/>
<Filename Value="../expat-pas/xmlparse.inc"/>
<Type Value="Include"/>
</Item205>
<Item206>
<Filename Value="../expat-pas/winconfig.inc"/>
<Type Value="Include"/>
</Item206>
<Item207>
<Filename Value="../expat-pas/xmlparse.inc"/>
<Type Value="Include"/>
</Item207>
<Item208>
<Filename Value="../expat-pas/xmlrole.pas"/>
<UnitName Value="xmlrole"/>
</Item208>
<Item209>
</Item206>
<Item207>
<Filename Value="../expat-pas/xmltok.pas"/>
<UnitName Value="xmltok"/>
</Item209>
<Item210>
</Item207>
<Item208>
<Filename Value="../expat-pas/xmltok_impl.inc"/>
<Type Value="Include"/>
</Item210>
<Item211>
</Item208>
<Item209>
<Filename Value="../expat-pas/xmltok_ns.inc"/>
<Type Value="Include"/>
</Item211>
</Item209>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">

21
components/aggpas/src/platform/lcl/agg_linux_mini_libc.pas
View File

@ -1,21 +0,0 @@
unit agg_linux_mini_libc;
{$mode delphi}
interface
uses
ctypes;
const
clib = 'c';
CLOCKS_PER_SEC = 1000000;
type
clock_t = clong;
function clock:clock_t;cdecl;external clib name 'clock';
implementation
end.

2516
components/aggpas/src/platform/lcl/agg_platform_support.pas
View File

File diff suppressed because it is too large Load Diff

40
components/aggpas/src/platform/lcl/file_utils_.pas
View File

@ -10,7 +10,7 @@ INTERFACE
{$I agg_mode.inc }
{$I- }
uses
agg_basics ;
sysutils, FileUtil, agg_basics;
{ TYPES DEFINITION }
type
@ -77,7 +77,7 @@ type
);
const
dir_slash = '/';
dir_slash = PathDelim;
pageEqHigh : shortstring =
#1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16 +
@ -99,7 +99,7 @@ const
{ UNIT IMPLEMENTATION }
{ CUT_STR }
function cut_str;
function cut_str(s : shortstring ) : shortstring;
var
fcb : byte;
scn : tSCAN;
@ -133,14 +133,14 @@ begin
end;
{ CMP_STR }
function cmp_str;
function cmp_str(s : shortstring ) : shortstring;
begin
cmp_str:=up_str(cut_str(s ) );
end;
{ UP_STR }
function up_str;
function up_str(s : shortstring ) : shortstring;
var
fcb : byte;
@ -155,7 +155,7 @@ begin
end;
{ STR_DIR }
function str_dir;
function str_dir(s : shortstring ) : shortstring;
begin
s:=cut_str(s );
@ -168,7 +168,7 @@ begin
end;
{ DIR_STR }
function dir_str;
function dir_str(s : shortstring ) : shortstring;
begin
s:=cut_str(s );
@ -181,7 +181,7 @@ begin
end;
{ STR_DISK }
function str_disk;
function str_disk(fn : shortstring ) : shortstring;
var
fcb : byte;
str : shortstring;
@ -279,7 +279,7 @@ begin
end;
{ STR_PATH }
function str_path;
function str_path(fn : shortstring ) : shortstring;
var
fcb : byte;
pth ,
@ -367,7 +367,7 @@ begin
end;
{ STR_NAME }
function str_name;
function str_name(fn : shortstring ) : shortstring;
var
fcb : byte;
str ,
@ -547,7 +547,7 @@ begin
end;
{ STR_EXT }
function str_ext;
function str_ext(fn : shortstring ) : shortstring;
var
fcb : byte;
ext : shortstring;
@ -639,7 +639,7 @@ begin
end;
{ FOLD_NAME }
function fold_name;
function fold_name(p ,n ,x : shortstring ) : shortstring;
var
dsk ,
nme ,
@ -657,7 +657,7 @@ begin
end;
{ SPREAD_NAME }
procedure spread_name;
procedure spread_name(fn : shortstring; var p ,n ,x : shortstring );
begin
p:=str_disk(fn ) + str_dir(str_path(fn ) );
n:=str_name(fn );
@ -666,7 +666,7 @@ begin
end;
{ FILE_EXISTS }
function file_exists;
function file_exists(fn : shortstring ) : boolean;
var
f : file;
@ -687,7 +687,7 @@ begin
end;
{ API_OPEN_FILE }
function api_open_file;
function api_open_file(var af : api_file; fname : shortstring ) : boolean;
begin
result:=false;
@ -705,7 +705,7 @@ begin
begin
af.isOpened:=true;
af.fSize:=filesize(af.df );
af.fSize:=System.filesize(af.df );
af.fRead:=0;
end;
@ -715,7 +715,7 @@ begin
end;
{ API_READ_FILE }
function api_read_file;
function api_read_file(var af : api_file; buff : pointer; aloc : int; var read : int ) : boolean;
begin
result:=false;
read :=0;
@ -742,7 +742,7 @@ begin
end;
{ API_CLOSE_FILE }
function api_close_file;
function api_close_file(var af : api_file ) : boolean;
begin
result:=false;
@ -759,14 +759,14 @@ begin
end;
{ PARAM_COUNT }
function param_count;
function param_count: int;
begin
result:=ParamCount;
end;
{ PARAM_STR }
function param_str;
function param_str(i : int ) : shortstring;
begin
result:=ParamStr(i );