File tree Expand file tree Collapse file tree 5 files changed +42
-1
lines changed Expand file tree Collapse file tree 5 files changed +42
-1
lines changed Original file line number Diff line number Diff line change 1
1
- add glpErrorString
2
2
- add _o aliases for all functions taking OpenGL::Array args
3
3
- use OpenGL::Modern for _c and simple bindings
4
+ - add ExtUtils::Depends support in addition to OpenGL::Config, including `use Inline with => 'OpenGL'`
4
5
5
6
0.7006 2025-04-14
6
7
- incorporate Acme::MITHALDU::BleedingOpenGL changes - thanks @wchristian
Original file line number Diff line number Diff line change @@ -75,6 +75,7 @@ lib/OpenGL/GLUT.pm
75
75
lib/OpenGL/GLUT.xs
76
76
lib/OpenGL/GLX.pm
77
77
lib/OpenGL/GLX.xs
78
+ lib/OpenGL/Install/Files.pm
78
79
lib/OpenGL/Install/typemap
79
80
lib/OpenGL/Matrix.pm
80
81
lib/OpenGL/Matrix.xs
Original file line number Diff line number Diff line change 40
40
41
41
^.*.tar.gz
42
42
^.git
43
- ^lib/OpenGL/Config.pm
43
+ ^lib/OpenGL/Config\ .pm
44
44
^Makefile$
45
45
^MYMETA.json
46
46
^MYMETA.yml
Original file line number Diff line number Diff line change @@ -4598,4 +4598,9 @@ sub glpCheckExtension
4598
4598
return 0;
4599
4599
}
4600
4600
4601
+ sub Inline {
4602
+ require OpenGL::Install::Files;
4603
+ goto &OpenGL::Install::Files::Inline;
4604
+ }
4605
+
4601
4606
1;
Original file line number Diff line number Diff line change
1
+ # maintained manually, based on output from EU:D
2
+ package OpenGL::Install::Files ;
3
+ use strict;
4
+ use warnings;
5
+ require OpenGL::Config;
6
+
7
+ our $CORE = undef ;
8
+ foreach (@INC ) {
9
+ if ( -f $_ . " /OpenGL/Install/Files.pm" ) {
10
+ $CORE = $_ . " /OpenGL/Install/" ;
11
+ last ;
12
+ }
13
+ }
14
+
15
+ our $self = {
16
+ deps => [],
17
+ inc => $OpenGL::Config -> {INC },
18
+ libs => $OpenGL::Config -> {LIBS },
19
+ typemaps => [$CORE ." typemap" ],
20
+ };
21
+
22
+ our @deps = @{ $self -> {deps } };
23
+ our @typemaps = @{ $self -> {typemaps } };
24
+ our $libs = $self -> {libs };
25
+ our $inc = $self -> {inc };
26
+
27
+ sub deps { @{ $self -> {deps } }; }
28
+
29
+ sub Inline {
30
+ my ($class , $lang ) = @_ ;
31
+ +{ map { (uc ($_ ) => $self -> {$_ }) } qw( inc libs typemaps) };
32
+ }
33
+
34
+ 1;
You can’t perform that action at this time.
0 commit comments