/*
-----------------------------------------------------------------------------
This source file is part of OpenSpace3D
For the latest info, see http://www.openspace3d.com

Copyright (c) 2012 I-maginer

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA, or go to
http://www.gnu.org/copyleft/lesser.txt

-----------------------------------------------------------------------------
*/

/**************************************************
 OpenSpace 3D Player Logs
 Author: Bastien BOURINEAU / I-maginer
 Last update: 11.16.2010

**************************************************/

typeof mCbCatchLog = fun [S] I;;

fun setCbCatchLog(cbfun)=
  set mCbCatchLog = cbfun;
  0;;


fun addLogMessage(message)=
  _fooS strcat ">>>>>>>>>>>>>> OS3D editor log > " message;
  if (mCbCatchLog == nil) then nil else
    execch _channel mCbCatchLog [message];
  message;;


fun addLogMessageMulti(message, l)=
  let sizelist l -> size in
  let 0 -> i in
  while i < size do
  (
    let nth_list l i -> elt in
      _fooS strcatn ">>>>>>>>>>>>>> OS3D editor log > "::message::" "::elt::nil;
    
    set i = i + 1;
  );
  0;;


fun addLogMessageVector3F(message, vec)=
  let vec -> [x y z] in
    addLogMessage strcatnSep message::(ftoa x)::(ftoa y)::(ftoa z)::nil " ";;


fun addLogMessageVector4F(message, vec)=
  let vec -> [x y z w] in
    addLogMessage strcatnSep message::(ftoa x)::(ftoa y)::(ftoa z)::(ftoa w)::nil " ";;