#ifdef _WIN32
# ifdef __MINGW32__
# ifndef off64_t
# define off64_t _off64_t /* Workaround for http://sourceforge.net/p/mingw/bugs/2024/ */
# endif
# endif
# include <direct.h>
# define S_ISDIR(mode) (((mode) & S_IFMT) == S_IFDIR)
#else
# include <unistd.h>
#endif
#include "sass.hpp"
#include <iostream>
#include <fstream>
#include <cctype>
#include <vector>
#include <algorithm>
#include <sys/stat.h>
#include "file.hpp"
#include "context.hpp"
#include "prelexer.hpp"
#include "utf8_string.hpp"
#include "sass_functions.hpp"
#include "sass2scss.h"
#ifdef _WIN32
# include <windows.h>
# ifdef _MSC_VER
# include <codecvt>
inline static std::string wstring_to_string(const std::wstring& wstr)
{
std::wstring_convert<std::codecvt_utf8<wchar_t>, wchar_t> wchar_converter;
return wchar_converter.to_bytes(wstr);
}
# else // mingw(/gcc) does not support C++11's codecvt yet.
inline static std::string wstring_to_string(const std::wstring &wstr)
{
int size_needed = WideCharToMultiByte(CP_UTF8, 0, &wstr[0], (int)wstr.size(), NULL, 0, NULL, NULL);
std::string strTo(size_needed, 0);
WideCharToMultiByte(CP_UTF8, 0, &wstr[0], (int)wstr.size(), &strTo[0], size_needed, NULL, NULL);
return strTo;
}
# endif
#endif
namespace Sass {
namespace File {
// return the current directory
// always with forward slashes
std::string get_cwd()
{
const size_t wd_len = 1024;
#ifndef _WIN32
char wd[wd_len];
std::string cwd = getcwd(wd, wd_len);
#else
wchar_t wd[wd_len];
std::string cwd = wstring_to_string(_wgetcwd(wd, wd_len));
//convert backslashes to forward slashes
replace(cwd.begin(), cwd.end(), '\\', '/');
#endif
if (cwd[cwd.length() - 1] != '/') cwd += '/';
return cwd;
}
// test if path exists and is a file
bool file_exists(const std::string& path)
{
#ifdef _WIN32
std::wstring wpath = UTF_8::convert_to_utf16(path);
DWORD dwAttrib = GetFileAttributesW(wpath.c_str());
return (dwAttrib != INVALID_FILE_ATTRIBUTES &&
(!(dwAttrib & FILE_ATTRIBUTE_DIRECTORY)));
#else
struct stat st_buf;
return (stat (path.c_str(), &st_buf) == 0) &&
(!S_ISDIR (st_buf.st_mode));
#endif
}
// return if given path is absolute
// works with *nix and windows paths
bool is_absolute_path(const std::string& path)
{
#ifdef _WIN32
if (path.length() >= 2 && isalpha(path[0]) && path[1] == ':') return true;
#endif
size_t i = 0;
// check if we have a protocol
if (path[i] && Prelexer::is_alpha(path[i])) {
// skip over all alphanumeric characters
while (path[i] && Prelexer::is_alnum(path[i])) ++i;
i = i && path[i] == ':' ? i + 1 : 0;
}
return path[i] == '/';
}
// helper function to find the last directory seperator
inline size_t find_last_folder_separator(const std::string& path, size_t limit = std::string::npos)
{
size_t pos;
size_t pos_p = path.find_last_of('/', limit);
#ifdef _WIN32
size_t pos_w = path.find_last_of('\\', limit);
#else
size_t pos_w = std::string::npos;
#endif
if (pos_p != std::string::npos && pos_w != std::string::npos) {
pos = std::max(pos_p, pos_w);
}
else if (pos_p != std::string::npos) {
pos = pos_p;
}
else {
pos = pos_w;
}
return pos;
}
// return only the directory part of path
std::string dir_name(const std::string& path)
{
size_t pos = find_last_folder_separator(path);
if (pos == std::string::npos) return "";
else return path.substr(0, pos+1);
}
// return only the filename part of path
std::string base_name(const std::string& path)
{
size_t pos = find_last_folder_separator(path);
if (pos == std::string::npos) return path;
else return path.substr(pos+1);
}
// do a logical clean up of the path
// no physical check on the filesystem
std::string make_canonical_path (std::string path)
{
// declarations
size_t pos;
#ifdef _WIN32
//convert backslashes to forward slashes
replace(path.begin(), path.end(), '\\', '/');
#endif
pos = 0; // remove all self references inside the path string
while((pos = path.find("/./", pos)) != std::string::npos) path.erase(pos, 2);
// remove all leading and trailing self references
while(path.length() > 1 && path.substr(0, 2) == "./") path.erase(0, 2);
while((pos = path.length()) > 1 && path.substr(pos - 2) == "/.") path.erase(pos - 2);
size_t proto = 0;
// check if we have a protocol
if (path[proto] && Prelexer::is_alpha(path[proto])) {
// skip over all alphanumeric characters
while (path[proto] && Prelexer::is_alnum(path[proto++])) {}
// then skip over the mandatory colon
if (proto && path[proto] == ':') ++ proto;
}
// then skip over start slashes
while (path[proto++] == '/') {}
pos = proto; // collapse multiple delimiters into a single one
while((pos = path.find("//", pos)) != std::string::npos) path.erase(pos, 1);
return path;
}
// join two path segments cleanly together
// but only if right side is not absolute yet
std::string join_paths(std::string l, std::string r)
{
#ifdef _WIN32
// convert Windows backslashes to URL forward slashes
replace(l.begin(), l.end(), '\\', '/');
replace(r.begin(), r.end(), '\\', '/');
#endif
if (l.empty()) return r;
if (r.empty()) return l;
if (is_absolute_path(r)) return r;
if (l[l.length()-1] != '/') l += '/';
while ((r.length() > 3) && ((r.substr(0, 3) == "../") || (r.substr(0, 3)) == "..\\")) {
size_t L = l.length(), pos = find_last_folder_separator(l, L - 2);
bool is_slash = pos + 2 == L && (l[pos+1] == '/' || l[pos+1] == '\\');
bool is_self = pos + 3 == L && (l[pos+1] == '.');
if (!is_self && !is_slash) r = r.substr(3);
else if (pos == std::string::npos) break;
l = l.substr(0, pos == std::string::npos ? pos : pos + 1);
}
return l + r;
}
std::string path_for_console(const std::string& rel_path, const std::string& abs_path, const std::string& orig_path)
{
// magic algorith goes here!!
// if the file is outside this directory show the absolute path
if (rel_path.substr(0, 3) == "../") {
return orig_path;
}
// this seems to work most of the time
return abs_path == orig_path ? abs_path : rel_path;
}
// create an absolute path by resolving relative paths with cwd
std::string rel2abs(const std::string& path, const std::string& base, const std::string& cwd)
{
return make_canonical_path(join_paths(join_paths(cwd + "/", base + "/"), path));
}
// create a path that is relative to the given base directory
// path and base will first be resolved against cwd to make them absolute
std::string abs2rel(const std::string& path, const std::string& base, const std::string& cwd)
{
std::string abs_path = rel2abs(path, cwd);
std::string abs_base = rel2abs(base, cwd);
size_t proto = 0;
// check if we have a protocol
if (path[proto] && Prelexer::is_alpha(path[proto])) {
// skip over all alphanumeric characters
while (path[proto] && Prelexer::is_alnum(path[proto++])) {}
// then skip over the mandatory colon
if (proto && path[proto] == ':') ++ proto;
}
// distinguish between windows absolute paths and valid protocols
// we assume that protocols must at least have two chars to be valid
if (proto && path[proto++] == '/' && proto > 3) return path;
#ifdef _WIN32
// absolute link must have a drive letter, and we know that we
// can only create relative links if both are on the same drive
if (abs_base[0] != abs_path[0]) return abs_path;
#endif
std::string stripped_uri = "";
std::string stripped_base = "";
size_t index = 0;
size_t minSize = std::min(abs_path.size(), abs_base.size());
for (size_t i = 0; i < minSize; ++i) {
#ifdef FS_CASE_SENSITIVE
if (abs_path[i] != abs_base[i]) break;
#else
// compare the charactes in a case insensitive manner
// windows fs is only case insensitive in ascii ranges
if (tolower(abs_path[i]) != tolower(abs_base[i])) break;
#endif
if (abs_path[i] == '/') index = i + 1;
}
for (size_t i = index; i < abs_path.size(); ++i) {
stripped_uri += abs_path[i];
}
for (size_t i = index; i < abs_base.size(); ++i) {
stripped_base += abs_base[i];
}
size_t left = 0;
size_t directories = 0;
for (size_t right = 0; right < stripped_base.size(); ++right) {
if (stripped_base[right] == '/') {
if (stripped_base.substr(left, 2) != "..") {
++directories;
}
else if (directories > 1) {
--directories;
}
else {
directories = 0;
}
left = right + 1;
}
}
std::string result = "";
for (size_t i = 0; i < directories; ++i) {
result += "../";
}
result += stripped_uri;
return result;
}
// Resolution order for ambiguous imports:
// (1) filename as given
// (2) underscore + given
// (3) underscore + given + extension
// (4) given + extension
std::vector<Include> resolve_includes(const std::string& root, const std::string& file, const std::vector<std::string>& exts)
{
std::string filename = join_paths(root, file);
// split the filename
std::string base(dir_name(file));
std::string name(base_name(file));
std::vector<Include> includes;
// create full path (maybe relative)
std::string rel_path(join_paths(base, name));
std::string abs_path(join_paths(root, rel_path));
if (file_exists(abs_path)) includes.push_back({{ rel_path, root }, abs_path });
// next test variation with underscore
rel_path = join_paths(base, "_" + name);
abs_path = join_paths(root, rel_path);
if (file_exists(abs_path)) includes.push_back({{ rel_path, root }, abs_path });
// next test exts plus underscore
for(auto ext : exts) {
rel_path = join_paths(base, "_" + name + ext);
abs_path = join_paths(root, rel_path);
if (file_exists(abs_path)) includes.push_back({{ rel_path, root }, abs_path });
}
// next test plain name with exts
for(auto ext : exts) {
rel_path = join_paths(base, name + ext);
abs_path = join_paths(root, rel_path);
if (file_exists(abs_path)) includes.push_back({{ rel_path, root }, abs_path });
}
// nothing found
return includes;
}
std::vector<std::string> find_files(const std::string& file, const std::vector<std::string> paths)
{
std::vector<std::string> includes;
for (std::string path : paths) {
std::string abs_path(join_paths(path, file));
if (file_exists(abs_path)) includes.push_back(abs_path);
}
return includes;
}
std::vector<std::string> find_files(const std::string& file, struct Sass_Compiler* compiler)
{
// get the last import entry to get current base directory
// struct Sass_Options* options = sass_compiler_get_options(compiler);
Sass_Import_Entry import = sass_compiler_get_last_import(compiler);
const std::vector<std::string>& incs = compiler->cpp_ctx->include_paths;
// create the vector with paths to lookup
std::vector<std::string> paths(1 + incs.size());
paths.push_back(dir_name(import->abs_path));
paths.insert(paths.end(), incs.begin(), incs.end());
// dispatch to find files in paths
return find_files(file, paths);
}
// helper function to search one file in all include paths
// this is normally not used internally by libsass (C-API sugar)
std::string find_file(const std::string& file, const std::vector<std::string> paths)
{
if (file.empty()) return file;
auto res = find_files(file, paths);
return res.empty() ? "" : res.front();
}
// helper function to resolve a filename
std::string find_include(const std::string& file, const std::vector<std::string> paths)
{
// search in every include path for a match
for (size_t i = 0, S = paths.size(); i < S; ++i)
{
std::vector<Include> resolved(resolve_includes(paths[i], file));
if (resolved.size()) return resolved[0].abs_path;
}
// nothing found
return std::string("");
}
// try to load the given filename
// returned memory must be freed
// will auto convert .sass files
char* read_file(const std::string& path)
{
#ifdef _WIN32
BYTE* pBuffer;
DWORD dwBytes;
// windows unicode filepaths are encoded in utf16
std::wstring wpath = UTF_8::convert_to_utf16(path);
HANDLE hFile = CreateFileW(wpath.c_str(), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
if (hFile == INVALID_HANDLE_VALUE) return 0;
DWORD dwFileLength = GetFileSize(hFile, NULL);
if (dwFileLength == INVALID_FILE_SIZE) return 0;
// allocate an extra byte for the null char
pBuffer = (BYTE*)malloc((dwFileLength+1)*sizeof(BYTE));
ReadFile(hFile, pBuffer, dwFileLength, &dwBytes, NULL);
pBuffer[dwFileLength] = '\0';
CloseHandle(hFile);
// just convert from unsigned char*
char* contents = (char*) pBuffer;
#else
struct stat st;
if (stat(path.c_str(), &st) == -1 || S_ISDIR(st.st_mode)) return 0;
std::ifstream file(path.c_str(), std::ios::in | std::ios::binary | std::ios::ate);
char* contents = 0;
if (file.is_open()) {
size_t size = file.tellg();
// allocate an extra byte for the null char
contents = (char*) malloc((size+1)*sizeof(char));
file.seekg(0, std::ios::beg);
file.read(contents, size);
contents[size] = '\0';
file.close();
}
#endif
std::string extension;
if (path.length() > 5) {
extension = path.substr(path.length() - 5, 5);
}
for(size_t i=0; i<extension.size();++i)
extension[i] = tolower(extension[i]);
if (extension == ".sass" && contents != 0) {
char * converted = sass2scss(contents, SASS2SCSS_PRETTIFY_1 | SASS2SCSS_KEEP_COMMENT);
free(contents); // free the indented contents
return converted; // should be freed by caller
} else {
return contents;
}
}
// split a path string delimited by semicolons or colons (OS dependent)
std::vector<std::string> split_path_list(const char* str)
{
std::vector<std::string> paths;
if (str == NULL) return paths;
// find delimiter via prelexer (return zero at end)
const char* end = Prelexer::find_first<PATH_SEP>(str);
// search until null delimiter
while (end) {
// add path from current position to delimiter
paths.push_back(std::string(str, end - str));
str = end + 1; // skip delimiter
end = Prelexer::find_first<PATH_SEP>(str);
}
// add path from current position to end
paths.push_back(std::string(str));
// return back
return paths;
}
}
}