From abda3f12a4cd55358febab4526b7a034921f8a41 Mon Sep 17 00:00:00 2001
From: David Walter Seikel
Date: Fri, 16 May 2014 07:51:56 +1000
Subject: Various ll*List2*() fixes.

---
 lib/LSL.lua | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

(limited to 'lib')

diff --git a/lib/LSL.lua b/lib/LSL.lua
index e783087..c64a3bc 100644
--- a/lib/LSL.lua
+++ b/lib/LSL.lua
@@ -465,7 +465,7 @@ newFunc("integer",	"llList2Integer", "list l", "integer index")
 newFunc("key",		"llList2Key", "list l", "integer index")
 newFunc("list",		"llList2List", "list l", "integer start", "integer End")
 newFunc("string",	"llList2String", "list l", "integer index")
-newFunc("rotation",	"llList2Rotation", "list l", "integer index")
+newFunc("rotation",	"llList2Rot", "list l", "integer index")
 newFunc("vector",	"llList2Vector", "list l", "integer index")
 newFunc("integer",	"llListFindList", "list l", "list l1")
 newFunc("list",		"llListInsertList", "list l", "list l1", "integer index")
@@ -576,7 +576,7 @@ function --[[string]]	LSL.llDumpList2String(--[[list]] l, --[[string]] separator
   local result = ""
   for i = 1,#l do
     if "" ~= result then result = result .. separator end
-    result = result .. l[i]
+    result = result .. LSL.llList2String(l, i)
   end
   return result
 end
@@ -586,7 +586,7 @@ function --[[integer]] 	LSL.llGetListLength(--[[list]] l)
 end
 
 function --[[string]]	LSL.llList2CSV(--[[list]] l)
-  return LSL.llDumpList2String(l, ",")
+  return LSL.llDumpList2String(l, ", ")
 end
 
 function --[[float]] 	LSL.llList2Float(--[[list]] l,--[[integer]] index)
@@ -629,20 +629,38 @@ end
 
 function --[[string]]	LSL.llList2String(--[[list]] l,--[[integer]] index)
   local result = l[index+1]
+
+  if 'table' == type(result) then
+    -- Figure out if things are vectors or rotations, so we can output <> instead of [].
+    if nil == result.x then
+      result = '[' .. LSL.llDumpList2String(result, ', ') .. ']'
+    else
+      result = '<' .. LSL.llDumpList2String(result, ', ') .. '>'
+    end
+  end
   if result then return "" .. result else return "" end
 end
 
-function --[[rotation]]	LSL.llList2Rotation(--[[list]] l,--[[integer]] index)
+function --[[rotation]]	LSL.llList2Rot(--[[list]] l,--[[integer]] index)
   local result = l[index+1]
   if nil == result then result = LSL.ZERO_ROTATION end
-  -- TODO - check if it's not an actual rotation, then return LSS.ZERO_ROTATION
+  -- Check if it's not an actual rotation, then return LSS.ZERO_ROTATION
+  if 'table' ~= type(result) then result = LSL.ZERO_ROTATION end
+  if nil == result.x then result = LSL.ZERO_ROTATION end
+  if nil == result.y then result = LSL.ZERO_ROTATION end
+  if nil == result.z then result = LSL.ZERO_ROTATION end
+  if nil == result.s then result = LSL.ZERO_ROTATION end
   return result
 end
 
 function --[[vector]]	LSL.llList2Vector(--[[list]] l,--[[integer]] index)
   local result = l[index+1]
   if nil == result then result = LSL.ZERO_VECTOR end
-  -- TODO - check if it's not an actual rotation, then return LSS.ZERO_VECTOR
+  -- Check if it's not an actual rotation, then return LSS.ZERO_VECTOR
+  if 'table' ~= type(result) then result = LSL.ZERO_VECTOR end
+  if nil == result.x then result = LSL.ZERO_VECTOR end
+  if nil == result.y then result = LSL.ZERO_VECTOR end
+  if nil == result.z then result = LSL.ZERO_VECTOR end
   return result
 end
 
-- 
cgit v1.1