<div class="blog">
<h1 id="NAME">
-Design of SDL::Rect
+The beginnings of modular design for SDL Perl
</h1>
<div class="CONTENT">
-<div style="text-align: right;"><i><br />you say things,<br />I hear,<br />but don't listen,<br /><br />you show things,<br />I see,<br />but don't understand,<br /><br />you write things,<br />I read,<br />but don't know.<br /></i></div><br />Lately we have been working on cleaning up the XS name spaces of SDL perl. After some bumps and falls we came up with a separated Rect module. Rect is one of the most simple C struct as shown below. <br /><br /><script src="http://gist.github.com/185940.js"></script><br /><br />Using the awesome <a href="http://cpansearch.perl.org/src/DMR/CookBookB-19960430/perlobject.map">perlobject.map</a> as a reference I was able to create a <a href="http://github.com/kthakore/SDL_perl/blob/a1b835c168ec184abc01edbc01862ffa15624c26/lib/SDL/Rect.pm">blessed perl</a> object in <a href="http://github.com/kthakore/SDL_perl/blob/a1b835c168ec184abc01edbc01862ffa15624c26/src/Rect.xs">XS</a>. So now SDL::Rect->new(...) gave us a blessed reference ready to go. And as an icing it would destroy itself properly no matter where it was used. But once I brought it into our existing code base, garu pointed out the extending it was a little bit of a mess. So far to extend Rect we have to something like below. Any comment or advice would be much appreciated.<br /><br /><br /><script src="http://gist.github.com/185938.js"></script><br /><br /><br />Have at it I am a big boy. You can grab the code like this.<br />Only If you don't already have a local git repo:<br /><br /><blockquote>mkdir SDL<br />cd SDL<br />git init .</blockquote><br />Then do this or skip to this if you already have a local git repo<br /><blockquote>git pull git://github.com/kthakore/SDL_perl.git experimental</blockquote><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-3340771783563950133?l=yapgh.blogspot.com'/></div></div></div>
\ No newline at end of file
+<div style="text-align: right;"><i>“Do or do not... there is no try.”</i><br /></div><div style="text-align: right;"><i>--yoda </i><br /><br /></div><h1>The design before</h1><br />The bindings before were all in <a href="http://github.com/kthakore/SDL_perl/blob/master/src/SDL.xs">one huge XS file</a>. This was then exported into the SDL module. This means that the XS file has to handle with macros if any component (e.x SDL_Mixer) is not compiled. Moreover having ever binding in one XS file prevents use to treat C structs as object with only one point of free and malloc. This would be BEGIN and DESTROY in Perl. Also the monolithic design introduces a lot of bugs because we have to use free and malloc all over the place. Lastly SDL monolithic design has the constructor for all structs in both Perl and in XS. <br /><br /><h1>The design we are aiming for</h1>Simple <a href="http://github.com/kthakore/SDL_perl/blob/master/src/Rect.xs">one XS</a> per Module. This would also simplify the Build code.<br /><br /><h2>First Step </h2><br />We have began with SDL Rect. It is in github master branch now. We are in the progress of making it back compatible. Originally SDL::Rect took named variables as parameters for new(). Now since the constructor <a href="http://github.com/kthakore/SDL_perl/blob/master/src/Rect.xs#L16">is in XS</a> we have only unnamed parameters. <br /><br /><br /><h3>Before</h3><br />SDL::Rect->new( -x => 0, -y => 0, -width => 0, -height => 0);<br /><br /><h3>After</h3><br />SDL::Rect->new(0, 0, 0, 0);<br /><br />Ideally we would like both ways of constructing Rect.<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-6151839795039915111?l=yapgh.blogspot.com' alt='' /></div></div></div>
\ No newline at end of file
projects / sdlgit/SDL-Site.git / blobdiff