← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/glib/gmarkup.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/glib/gmarkup.inc
 
1
{*
 
2
 * gmarkup.inc
 
3
 *
 
4
 * depends on gerror.inc
 
5
 *}
 
6
 
 
7
 
 
8
  { These three are primarily intended for specific GMarkupParser
 
9
       implementations to set.
 
10
      }
 
11
  type
 
12
 
 
13
     PGMarkupError = ^TGMarkupError;
 
14
     TGMarkupError = (G_MARKUP_ERROR_BAD_UTF8,
 
15
                      G_MARKUP_ERROR_EMPTY,
 
16
                      G_MARKUP_ERROR_PARSE,
 
17
                      G_MARKUP_ERROR_UNKNOWN_ELEMENT,
 
18
                      G_MARKUP_ERROR_UNKNOWN_ATTRIBUTE,
 
19
                      G_MARKUP_ERROR_INVALID_CONTENT);
 
20
 
 
21
 
 
22
  function G_MARKUP_ERROR : TGQuark;
 
23
 
 
24
 
 
25
  function g_markup_error_quark:TGQuark;cdecl;external gliblib name 'g_markup_error_quark';
 
26
 
 
27
  type
 
28
     PGMarkupParseFlags = ^TGMarkupParseFlags;
 
29
     TGMarkupParseFlags = integer;
 
30
 
 
31
  const
 
32
     { Hmm, can't think of any at the moment  }
 
33
     G_MARKUP_DO_NOT_USE_THIS_UNSUPPORTED_FLAG = 1 shl 0;
 
34
 
 
35
  type
 
36
     PGMarkupParseContext = ^TGMarkupParseContext;
 
37
     TGMarkupParseContext = pointer;                // please correct me if it's wrong
 
38
 
 
39
 
 
40
     PGMarkupParser = ^TGMarkupParser;
 
41
     TGMarkupParser = record
 
42
 
 
43
       { Called for open tags <foo bar="baz">  }
 
44
          start_element : procedure (context          : PGMarkupParseContext;
 
45
                                     element_name     : Pgchar;
 
46
                                     attribute_names  : PPgchar;
 
47
                                     attribute_values : PPgchar;
 
48
                                     user_data        : gpointer; error:PPGError);cdecl;
 
49
 
 
50
       { Called for close tags </foo>  }
 
51
          end_element   : procedure (context          : PGMarkupParseContext;
 
52
                                     element_name     : Pgchar;
 
53
                                     user_data        : gpointer;
 
54
                                     error            : PPGError); cdecl;
 
55
 
 
56
       { Called for character data  }
 
57
       { text is not nul-terminated  }
 
58
          text          : procedure (context          : PGMarkupParseContext;
 
59
                                     text             : Pgchar;
 
60
                                     text_len         : gsize;
 
61
                                     user_data        : gpointer;
 
62
                                     error            : PPGError); cdecl;
 
63
 
 
64
  { Called for strings that should be re-saved verbatim in this same
 
65
       position, but are not otherwise interpretable.  At the moment
 
66
       this includes comments and processing instructions.
 
67
      }
 
68
  { text is not nul-terminated.  }
 
69
 
 
70
          passthrough   : procedure (context          : PGMarkupParseContext;
 
71
                                     passthrough_text : Pgchar;
 
72
                                     text_len         : gsize;
 
73
                                     user_data        : gpointer;
 
74
                                     error            : PPGError); cdecl;
 
75
 
 
76
  { Called on error, including one set by other
 
77
       methods in the vtable. The GError should not be freed.
 
78
      }
 
79
          error          : procedure (context         : PGMarkupParseContext;
 
80
                                      error           : PGError;
 
81
                                      user_data       : gpointer); cdecl;
 
82
       end;
 
83
 
 
84
 
 
85
 
 
86
  function  g_markup_parse_context_new (parser            : PGMarkupParser;
 
87
                                        flags             : TGMarkupParseFlags;
 
88
                                        user_data         : gpointer;
 
89
                                        user_data_dnotify : TGDestroyNotify): PGMarkupParseContext;  cdecl;external gliblib name 'g_markup_parse_context_new';
 
90
 
 
91
  procedure g_markup_parse_context_free(context           : PGMarkupParseContext);cdecl;external gliblib name 'g_markup_parse_context_free';
 
92
 
 
93
  function  g_markup_parse_context_parse(context          : PGMarkupParseContext;
 
94
                                         text             : Pgchar;
 
95
                                         text_len         : gssize;
 
96
                                         error            : PPGError):gboolean;cdecl;external gliblib name 'g_markup_parse_context_parse';
 
97
 
 
98
  function  g_markup_parse_context_end_parse(context      : PGMarkupParseContext;
 
99
                                             error        : PPGError):gboolean;cdecl;external gliblib name 'g_markup_parse_context_end_parse';
 
100
 
 
101
  { For user-constructed error messages, has no precise semantics  }
 
102
  procedure g_markup_parse_context_get_position(context     : PGMarkupParseContext;
 
103
                                                line_number : Pgint;
 
104
                                                char_number : Pgint);cdecl;external gliblib name 'g_markup_parse_context_get_position';
 
105
 
 
106
  { useful when saving  }
 
107
  function g_markup_escape_text (text   : Pgchar;
 
108
                                 length : gssize):Pgchar;cdecl;external gliblib name 'g_markup_escape_text';
 
109
 
 
110
 
 
111