From 4538f6e12fdf2e7d4deee706651e9faf3434948e Mon Sep 17 00:00:00 2001
From: Marcus Comstedt <marcus@mc.pp.se>
Date: Tue, 3 Nov 1998 04:48:23 +0100
Subject: [PATCH] More funcs.
Rev: src/post_modules/GL/features.pike:1.2
Rev: src/post_modules/GL/gen.pike:1.4
---
src/post_modules/GL/features.pike | 5 +++++
src/post_modules/GL/gen.pike | 4 ++++
2 files changed, 9 insertions(+)
diff --git a/src/post_modules/GL/features.pike b/src/post_modules/GL/features.pike
index 042581e545..9a3a97bd39 100644
--- a/src/post_modules/GL/features.pike
+++ b/src/post_modules/GL/features.pike
@@ -23,12 +23,17 @@ array func_misc = ({
({"glRotate", "V!RRRR"}),
({"glLight","VEE@Q"}),
({"glMaterial","VEE@Q"}),
+ ({"glFog","VE@Q"}),
+ ({"glLightModel","VE@Q"}),
({"glGenLists","II"}),
({"glNewList","VIE"}),
({"glCallList","VI"}),
({"glNormal","V#ZZZ"}),
({"glVertex","V+ZZZ"}),
+ ({"glColor","V+ZZZZ"}),
({"glClear","VB"}),
+ ({"glIsEnabled","OE"}),
+ ({"glBlendFunc","VEE"}),
});
mapping func_cat = ([
"VE":funcEV,
diff --git a/src/post_modules/GL/gen.pike b/src/post_modules/GL/gen.pike
index a3418f52d2..cf158bb6bf 100755
--- a/src/post_modules/GL/gen.pike
+++ b/src/post_modules/GL/gen.pike
@@ -6,6 +6,7 @@
F=float
E=enum
B=bitfield
+ O=bool
R=double/float
Q=int/float
Z=(byte/)double/float/int/short
@@ -43,6 +44,7 @@ array(string|array(string)) special_234(int mi, int mx, string ty)
case 'E':
case 'B':
case 'I':
+ case 'O':
baset="int";
tm="BIT_INT";
rt="i";
@@ -90,6 +92,7 @@ array(string) gen_func(string name, string ty)
prot=":void";
break;
case 'I':
+ case 'O':
prot=":int";
vdec="INT32";
vret="push_int";
@@ -105,6 +108,7 @@ array(string) gen_func(string name, string ty)
switch(ty[i]) {
case 'B':
case 'E':
+ case 'O':
case 'I':
argt += ({"int"});
args += ({ "arg"+i });
--
GitLab