5 BASE=File::dirname($0)+'/..'
6 #Dir::chdir(BASE+'/work')
10 puts "Process returned #{$?.inspect}"
16 puts `wget -P #{BASE}/src -N http://www.opengl.org/registry/api/gl.tm http://www.opengl.org/registry/api/gl.spec http://www.opengl.org/registry/api/enum.spec http://www.opengl.org/registry/api/enumext.spec`
25 puts "Re-generates OpenGL bindings from specifications."
26 puts "Use --fetch-specs to force re-download of spec files from http://www.opengl.org/registry"
31 fetch_specs unless File::exists?("#{BASE}/src/gl.tm") and
32 File::exists?("#{BASE}/src/gl.spec") and
33 File::exists?("#{BASE}/src/enum.spec") and
34 File::exists?("#{BASE}/src/enumext.spec")
36 puts `ruby #{BASE}/generators/sexpize-gl-spec.rb`
38 puts `sbcl --load #{BASE}/generators/make-bindings-from-spec.lisp --eval "(sb-ext:quit)"`