5 BASE=File::dirname($0)+'/..'
6 #Dir::chdir(BASE+'/work')
10 puts "Process returned #{$?.inspect}"
18 puts `wget -P #{BASE}/src -c 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`
23 puts `ruby #{BASE}/generators/sexpize-gl-spec.rb`
25 puts `sbcl --load #{BASE}/generators/make-bindings-from-spec.lisp --eval "(sb-ext:quit)"`
28 open("#{BASE}/src/opengl-template.lisp") do |tf|
29 open("#{BASE}/lib/opengl.lisp","w") do |of|
30 puts "ok, writing #{BASE}/lib/opengl.lisp"
31 of.write(tf.read.sub('@EXPORTS@',open("#{BASE}/src/opengl-exports.lisp"){|i|i.read}).sub("@BODY@",open("#{BASE}/src/opengl-body.lisp"){|i|i.read}).sub("@TYPE_MAPS@",open("#{BASE}/src/opengl-type-maps.lisp"){|i|i.read}))