paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:59:08 +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_rgb565_pre.inc svneol=native#text/plain
components/aggpas/src/pf_rgba32.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/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/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_linux_mini_libc.pas svneol=native#text/plain
components/aggpas/src/platform/linux/agg_platform_support.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> <SearchPaths>
<IncludeFiles Value="../src/"/> <IncludeFiles Value="../src/"/>
<OtherUnitFiles Value="../src/;../src/util/;../src/svg/;../src/ctrl/;../src/platform/lcl/;../expat-pas/"/> <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> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <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. <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."/> 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"/> <Version Major="1"/>
<Files Count="211"> <Files Count="209">
<Item1> <Item1>
<Filename Value="../src/Agg2D.pas"/> <Filename Value="../src/Agg2D.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
@ -744,154 +744,146 @@ This software is provided &quot;as is&quot; without express or implied warranty,
<Type Value="Include"/> <Type Value="Include"/>
</Item176> </Item176>
<Item177> <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"/> <Filename Value="../src/platform/lcl/file_utils_.pas"/>
<UnitName Value="file_utils_"/> <UnitName Value="file_utils_"/>
</Item179> </Item177>
<Item180> <Item178>
<Filename Value="../src/platform/linux/agg_linux_mini_libc.pas"/> <Filename Value="../src/platform/linux/agg_linux_mini_libc.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_linux_mini_libc"/> <UnitName Value="agg_linux_mini_libc"/>
</Item180> </Item178>
<Item181> <Item179>
<Filename Value="../src/platform/linux/agg_platform_support.pas"/> <Filename Value="../src/platform/linux/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/> <UnitName Value="agg_platform_support"/>
</Item181> </Item179>
<Item182> <Item180>
<Filename Value="../src/platform/linux/file_utils_.pas"/> <Filename Value="../src/platform/linux/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/> <UnitName Value="file_utils_"/>
</Item182> </Item180>
<Item183> <Item181>
<Filename Value="../src/platform/mac/agg_mac_pmap.pas"/> <Filename Value="../src/platform/mac/agg_mac_pmap.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_mac_pmap"/> <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> </Item183>
<Item184> <Item184>
<Filename Value="../src/platform/mac/agg_platform_support.pas"/> <Filename Value="../src/platform/win/agg_platform_support.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_platform_support"/> <UnitName Value="agg_platform_support"/>
</Item184> </Item184>
<Item185> <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"/> <Filename Value="../src/platform/win/agg_win32_bmp.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="agg_win32_bmp"/> <UnitName Value="agg_win32_bmp"/>
</Item187> </Item185>
<Item188> <Item186>
<Filename Value="../src/platform/win/file_utils_.pas"/> <Filename Value="../src/platform/win/file_utils_.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="file_utils_"/> <UnitName Value="file_utils_"/>
</Item188> </Item186>
<Item189> <Item187>
<Filename Value="../src/svg/agg_svg_exception.pas"/> <Filename Value="../src/svg/agg_svg_exception.pas"/>
<UnitName Value="agg_svg_exception"/> <UnitName Value="agg_svg_exception"/>
</Item189> </Item187>
<Item190> <Item188>
<Filename Value="../src/svg/agg_svg_parser.pas"/> <Filename Value="../src/svg/agg_svg_parser.pas"/>
<UnitName Value="agg_svg_parser"/> <UnitName Value="agg_svg_parser"/>
</Item190> </Item188>
<Item191> <Item189>
<Filename Value="../src/svg/agg_svg_path_renderer.pas"/> <Filename Value="../src/svg/agg_svg_path_renderer.pas"/>
<UnitName Value="agg_svg_path_renderer"/> <UnitName Value="agg_svg_path_renderer"/>
</Item191> </Item189>
<Item192> <Item190>
<Filename Value="../src/svg/agg_svg_path_tokenizer.pas"/> <Filename Value="../src/svg/agg_svg_path_tokenizer.pas"/>
<UnitName Value="agg_svg_path_tokenizer"/> <UnitName Value="agg_svg_path_tokenizer"/>
</Item192> </Item190>
<Item193> <Item191>
<Filename Value="../src/util/agg_color_conv.pas"/> <Filename Value="../src/util/agg_color_conv.pas"/>
<UnitName Value="agg_color_conv"/> <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> </Item193>
<Item194> <Item194>
<Filename Value="../expat-pas/ascii.inc"/> <Filename Value="../expat-pas/asciitab_bt_colon_.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item194> </Item194>
<Item195> <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"/> <Filename Value="../expat-pas/expat.pas"/>
<UnitName Value="expat"/> <UnitName Value="expat"/>
</Item197> </Item195>
<Item198> <Item196>
<Filename Value="../expat-pas/expat_basics.pas"/> <Filename Value="../expat-pas/expat_basics.pas"/>
<UnitName Value="expat_basics"/> <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> </Item198>
<Item199> <Item199>
<Filename Value="../expat-pas/expat_external.inc"/> <Filename Value="../expat-pas/expat_mode.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item199> </Item199>
<Item200> <Item200>
<Filename Value="../expat-pas/expat_external.pas"/> <Filename Value="../expat-pas/iasciitab.inc"/>
<UnitName Value="expat_external"/> <Type Value="Include"/>
</Item200> </Item200>
<Item201> <Item201>
<Filename Value="../expat-pas/expat_mode.inc"/> <Filename Value="../expat-pas/iasciitab_bt_colon_.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item201> </Item201>
<Item202> <Item202>
<Filename Value="../expat-pas/iasciitab.inc"/> <Filename Value="../expat-pas/readme.txt"/>
<Type Value="Include"/> <Type Value="Text"/>
</Item202> </Item202>
<Item203> <Item203>
<Filename Value="../expat-pas/iasciitab_bt_colon_.inc"/> <Filename Value="../expat-pas/utf8tab.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item203> </Item203>
<Item204> <Item204>
<Filename Value="../expat-pas/readme.txt"/> <Filename Value="../expat-pas/winconfig.inc"/>
<Type Value="Text"/> <Type Value="Include"/>
</Item204> </Item204>
<Item205> <Item205>
<Filename Value="../expat-pas/utf8tab.inc"/> <Filename Value="../expat-pas/xmlparse.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item205> </Item205>
<Item206> <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"/> <Filename Value="../expat-pas/xmlrole.pas"/>
<UnitName Value="xmlrole"/> <UnitName Value="xmlrole"/>
</Item208> </Item206>
<Item209> <Item207>
<Filename Value="../expat-pas/xmltok.pas"/> <Filename Value="../expat-pas/xmltok.pas"/>
<UnitName Value="xmltok"/> <UnitName Value="xmltok"/>
</Item209> </Item207>
<Item210> <Item208>
<Filename Value="../expat-pas/xmltok_impl.inc"/> <Filename Value="../expat-pas/xmltok_impl.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item210> </Item208>
<Item211> <Item209>
<Filename Value="../expat-pas/xmltok_ns.inc"/> <Filename Value="../expat-pas/xmltok_ns.inc"/>
<Type Value="Include"/> <Type Value="Include"/>
</Item211> </Item209>
</Files> </Files>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2"> <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 agg_mode.inc }
{$I- } {$I- }
uses uses
agg_basics ; sysutils, FileUtil, agg_basics;
{ TYPES DEFINITION } { TYPES DEFINITION }
type type
@ -77,7 +77,7 @@ type
); );
const const
dir_slash = '/'; dir_slash = PathDelim;
pageEqHigh : shortstring = pageEqHigh : shortstring =
#1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16 + #1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16 +
@ -99,7 +99,7 @@ const
{ UNIT IMPLEMENTATION } { UNIT IMPLEMENTATION }
{ CUT_STR } { CUT_STR }
function cut_str; function cut_str(s : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
scn : tSCAN; scn : tSCAN;
@ -133,14 +133,14 @@ begin
end; end;
{ CMP_STR } { CMP_STR }
function cmp_str; function cmp_str(s : shortstring ) : shortstring;
begin begin
cmp_str:=up_str(cut_str(s ) ); cmp_str:=up_str(cut_str(s ) );
end; end;
{ UP_STR } { UP_STR }
function up_str; function up_str(s : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
@ -155,7 +155,7 @@ begin
end; end;
{ STR_DIR } { STR_DIR }
function str_dir; function str_dir(s : shortstring ) : shortstring;
begin begin
s:=cut_str(s ); s:=cut_str(s );
@ -168,7 +168,7 @@ begin
end; end;
{ DIR_STR } { DIR_STR }
function dir_str; function dir_str(s : shortstring ) : shortstring;
begin begin
s:=cut_str(s ); s:=cut_str(s );
@ -181,7 +181,7 @@ begin
end; end;
{ STR_DISK } { STR_DISK }
function str_disk; function str_disk(fn : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
str : shortstring; str : shortstring;
@ -279,7 +279,7 @@ begin
end; end;
{ STR_PATH } { STR_PATH }
function str_path; function str_path(fn : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
pth , pth ,
@ -367,7 +367,7 @@ begin
end; end;
{ STR_NAME } { STR_NAME }
function str_name; function str_name(fn : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
str , str ,
@ -547,7 +547,7 @@ begin
end; end;
{ STR_EXT } { STR_EXT }
function str_ext; function str_ext(fn : shortstring ) : shortstring;
var var
fcb : byte; fcb : byte;
ext : shortstring; ext : shortstring;
@ -639,7 +639,7 @@ begin
end; end;
{ FOLD_NAME } { FOLD_NAME }
function fold_name; function fold_name(p ,n ,x : shortstring ) : shortstring;
var var
dsk , dsk ,
nme , nme ,
@ -657,7 +657,7 @@ begin
end; end;
{ SPREAD_NAME } { SPREAD_NAME }
procedure spread_name; procedure spread_name(fn : shortstring; var p ,n ,x : shortstring );
begin begin
p:=str_disk(fn ) + str_dir(str_path(fn ) ); p:=str_disk(fn ) + str_dir(str_path(fn ) );
n:=str_name(fn ); n:=str_name(fn );
@ -666,7 +666,7 @@ begin
end; end;
{ FILE_EXISTS } { FILE_EXISTS }
function file_exists; function file_exists(fn : shortstring ) : boolean;
var var
f : file; f : file;
@ -687,7 +687,7 @@ begin
end; end;
{ API_OPEN_FILE } { API_OPEN_FILE }
function api_open_file; function api_open_file(var af : api_file; fname : shortstring ) : boolean;
begin begin
result:=false; result:=false;
@ -705,7 +705,7 @@ begin
begin begin
af.isOpened:=true; af.isOpened:=true;
af.fSize:=filesize(af.df ); af.fSize:=System.filesize(af.df );
af.fRead:=0; af.fRead:=0;
end; end;
@ -715,7 +715,7 @@ begin
end; end;
{ API_READ_FILE } { API_READ_FILE }
function api_read_file; function api_read_file(var af : api_file; buff : pointer; aloc : int; var read : int ) : boolean;
begin begin
result:=false; result:=false;
read :=0; read :=0;
@ -742,7 +742,7 @@ begin
end; end;
{ API_CLOSE_FILE } { API_CLOSE_FILE }
function api_close_file; function api_close_file(var af : api_file ) : boolean;
begin begin
result:=false; result:=false;
@ -759,14 +759,14 @@ begin
end; end;
{ PARAM_COUNT } { PARAM_COUNT }
function param_count; function param_count: int;
begin begin
result:=ParamCount; result:=ParamCount;
end; end;
{ PARAM_STR } { PARAM_STR }
function param_str; function param_str(i : int ) : shortstring;
begin begin
result:=ParamStr(i ); result:=ParamStr(i );