kc3-lang/SDL/premake/util/sdl_string.lua

• Show log

  Commit

• Hash : b88ca1b4
  Author :
  Date : 2015-02-10T16:28:56
  

  the last parameter of XChangeProperty is the number of elements.. and when the element format is 32.. the element is "long" so we have 5 long elements here.
  
  Yes this seems confusing as on mac+linux Long is either 32 or 64bits depending on the architecture, but this is how the X11 protocol is defined. Thus 5 is the correct value for the nelts here.  Not 5 or 10 depending on the architecture.
  
  More info on the confusion https://bugs.freedesktop.org/show_bug.cgi?id=16802
  

Download

• premake/util/sdl_string.lua

• -- Copyright (C) 1997-2014 Sam Lantinga <slouken@libsdl.org>
  --
  -- This software is provided 'as-is', without any express or implied
  -- warranty.  In no event will the authors be held liable for any damages
  -- arising from the use of this software.
  --
  -- Permission is granted to anyone to use this software for any purpose,
  -- including commercial applications, and to alter it and redistribute it
  -- freely.
  --
  -- Meta-build system using premake created and maintained by
  -- Benjamin Henning <b.henning@digipen.edu>
  
  --[[
  sdl_string.lua
  
  	Contains a few convenient string utility functions which are not supported in
  	Lua or not supported as intended.
  ]]
  
  -- Performs a non-pattern based substring search of one string in another
  -- string. It's of O(n^2) complexity. It returns nil if the result cannot be
  -- found, otherwise it returns the starting index of the first found occurrence.
  string.indexOf = function(str, substr)
  	local pos = 1
  	local i = 1
  	for i = 1, str:len(), 1 do
  		if str:sub(i, i) == substr:sub(pos, pos) then
  			-- have we matched the complete string?
  			if pos == substr:len() then
  				return i - pos + 1-- starting pos
  			end
  			-- matched character...keep going
  			pos = pos + 1
  		else
  			-- restart, no match
  			pos = 0
  		end
  	end
  	if pos == substr:len() then
  		return i - pos + 1
  	end
  	return nil -- no match
  end
  
  -- This is a public-access version of the explode function defined below.
  function explode(str, delim)
  	return str:explode(delim)
  end
  
  -- Explodes a string into an array of elements, separated by a non-pattern
  -- delimiter. This function is part of the string table, allowing for a
  -- member-based invocation for strings.
  string.explode = function(str, delim)
  	local exploded = { }
  	local needle = string.find(str, delim)
  	while needle ~= nil do
  		table.insert(exploded, string.sub(str, 0, needle - 1))
  		str = string.sub(str, needle + 1)
  		needle = string.find(str, delim)
  	end
  	table.insert(exploded, str)
  	return exploded
  end
  
  -- Similar to table.concat, except it supports more advanced token pasting. This
  -- function is vastly used by the main meta-build script (premake4.lua) to
  -- generate all the main lines of code for various tables that need to be in the
  -- generated lua file.
  --  - tbl: table of values to implode into a string
  --  - prefix: string to paste before entire result
  --  - pre: string to always paste before each entry in table
  --  - post: string to always paste after each entry in table
  --  - join: string to paste between entries (inclusive)
  --  - suffix: string to paste after entire result
  -- Returns the imploded string.
  function implode(tbl, prefix, pre, post, join, suffix)
  	local result = ""
  	-- not the most efficient way to do this, but...
  	local itbl = { }
  	for k,v in pairs(tbl) do
  		itbl[#itbl + 1] = v
  	end
  	for i = 1, #itbl, 1 do
  		if pre ~= nil then
  			result = result .. pre
  		end
  		result = result .. itbl[i]
  		if post ~= nil then
  			result = result .. post
  		end
  		if i ~= #itbl then
  			result = result .. join
  		end
  	end
  	if prefix ~= nil then
  		result = prefix .. result
  	end
  	if suffix ~= nil then
  		result = result .. suffix
  	end
  	return result
  end
  

Download