# HG changeset patch
# User sheepluva
# Date 1346405097 -7200
# Node ID ca14ec44b223b2525437467bae1bbd50c89af291
# Parent  d4251e519062f7f39d74d14e230398f2ba90043c
print all GL_EXTENSIONS properly to logfile (should a;sp fix build on systems with compiler/lib versions that can't implicity cast PGLubyte to PChar)

diff -r d4251e519062 -r ca14ec44b223 hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Thu Aug 30 22:13:42 2012 -0400
+++ b/hedgewars/uStore.pas	Fri Aug 31 11:24:57 2012 +0200
@@ -21,7 +21,7 @@
 
 unit uStore;
 interface
-uses SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat;
+uses StrUtils, SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat;
 
 procedure initModule;
 procedure freeModule;
@@ -688,6 +688,9 @@
 //var vendor: shortstring = '';
 var buf: array[byte] of char;
     AuxBufNum: LongInt;
+    tmpstr: AnsiString;
+    tmpint: LongInt;
+    tmpn: LongInt;
 begin
     buf[0]:= char(0); // avoid compiler hint
     AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))) + ')');
@@ -742,9 +745,26 @@
     AddFileLog('  |----- Texture Size: ' + inttostr(MaxTextureSize));
     AddFileLog('  |----- Number of auxilary buffers: ' + inttostr(AuxBufNum));
     AddFileLog('  \----- Extensions: ');
-    AddFileLogRaw(glGetString(GL_EXTENSIONS));
+    // fetch extentions and store them in string
+    tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS)));
+    tmpn := WordCount(tmpstr, [' ']);
+    tmpint := 1;
+
+    repeat
+    begin
+        // print up to 3 extentions per row
+        // ExtractWord will return empty string if index out of range
+        AddFileLog(TrimRight(
+            ExtractWord(tmpint, tmpstr, [' ']) + ' ' +
+            ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' +
+            ExtractWord(tmpint+2, tmpstr, [' '])
+        ));
+        tmpint := tmpint + 3;
+    end;
+    until (tmpint > tmpn);
+    // doesn't seem to print >256 chars, also missing explicit PChar cast
+    // AddFileLogRaw(glGetString(GL_EXTENSIONS));
     AddFileLog('');
-    //TODO: slipt Extensions line into multiple lines
 
     defaultFrame:= 0;
 {$IFDEF USE_VIDEO_RECORDING}