programs/winetest/include/glu32.pm

package glu32;

use strict;

require Exporter;

use wine;
use vars qw(@ISA @EXPORT @EXPORT_OK);

@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();

my $module_declarations = {
    "gluBeginCurve" => ["long",  ["ptr"]],
    "gluBeginPolygon" => ["long",  ["ptr"]],
    "gluBeginSurface" => ["long",  ["ptr"]],
    "gluBeginTrim" => ["long",  ["ptr"]],
    "gluBuild1DMipmaps" => ["long",  ["long", "long", "long", "long", "long", "ptr"]],
    "gluBuild2DMipmaps" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr"]],
    "gluCheckExtension" => ["long",  ["ptr", "ptr"]],
    "gluCylinder" => ["long",  ["ptr", "double", "double", "double", "long", "long"]],
    "gluDeleteNurbsRenderer" => ["long",  ["ptr"]],
    "gluDeleteQuadric" => ["long",  ["ptr"]],
    "gluDeleteTess" => ["long",  ["ptr"]],
    "gluDisk" => ["long",  ["ptr", "double", "double", "long", "long"]],
    "gluEndCurve" => ["long",  ["ptr"]],
    "gluEndPolygon" => ["long",  ["ptr"]],
    "gluEndSurface" => ["long",  ["ptr"]],
    "gluEndTrim" => ["long",  ["ptr"]],
    "gluErrorString" => ["long",  ["long"]],
    "gluGetNurbsProperty" => ["long",  ["ptr", "long", "ptr"]],
    "gluGetString" => ["long",  ["long"]],
    "gluLoadSamplingMatrices" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
    "gluLookAt" => ["long",  ["double", "double", "double", "double", "double", "double", "double", "double", "double"]],
    "gluNewNurbsRenderer" => ["long",  ["undef"]],
    "gluNewQuadric" => ["long",  ["undef"]],
    "gluNewTess" => ["long",  ["undef"]],
    "gluNextContour" => ["long",  ["ptr", "long"]],
    "gluNurbsCallback" => ["long",  ["ptr", "long", "ptr"]],
    "gluNurbsCurve" => ["long",  ["ptr", "long", "ptr", "long", "ptr", "long", "long"]],
    "gluNurbsProperty" => ["long",  ["ptr", "long", "long"]],
    "gluNurbsSurface" => ["long",  ["ptr", "long", "ptr", "long", "ptr", "long", "long", "ptr", "long", "long", "long"]],
    "gluOrtho2D" => ["long",  ["double", "double", "double", "double"]],
    "gluPartialDisk" => ["long",  ["ptr", "double", "double", "long", "long", "double", "double"]],
    "gluPerspective" => ["long",  ["double", "double", "double", "double"]],
    "gluPickMatrix" => ["long",  ["double", "double", "double", "double", "ptr"]],
    "gluProject" => ["long",  ["double", "double", "double", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
    "gluPwlCurve" => ["long",  ["ptr", "long", "ptr", "long", "long"]],
    "gluQuadricCallback" => ["long",  ["ptr", "long", "ptr"]],
    "gluQuadricDrawStyle" => ["long",  ["ptr", "long"]],
    "gluQuadricNormals" => ["long",  ["ptr", "long"]],
    "gluQuadricOrientation" => ["long",  ["ptr", "long"]],
    "gluQuadricTexture" => ["long",  ["ptr", "long"]],
    "gluScaleImage" => ["long",  ["long", "long", "long", "long", "ptr", "long", "long", "long", "ptr"]],
    "gluSphere" => ["long",  ["ptr", "double", "long", "long"]],
    "gluTessCallback" => ["long",  ["ptr", "long", "ptr"]],
    "gluTessVertex" => ["long",  ["ptr", "ptr", "ptr"]],
    "gluUnProject" => ["long",  ["double", "double", "double", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]]
};

&wine::declare("glu32",%$module_declarations);
push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
1;