mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
36 lines
998 B
Mathematica
36 lines
998 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This regression test for Mantis bug #486 is cut down from code that was
|
|
% originally in extras/graphics/mercury_glut/glut.window.m.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module bug486.bug486_helper_1.
|
|
:- interface.
|
|
|
|
:- type bug486_helper_1.state
|
|
---> x
|
|
; y
|
|
; window_width
|
|
; window_height.
|
|
|
|
:- implementation.
|
|
|
|
:- pragma foreign_decl("C",
|
|
"
|
|
#define GLUT_WINDOW_X 41
|
|
#define GLUT_WINDOW_Y 42
|
|
#define GLUT_WINDOW_WIDTH 43
|
|
#define GLUT_WINDOW_HEIGHT 44
|
|
").
|
|
|
|
:- pragma foreign_enum("C", bug486_helper_1.state/0,
|
|
[
|
|
x - "GLUT_WINDOW_X",
|
|
y - "GLUT_WINDOW_Y",
|
|
window_width - "GLUT_WINDOW_WIDTH",
|
|
window_height - "GLUT_WINDOW_HEIGHT"
|
|
]).
|