--- /dev/null
+/* =========================================================================
+** Extended Template and Library
+** stringf Procedure Implementation
+** $Id$
+**
+** Copyright (c) 2002 Robert B. Quattlebaum Jr.
+** Copyright (c) 2007 Chris Moore
+**
+** This package is free software; you can redistribute it and/or
+** modify it under the terms of the GNU General Public License as
+** published by the Free Software Foundation; either version 2 of
+** the License, or (at your option) any later version.
+**
+** This package 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
+** General Public License for more details.
+**
+** === N O T E S ===========================================================
+**
+** This is an internal header file, included by other ETL headers.
+** You should not attempt to use it directly.
+**
+** ========================================================================= */
+
+/* === S T A R T =========================================================== */
+
+#ifndef __ETL__STRINGF_H
+#define __ETL__STRINGF_H
+
+/* === H E A D E R S ======================================================= */
+
+#include <string>
+#include <cstdarg>
+#include <cstdlib>
+
+/* === M A C R O S ========================================================= */
+
+#ifndef ETL_STRPRINTF_MAX_LENGTH
+#define ETL_STRPRINTF_MAX_LENGTH (800)
+#endif
+
+#ifdef WIN32
+#define POPEN_BINARY_READ_TYPE "rb"
+#define POPEN_BINARY_WRITE_TYPE "wb"
+#else
+#define POPEN_BINARY_READ_TYPE "r"
+#define POPEN_BINARY_WRITE_TYPE "w"
+#endif
+
+/* === T Y P E D E F S ===================================================== */
+
+_ETL_BEGIN_CDECLS
+
+#if defined(__APPLE__) || defined(__CYGWIN__) || defined(_WIN32)
+#define ETL_NO_THROW
+#else
+#define ETL_NO_THROW throw()
+#endif
+
+#ifdef HAVE_VASPRINTF // This is the preferred method
+ extern int vasprintf(char **,const char *,va_list)ETL_NO_THROW;
+#else
+
+# ifdef HAVE_VSNPRINTF // This is the secondary method
+ extern int vsnprintf(char *,size_t,const char*,va_list)ETL_NO_THROW;
+# endif
+
+#endif
+
+#ifdef HAVE_VSSCANF
+extern int vsscanf(const char *,const char *,va_list)ETL_NO_THROW;
+#else
+#define ETL_NO_VSTRSCANF
+#ifdef HAVE_SSCANF
+extern int sscanf(const char *buf, const char *format, ...)ETL_NO_THROW;
+#endif
+#endif
+
+#include <unistd.h>
+
+_ETL_END_CDECLS
+
+/* === C L A S S E S & S T R U C T S ======================================= */
+
+_ETL_BEGIN_NAMESPACE
+
+inline std::string
+vstrprintf(const char *format, va_list args)
+{
+#ifdef HAVE_VASPRINTF // This is the preferred method (and safest)
+ char *buffer;
+ std::string ret;
+ vasprintf(&buffer,format,args);
+ ret=buffer;
+ free(buffer);
+ return ret;
+#else
+#ifdef HAVE_VSNPRINTF // This is the secondary method (Safe, but bulky)
+#warning etl::vstrprintf() has a maximum size of ETL_STRPRINTF_MAX_LENGTH in this configuration.
+#ifdef ETL_THREAD_SAFE
+ char buffer[ETL_STRPRINTF_MAX_LENGTH];
+#else
+ static char buffer[ETL_STRPRINTF_MAX_LENGTH];
+#endif
+ vsnprintf(buffer,sizeof(buffer),format,args);
+ return buffer;
+#else // This is the worst method (UNSAFE, but "works")
+#warning Potential for Buffer-overflow bug using vsprintf
+#define ETL_UNSAFE_STRPRINTF (true)
+// Here, we are doubling the size of the buffer to make this case
+// slightly more safe.
+#ifdef ETL_THREAD_SAFE
+ char buffer[ETL_STRPRINTF_MAX_LENGTH*2];
+#else
+ static char buffer[ETL_STRPRINTF_MAX_LENGTH*2];
+#endif
+ vsprintf(buffer,format,args);
+ return buffer;
+#endif
+#endif
+}
+
+inline std::string
+strprintf(const char *format, ...)
+{
+ va_list args;
+ va_start(args,format);
+ return vstrprintf(format,args);
+}
+
+#ifndef ETL_NO_VSTRSCANF
+inline int
+vstrscanf(const std::string &data, const char*format, va_list args)
+{
+ return vsscanf(data.c_str(),format,args);
+}
+
+inline int
+strscanf(const std::string &data, const char*format, ...)
+{
+ va_list args;
+ va_start(args,format);
+ return vstrscanf(data, format,args);
+}
+#else
+
+#if defined (HAVE_SSCANF) && defined (__GNUC__)
+#define strscanf(data,format,...) sscanf(data.c_str(),format,__VA_ARGS__)
+#endif
+#endif
+
+
+#define stratof(X) (atof((X).c_str()))
+#define stratoi(X) (atoi((X).c_str()))
+
+inline std::string
+basename(const std::string &str)
+{
+ std::string::const_iterator iter;
+
+ if(str.size() == 1 && str[0] == ETL_DIRECTORY_SEPARATOR)
+ return str;
+
+ if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
+ iter=str.end()-2;
+ else
+ iter=str.end()-1;
+
+ for(;iter!=str.begin();iter--)
+ if(*iter==ETL_DIRECTORY_SEPARATOR)
+ break;
+
+ if (*iter==ETL_DIRECTORY_SEPARATOR)
+ iter++;
+
+ if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
+ return std::string(iter,str.end()-1);
+
+ return std::string(iter,str.end());
+}
+
+inline std::string
+dirname(const std::string &str)
+{
+ std::string::const_iterator iter;
+
+ if(str.size() == 1 && str[0] == ETL_DIRECTORY_SEPARATOR)
+ return str;
+
+ if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
+ iter=str.end()-2;
+ else
+ iter=str.end()-1;
+
+ for(;iter!=str.begin();iter--)
+ if(*iter==ETL_DIRECTORY_SEPARATOR)
+ break;
+
+ if(iter==str.begin())
+ {
+ if (*iter==ETL_DIRECTORY_SEPARATOR)
+ return "/";
+ else
+ return ".";
+ }
+
+ return std::string(str.begin(),iter);
+}
+
+// filename_extension("/f.e/d.c") => ".c"
+inline std::string
+filename_extension(const std::string &str)
+{
+ std::string base = basename(str);
+ std::string::size_type pos = base.find_last_of('.');
+ if (pos == std::string::npos) return std::string();
+ return base.substr(pos);
+}
+
+// filename_sans_extension("/f.e/d.c") => "/f.e/d"
+inline std::string
+filename_sans_extension(const std::string &str)
+{
+ std::string base = basename(str);
+ std::string::size_type pos = base.find_last_of('.');
+ if (pos == std::string::npos) return str;
+ std::string dir = dirname(str);
+ if (dir == ".") return base.substr(0,pos);
+ return dir + ETL_DIRECTORY_SEPARATOR + base.substr(0,pos);
+}
+
+inline bool
+is_absolute_path(const std::string &path)
+{
+#ifdef WIN32
+ if(path.size()>=3 && path[1]==':' && (path[2]=='\\' || path[2]=='/'))
+ return true;
+#endif
+ if(!path.empty() && path[0]==ETL_DIRECTORY_SEPARATOR)
+ return true;
+ return false;
+}
+
+inline std::string
+unix_to_local_path(const std::string &path)
+{
+ std::string ret;
+ std::string::const_iterator iter;
+ for(iter=path.begin();iter!=path.end();iter++)
+ switch(*iter)
+ {
+ case '/':
+ ret+=ETL_DIRECTORY_SEPARATOR;
+ break;
+ case '~':
+ ret+='~';
+ break;
+ default:
+ ret+=*iter;
+ break;
+ }
+ return ret;
+}
+
+inline std::string
+current_working_directory()
+{
+ char dir[256];
+ std::string ret(getcwd(dir,sizeof(dir)));
+ return ret;
+}
+
+inline std::string
+get_root_from_path(std::string path)
+{
+ std::string ret;
+ std::string::const_iterator iter;
+
+ for(iter=path.begin();iter!=path.end();++iter)
+ {
+ if(*iter==ETL_DIRECTORY_SEPARATOR)
+ break;
+ ret+=*iter;
+ }
+ //if(iter!=path.end())
+ ret+=ETL_DIRECTORY_SEPARATOR;
+ return ret;
+}
+
+inline std::string
+remove_root_from_path(std::string path)
+{
+ while(!path.empty())
+ {
+ if(path[0]==ETL_DIRECTORY_SEPARATOR)
+ {
+ path.erase(path.begin());
+ return path;
+ }
+ path.erase(path.begin());
+ }
+ return path;
+}
+
+inline std::string
+cleanup_path(std::string path)
+{
+ std::string ret;
+
+ while(basename(path)=="."&&path.size()!=1)path=dirname(path);
+
+ while(!path.empty())
+ {
+ std::string dir(get_root_from_path(path));
+ if((dir=="../" || dir=="..\\") && ret.size())
+ {
+ ret=dirname(ret);
+ if (*(ret.end()-1)!=ETL_DIRECTORY_SEPARATOR)
+ ret+=ETL_DIRECTORY_SEPARATOR;
+ }
+ else if((dir!="./" && dir!=".\\") && dir!=".")
+ ret+=dir;
+ path=remove_root_from_path(path);
+ }
+ if (ret.size()==0)ret+='.';
+
+ // Remove any trailing directory separators
+ if(ret.size() && ret[ret.size()-1]==ETL_DIRECTORY_SEPARATOR)
+ ret.erase(ret.begin()+ret.size()-1);
+ return ret;
+}
+
+inline std::string
+absolute_path(std::string path)
+{
+ std::string ret(current_working_directory());
+
+ if(path.empty())
+ return cleanup_path(ret);
+ if(is_absolute_path(path))
+ return cleanup_path(path);
+ return cleanup_path(ret+ETL_DIRECTORY_SEPARATOR+path);
+}
+
+inline std::string
+relative_path(std::string curr_path,std::string dest_path)
+{
+ // If dest_path is already a relative path,
+ // then there is no need to do anything.
+ if(!is_absolute_path(dest_path))
+ dest_path=absolute_path(dest_path);
+ else
+ dest_path=cleanup_path(dest_path);
+
+ if(!is_absolute_path(curr_path))
+ curr_path=absolute_path(curr_path);
+ else
+ curr_path=cleanup_path(curr_path);
+
+#ifdef WIN32
+ // If we are on windows and the dest path is on a different drive,
+ // then there is no way to make a relative path to it.
+ if(dest_path.size()>=3 && dest_path[1]==':' && dest_path[0]!=curr_path[0])
+ return dest_path;
+#endif
+
+ if(curr_path==dirname(dest_path))
+ return basename(dest_path);
+
+ while(!dest_path.empty() && !curr_path.empty() && get_root_from_path(dest_path)==get_root_from_path(curr_path))
+ {
+ dest_path=remove_root_from_path(dest_path);
+ curr_path=remove_root_from_path(curr_path);
+ }
+
+ while(!curr_path.empty())
+ {
+ dest_path=std::string("..")+ETL_DIRECTORY_SEPARATOR+dest_path;
+ curr_path=remove_root_from_path(curr_path);
+ }
+
+ return dest_path;
+}
+
+_ETL_END_NAMESPACE
+
+/* === E N D =============================================================== */
+
+#endif