← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/base/imagemagick/wand/magick_wand.pas

  • 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/base/imagemagick/wand/magick_wand.pas
 
1
{
 
2
  Copyright 1999-2005 ImageMagick Studio LLC, a non-profit organization
 
3
  dedicated to making software imaging solutions freely available.
 
4
  
 
5
  You may not use this file except in compliance with the License.
 
6
  obtain a copy of the License at
 
7
  
 
8
    http://www.imagemagick.org/script/license.php
 
9
  
 
10
  Unless required by applicable law or agreed to in writing, software
 
11
  distributed under the License is distributed on an "AS IS" BASIS,
 
12
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 
13
  See the License for the specific language governing permissions and
 
14
  limitations under the License.
 
15
 
 
16
  ImageMagick MagickWand API.
 
17
  
 
18
  Converted from c by: Felipe Monteiro de Carvalho Dez/2005
 
19
 
 
20
        Bug-fixed by �ngel Eduardo Garc�a Hern�ndez
 
21
        Thanks to Marc Geldon and RuBBeR
 
22
}
 
23
{Version 0.4}
 
24
unit magick_wand;
 
25
 
 
26
{$IFDEF FPC}
 
27
  {$mode objfpc}
 
28
        {$PACKRECORDS C}
 
29
{$ENDIF}
 
30
 
 
31
{$MINENUMSIZE 1}
 
32
 
 
33
interface
 
34
 
 
35
uses ImageMagick;
 
36
 
 
37
type
 
38
  MagickWand = record
 
39
    id: Cardinal;
 
40
    name: array[1..MaxTextExtent] of Char;
 
41
    exception: ExceptionInfo;
 
42
    image_info: PImageInfo;
 
43
    quantize_info: PQuantizeInfo;
 
44
    images: PImage;
 
45
    active, pend, debug: MagickBooleanType;
 
46
    signature: Cardinal;
 
47
  end;
 
48
 
 
49
  PMagickWand = ^MagickWand;
 
50
 
 
51
{$include pixel_wand.inc}
 
52
{$include drawing_wand.inc}
 
53
{$include magick_attribute.inc}
 
54
{$include magick_image.inc}
 
55
{$include pixel_iterator.inc}
 
56
 
 
57
function IsMagickWand(const wand: PMagickWand): MagickBooleanType; cdecl; external WandExport;
 
58
function MagickClearException(wand: PMagickWand): MagickBooleanType; cdecl; external WandExport;
 
59
 
 
60
function CloneMagickWand(const wand: PMagickWand): PMagickWand; cdecl; external WandExport;
 
61
function DestroyMagickWand(wand: PMagickWand): PMagickWand; cdecl; external WandExport;
 
62
function NewMagickWand: PMagickWand; cdecl; external WandExport;
 
63
 
 
64
procedure ClearMagickWand(wand: PMagickWand); cdecl; external WandExport;
 
65
procedure MagickWandGenesis; cdecl; external WandExport;
 
66
procedure MagickWandTerminus; cdecl; external WandExport;
 
67
function MagickRelinquishMemory(resource: Pointer): Pointer; cdecl; external WandExport;
 
68
procedure MagickResetIterator(wand: PMagickWand); cdecl; external WandExport;
 
69
procedure MagickSetFirstIterator(wand: PMagickWand); cdecl; external WandExport;
 
70
procedure MagickSetLastIterator(wand: PMagickWand); cdecl; external WandExport;
 
71
 
 
72
implementation
 
73
 
 
74
end.