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

Branch : - branch - v2.28 - tag -

• Show log

  Commit

• Author : Philipp Wiesemann
  Date : 2015-06-21 17:33:46
  Hash : 0e45984f
  Message : Fixed crash if initialization of EGL failed but was tried again later. The internal function SDL_EGL_LoadLibrary() did not delete and remove a mostly uninitialized data structure if loading the library first failed. A later try to use EGL then skipped initialization and assumed it was previously successful because the data structure now already existed. This led to at least one crash in the internal function SDL_EGL_ChooseConfig() because a NULL pointer was dereferenced to make a call to eglBindAPI().

• premake/util/sdl_file.lua

• -- Copyright (C) 1997-2015 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_file.lua
  
  	This function contains a wrapper for the I/O file operations, providing a few
  	custom functions which simplify the file I/O process (especially useful for
  	the vast amount of generation used by the meta-build system).
  ]]
  
  -- Given a filename and open mode (look at io.open for more information), opens
  -- the file with various contained functions for printing to the file, writing
  -- to the file, reading from the file, or closing the file. If the filename is
  -- nil, then this will open a file in a special text mode. In that case, the
  -- mode is ignored. Returned is an instanced table with all of the
  -- aforementioned functions.
  --
  -- The print function is associated with textprint/fileprint, the write function
  -- with textwrite/filewrite, the read function with fileread, and the close
  -- function with textclose/fileclose.
  function fileopen(file, mode)
  	if file == nil then
  		return { texth = "", print = textprint, write = textwrite, read = nil, close = textclose }
  	else
  		return { fileh = io.open(file, mode), print = fileprint, write = filewrite, read = fileread, close = fileclose }
  	end
  end
  
  -- Given a filename and file mode, reads the entire contents of the file and
  -- returns the contents as a string.
  function readfile(file, mode)
  	local file = fileopen(file, mode)
  	local content = file:read()
  	file:close()
  	return content
  end
  
  -- Given a file, the number of tabs to indent, and a line to print, append the
  -- line tabbed n times with an appended newline to the end of the input text.
  function textprint(f, tabs, line)
  	for i = 0, tabs - 1, 1 do
  		f.texth = f.texth .. "\t"
  	end
  	f.texth = f.texth .. line .. "\n"
  end
  
  -- Given a file, the number of tabs to indent, and a line to print, append the
  -- line tabbed n times with an appended newline to the end of the input file.
  function fileprint(f, tabs, line)
  	for i = 0, tabs - 1, 1 do
  		f.fileh:write("\t")
  	end
  	f.fileh:write(line .. "\n")
  end
  
  -- Given a file and some text, append the text to the end of the input text.
  function textwrite(f, text)
  	f.texth = f.texth .. text
  end
  
  -- Given a file and some text, append the text to the end of the input file.
  function filewrite(f, text)
  	f.fileh:write(text)
  end
  
  -- Given a file, read all the contents of the file and return them as a string.
  function fileread(file)
  	return file.fileh:read("*all")
  end
  
  -- Given a file opened in text mode, return the result of the current file
  -- operations as a text string.
  function textclose(file)
  	return file.texth
  end
  
  -- Given a file opened regularly, close the file handle resource, preventing
  -- any future I/O operations.
  function fileclose(file)
  	file.fileh:close()
  end
  
  -- Given a source path, builds a table containing all directories and recursive
  -- subdirectories which contain files, and returns the table. Each entry in the
  -- table will have a '/' at the end of its path, plus they will all be relative
  -- to the parent source path. The table will contain a single entry with the
  -- value '/' to indicate the source path itself.
  function createDirTable(sourcePath)
  	local dirs = os.matchdirs(sourcePath.."/**")
  	for k,d in pairs(dirs) do
  		dirs[k] = string.sub(d, #sourcePath + 1) .. "/"
  	end
  	table.insert(dirs, "/")
  	return dirs
  end
  
  -- This works like os.pathsearch, but for directories. Look at the premake
  -- documentation for os.pathsearch for more information.
  os.dirpathsearch = function(subdir, path, path_delimiter)
  	for i,p in ipairs(explode(path, path_delimiter)) do
  		local needle = p .. "/" .. subdir
  		if os.isdir(needle) then
  			return needle
  		end
  	end
  	return nil
  end
  
  -- Given a variable number of environmental variable names, this will join them
  -- together based on the current OS path delimeter and quietly ignoring those
  -- variables which do not exist on this system. The resulting path is always
  -- normalized for Unix-based path separators, regardless of the system.
  os.getenvpath = function(...)
  	local path = ""
  	local pathDelimeter = ":"
  	if os.is("windows") then
  		pathDelimeter = ";"
  	end
  	for i,a in ipairs(arg) do
  		local value = os.getenv(a)
  		if value then
  			if #path > 0 then
  				path = path .. pathDelimeter
  			end
  			path = path .. value
  		end
  	end
  	-- normalize path to unix
  	return path:gsub("\\", "/"):gsub("//", "/")
  end