← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/gtk2/gtk+/gdk/gdki18n.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/gtk2/gtk+/gdk/gdki18n.inc
 
1
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
 
2
Type
 
3
  PLongint  = ^Longint;
 
4
  PSmallInt = ^SmallInt;
 
5
  PByte     = ^Byte;
 
6
  PWord     = ^Word;
 
7
  PDWord    = ^DWord;
 
8
  PDouble   = ^Double;
 
9
 
 
10
{$PACKRECORDS C}
 
11
 
 
12
{ GDK - The GIMP Drawing Kit
 
13
   Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 
14
 
 
15
   This library is free software; you can redistribute it and/or
 
16
   modify it under the terms of the GNU Lesser General Public
 
17
   License as published by the Free Software Foundation; either
 
18
   version 2 of the License, or (at your option) any later version.
 
19
 
 
20
   This library is distributed in the hope that it will be useful,
 
21
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
22
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
23
   Lesser General Public License for more details.
 
24
 
 
25
   You should have received a copy of the GNU Lesser General Public
 
26
   License along with this library; if not, write to the
 
27
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
28
   Boston, MA 02111-1307, USA.
 
29
  }
 
30
{
 
31
   Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
 
32
   file for a list of people on the GTK+ Team.  See the ChangeLog
 
33
   files for a list of changes.  These files are distributed with
 
34
   GTK+ at ftp://ftp.gtk.org/pub/gtk/.
 
35
  }
 
36
{$ifndef __GDK_I18N_H__}
 
37
{$define __GDK_I18N_H__}
 
38
{$ifndef GDK_DISABLE_DEPRECATED}
 
39
{ GDK uses "glib". (And so does GTK).
 
40
  }
 
41
 
 
42
{$include <gdkconfig.inc}
 
43
{ international string support  }
 
44
{$include <stdlib.inc}
 
45
{$if !defined(GDK_HAVE_BROKEN_WCTYPE) && (defined(GDK_HAVE_WCTYPE_H) || defined(GDK_HAVE_WCHAR_H)) && !defined(X_LOCALE)}
 
46
{$ifdef GDK_HAVE_WCTYPE_H}
 
47
{$include <wctype.inc}
 
48
{$else}
 
49
{$ifdef GDK_HAVE_WCHAR_H}
 
50
{$include <wchar.inc}
 
51
{$endif}
 
52
{$endif}
 
53
{ was #define dname(params) para_def_expr }
 
54
{ argument types are unknown }
 
55
{ return type might be wrong }
 
56
function gdk_iswalnum(c : longint) : longint;
 
57
 
 
58
{ was #define dname(params) para_def_expr }
 
59
{ argument types are unknown }
 
60
{ return type might be wrong }
 
61
function gdk_iswspace(c : longint) : longint;
 
62
 
 
63
{$else}
 
64
{$include <ctype.inc}
 
65
{ was #define dname(params) para_def_expr }
 
66
{ argument types are unknown }
 
67
{ return type might be wrong }
 
68
function gdk_iswalnum(c : longint) : longint;
 
69
 
 
70
{ was #define dname(params) para_def_expr }
 
71
{ argument types are unknown }
 
72
{ return type might be wrong }
 
73
function gdk_iswspace(c : longint) : longint;
 
74
 
 
75
{$endif}
 
76
{$endif}
 
77
{ GDK_DISABLE_DEPRECATED  }
 
78
{$endif}
 
79
{ __GDK_I18N_H__  }
 
80
{ was #define dname(params) para_def_expr }
 
81
{ argument types are unknown }
 
82
{ return type might be wrong }
 
83
function gdk_iswalnum(c : longint) : longint;
 
84
begin
 
85
   gdk_iswalnum:=iswalnum(c);
 
86
end;
 
87
 
 
88
{ was #define dname(params) para_def_expr }
 
89
{ argument types are unknown }
 
90
{ return type might be wrong }
 
91
function gdk_iswspace(c : longint) : longint;
 
92
begin
 
93
   gdk_iswspace:=iswspace(c);
 
94
end;
 
95
 
 
96
{ was #define dname(params) para_def_expr }
 
97
{ argument types are unknown }
 
98
{ return type might be wrong }
 
99
function gdk_iswalnum(c : longint) : longint;
 
100
begin
 
101
   gdk_iswalnum:=(Twchar_t(c)) <= ($FF and (@(isalnum(c))));
 
102
end;
 
103
 
 
104
{ was #define dname(params) para_def_expr }
 
105
{ argument types are unknown }
 
106
{ return type might be wrong }
 
107
function gdk_iswspace(c : longint) : longint;
 
108
begin
 
109
   gdk_iswspace:=(Twchar_t(c)) <= ($FF and (@(isspace(c))));
 
110
end;
 
111
 
 
112