blob: 133adade298f2408d05e723a7f2fd870ff135d95 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
{$IfDef read_interface}
const
PATH_SEP = '/';
PATH_SEP_STR = '/';
function gnome_libdir_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_libdir_file';
function gnome_datadir_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_datadir_file';
function gnome_sound_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_sound_file';
function gnome_pixmap_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_pixmap_file';
function gnome_config_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_config_file';
function gnome_unconditional_libdir_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_unconditional_libdir_file';
function gnome_unconditional_datadir_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_unconditional_datadir_file';
function gnome_unconditional_sound_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_unconditional_sound_file';
function gnome_unconditional_pixmap_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_unconditional_pixmap_file';
function gnome_unconditional_config_file(filename:Pchar):pchar;cdecl;external libgnomedll name 'gnome_unconditional_config_file';
const
G_FILE_TEST_EXISTS = ((1 shl 0) or (1 shl 1)) or (1 shl 2);
G_FILE_TEST_ISFILE = 1 shl 0;
G_FILE_TEST_ISLINK = 1 shl 1;
G_FILE_TEST_ISDIR = 1 shl 2;
function g_file_test(filename:Pchar; test:longint):longint;cdecl;external libgnomedll name 'g_file_test';
function g_file_exists(filename:Pchar):longint;cdecl;external libgnomedll name 'g_file_exists';
function gnome_is_program_in_path(aprogram:Pgchar):Pgchar;cdecl;external libgnomedll name 'gnome_is_program_in_path';
function g_unix_error_string(error_num:longint):pchar;cdecl;external libgnomedll name 'g_unix_error_string';
function g_concat_dir_and_file(dir:Pchar; afile:Pchar):pchar;cdecl;external libgnomedll name 'g_concat_dir_and_file';
function g_extension_pointer(path:Pchar):pchar;cdecl;external libgnomedll name 'g_extension_pointer';
function g_copy_vector(vec:PPchar):Ppchar;cdecl;external libgnomedll name 'g_copy_vector';
function gnome_util_user_shell:pchar;cdecl;external libgnomedll name 'gnome_util_user_shell';
function g_is_image_filename(path:Pchar):gboolean;cdecl;external libgnomedll name 'g_is_image_filename';
//Function g_copy_strings(string1:Pgchar; args:array of const):Pgchar;
Function g_filename_index(path : Pgchar) : Pgchar;
Function g_filename_pointer(file_name:Pgchar):Pgchar;
Function g_flatten_vector(separator:Pgchar; str_array:PPgchar) : Pgchar;
Function gnome_util_user_home : Pgchar;
Function gnome_util_prepend_user_home(x : Pgchar) : Pgchar;
Function gnome_util_home_file(afile : Pgchar) : Pgchar;
{$EndIf read_interface}
{$Ifdef read_implementation}
{Function g_copy_strings(string1:Pgchar; args:array of const):Pgchar;
begin
g_copy_strings := g_strconcat(string1, args);
end;}
Function g_filename_index(path : Pgchar) : Pgchar;
begin
g_filename_index := Pointer(Longint(g_basename(path))-Longint(path));
end;
Function g_filename_pointer(file_name:Pgchar):Pgchar;
begin
g_filename_pointer := g_basename(file_name);
end;
Function g_flatten_vector(separator:Pgchar; str_array:PPgchar) : Pgchar;
begin
g_flatten_vector := g_strjoinv(separator, str_array);
end;
Function gnome_util_user_home : Pgchar;
begin
gnome_util_user_home := g_get_home_dir;
end;
Function gnome_util_prepend_user_home(x : Pgchar) : PgChar;
begin
gnome_util_prepend_user_home := g_concat_dir_and_file(gnome_util_user_home, x);
end;
Function gnome_util_home_file(afile : Pgchar) : Pgchar;
begin
gnome_util_home_file := g_strconcat(gnome_util_user_home, ['/.gnome/', afile, nil]);
end;
{$Endif read_implementation}
|