sassc4 2.4.0

data/ext/libsass/src/util.hpp

@@ -0,0 +1,105 @@
+#ifndef SASS_UTIL_H
+#define SASS_UTIL_H
+
+// sass.hpp must go before all system headers to get the
+// __EXTENSIONS__ fix on Solaris.
+#include "sass.hpp"
+
+#include "sass/base.h"
+#include "ast_fwd_decl.hpp"
+
+#include <cmath>
+#include <cstring>
+#include <vector>
+#include <string>
+#include <assert.h>
+
+#define SASS_ASSERT(cond, msg) assert(cond && msg)
+
+namespace Sass {
+
+  template <typename T>
+  T clip(const T& n, const T& lower, const T& upper) {
+    return std::max(lower, std::min(n, upper));
+  }
+
+  template <typename T>
+  T absmod(const T& n, const T& r) {
+    T m = std::fmod(n, r);
+    if (m < 0.0) m += r;
+    return m;
+  }
+
+  double round(double val, size_t precision = 0);
+  double sass_strtod(const char* str);
+  const char* safe_str(const char *, const char* = "");
+  void free_string_array(char **);
+  char **copy_strings(const sass::vector<sass::string>&, char ***, int = 0);
+  sass::string read_css_string(const sass::string& str, bool css = true);
+  sass::string evacuate_escapes(const sass::string& str);
+  sass::string string_to_output(const sass::string& str);
+  sass::string comment_to_compact_string(const sass::string& text);
+  sass::string read_hex_escapes(const sass::string& str);
+  sass::string escape_string(const sass::string& str);
+  void newline_to_space(sass::string& str);
+
+  sass::string quote(const sass::string&, char q = 0);
+  sass::string unquote(const sass::string&, char* q = 0, bool keep_utf8_sequences = false, bool strict = true);
+  char detect_best_quotemark(const char* s, char qm = '"');
+
+  bool is_hex_doublet(double n);
+  bool is_color_doublet(double r, double g, double b);
+
+  bool peek_linefeed(const char* start);
+
+  // Returns true iff `elements` ⊆ `container`.
+  template <typename C, typename T>
+  bool contains_all(C container, T elements) {
+    for (const auto &el : elements) {
+      if (container.find(el) == container.end()) return false;
+    }
+    return true;
+  }
+
+  // C++20 `starts_with` equivalent.
+  // See https://en.cppreference.com/w/cpp/string/basic_string/starts_with
+  inline bool starts_with(const sass::string& str, const char* prefix, size_t prefix_len) {
+    return str.compare(0, prefix_len, prefix) == 0;
+  }
+
+  inline bool starts_with(const sass::string& str, const char* prefix) {
+    return starts_with(str, prefix, std::strlen(prefix));
+  }
+
+  // C++20 `ends_with` equivalent.
+  // See https://en.cppreference.com/w/cpp/string/basic_string/ends_with
+  inline bool ends_with(const sass::string& str, const sass::string& suffix) {
+    return suffix.size() <= str.size() && std::equal(suffix.rbegin(), suffix.rend(), str.rbegin());
+  }
+
+  inline bool ends_with(const sass::string& str, const char* suffix, size_t suffix_len) {
+    if (suffix_len > str.size()) return false;
+    const char* suffix_it = suffix + suffix_len;
+    const char* str_it = str.c_str() + str.size();
+    while (suffix_it != suffix) if (*(--suffix_it) != *(--str_it)) return false;
+    return true;
+  }
+
+  inline bool ends_with(const sass::string& str, const char* suffix) {
+    return ends_with(str, suffix, std::strlen(suffix));
+  }
+
+  namespace Util {
+
+    bool isPrintable(StyleRule* r, Sass_Output_Style style = NESTED);
+    bool isPrintable(SupportsRule* r, Sass_Output_Style style = NESTED);
+    bool isPrintable(CssMediaRule* r, Sass_Output_Style style = NESTED);
+    bool isPrintable(Comment* b, Sass_Output_Style style = NESTED);
+    bool isPrintable(Block_Obj b, Sass_Output_Style style = NESTED);
+    bool isPrintable(String_Constant* s, Sass_Output_Style style = NESTED);
+    bool isPrintable(String_Quoted* s, Sass_Output_Style style = NESTED);
+    bool isPrintable(Declaration* d, Sass_Output_Style style = NESTED);
+
+  }
+}
+#endif

data/ext/libsass/src/util_string.cpp

@@ -0,0 +1,125 @@
+#include "util_string.hpp"
+
+#include <iostream>
+#include <algorithm>
+
+namespace Sass {
+  namespace Util {
+
+    // ##########################################################################
+    // Special case insensitive string matcher. We can optimize
+    // the more general compare case quite a bit by requiring
+    // consumers to obey some rules (lowercase and no space).
+    // - `literal` must only contain lower case ascii characters
+    // there is one edge case where this could give false positives
+    // test could contain a (non-ascii) char exactly 32 below literal
+    // ##########################################################################
+    bool equalsLiteral(const char* lit, const sass::string& test) {
+      // Work directly on characters
+      const char* src = test.c_str();
+      // There is a small chance that the search string
+      // Is longer than the rest of the string to look at
+      while (*lit && (*src == *lit || *src + 32 == *lit)) {
+        ++src, ++lit;
+      }
+      // True if literal is at end
+      // If not test was too long
+      return *lit == 0;
+    }
+
+    void ascii_str_tolower(sass::string* s) {
+      for (auto& ch : *s) {
+        ch = ascii_tolower(static_cast<unsigned char>(ch));
+      }
+    }
+
+    void ascii_str_toupper(sass::string* s) {
+      for (auto& ch : *s) {
+        ch = ascii_toupper(static_cast<unsigned char>(ch));
+      }
+    }
+
+    sass::string rtrim(sass::string str) {
+      auto it = std::find_if_not(str.rbegin(), str.rend(), ascii_isspace);
+      str.erase(str.rend() - it);
+      return str;
+    }
+
+    // ###########################################################################
+    // Returns [name] without a vendor prefix.
+    // If [name] has no vendor prefix, it's returned as-is.
+    // ###########################################################################
+    sass::string unvendor(const sass::string& name)
+    {
+      if (name.size() < 2) return name;
+      if (name[0] != '-') return name;
+      if (name[1] == '-') return name;
+      for (size_t i = 2; i < name.size(); i++) {
+        if (name[i] == '-') return name.substr(i + 1);
+      }
+      return name;
+    }
+    // EO unvendor
+
+    sass::string normalize_newlines(const sass::string& str) {
+      sass::string result;
+      result.reserve(str.size());
+      std::size_t pos = 0;
+      while (true) {
+        const std::size_t newline = str.find_first_of("\n\f\r", pos);
+        if (newline == sass::string::npos) break;
+        result.append(str, pos, newline - pos);
+        result += '\n';
+        if (str[newline] == '\r' && str[newline + 1] == '\n') {
+          pos = newline + 2;
+        }
+        else {
+          pos = newline + 1;
+        }
+      }
+      result.append(str, pos, sass::string::npos);
+      return result;
+    }
+
+    sass::string normalize_underscores(const sass::string& str) {
+      sass::string normalized = str;
+      std::replace(normalized.begin(), normalized.end(), '_', '-');
+      return normalized;
+    }
+
+    sass::string normalize_decimals(const sass::string& str) {
+      sass::string normalized;
+      if (!str.empty() && str[0] == '.') {
+        normalized.reserve(str.size() + 1);
+        normalized += '0';
+        normalized += str;
+      }
+      else {
+        normalized = str;
+      }
+      return normalized;
+    }
+
+    char opening_bracket_for(char closing_bracket) {
+      switch (closing_bracket) {
+      case ')': return '(';
+      case ']': return '[';
+      case '}': return '{';
+      default: return '\0';
+      }
+    }
+
+    char closing_bracket_for(char opening_bracket) {
+      switch (opening_bracket) {
+      case '(': return ')';
+      case '[': return ']';
+      case '{': return '}';
+      default: return '\0';
+      }
+    }
+
+  }
+  // namespace Util
+
+}
+// namespace Sass

data/ext/libsass/src/util_string.hpp

@@ -0,0 +1,73 @@
+#ifndef SASS_UTIL_STRING_H
+#define SASS_UTIL_STRING_H
+
+#include "sass.hpp"
+#include <string>
+
+namespace Sass {
+  namespace Util {
+
+    // ##########################################################################
+    // Special case insensitive string matcher. We can optimize
+    // the more general compare case quite a bit by requiring
+    // consumers to obey some rules (lowercase and no space).
+    // - `literal` must only contain lower case ascii characters
+    // there is one edge case where this could give false positives
+    // test could contain a (non-ascii) char exactly 32 below literal
+    // ##########################################################################
+    bool equalsLiteral(const char* lit, const sass::string& test);
+
+    // ###########################################################################
+    // Returns [name] without a vendor prefix.
+    // If [name] has no vendor prefix, it's returned as-is.
+    // ###########################################################################
+    sass::string unvendor(const sass::string& name);
+
+    sass::string rtrim(sass::string str);
+    sass::string normalize_newlines(const sass::string& str);
+    sass::string normalize_underscores(const sass::string& str);
+    sass::string normalize_decimals(const sass::string& str);
+    char opening_bracket_for(char closing_bracket);
+    char closing_bracket_for(char opening_bracket);
+
+    // Locale-independent ASCII character routines.
+
+    inline bool ascii_isalpha(unsigned char c) {
+      return (c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z');
+    }
+
+    inline bool ascii_isdigit(unsigned char c) {
+      return (c >= '0' && c <= '9');
+    }
+
+    inline bool ascii_isalnum(unsigned char c) {
+      return ascii_isalpha(c) || ascii_isdigit(c);
+    }
+
+    inline bool ascii_isascii(unsigned char c) { return c < 128; }
+
+    inline bool ascii_isxdigit(unsigned char c) {
+      return ascii_isdigit(c) || (c >= 'A' && c <= 'F') || (c >= 'a' && c <= 'f');
+    }
+
+    inline bool ascii_isspace(unsigned char c) {
+      return c == ' ' || c == '\t' || c == '\v' || c == '\f' || c == '\r' || c == '\n';
+    }
+
+    inline char ascii_tolower(unsigned char c) {
+      if (c >= 'A' && c <= 'Z') return c + 32;
+      return c;
+    }
+
+    void ascii_str_tolower(sass::string* s);
+
+    inline char ascii_toupper(unsigned char c) {
+      if (c >= 'a' && c <= 'z') return c - 32;
+      return c;
+    }
+
+    void ascii_str_toupper(sass::string* s);
+
+  }  // namespace Sass
+}  // namespace Util
+#endif  // SASS_UTIL_STRING_H

data/ext/libsass/src/values.cpp

@@ -0,0 +1,140 @@
+// sass.hpp must go before all system headers to get the
+// __EXTENSIONS__ fix on Solaris.
+#include "sass.hpp"
+
+#include "sass.h"
+#include "values.hpp"
+
+#include <stdint.h>
+
+namespace Sass {
+
+  // convert value from C++ side to C-API
+  union Sass_Value* ast_node_to_sass_value (const Expression* val)
+  {
+    if (val->concrete_type() == Expression::NUMBER)
+    {
+      const Number* res = Cast<Number>(val);
+      return sass_make_number(res->value(), res->unit().c_str());
+    }
+    else if (val->concrete_type() == Expression::COLOR)
+    {
+      if (const Color_RGBA* rgba = Cast<Color_RGBA>(val)) {
+        return sass_make_color(rgba->r(), rgba->g(), rgba->b(), rgba->a());
+      } else {
+        // ToDo: allow to also use HSLA colors!!
+        Color_RGBA_Obj col = Cast<Color>(val)->copyAsRGBA();
+        return sass_make_color(col->r(), col->g(), col->b(), col->a());
+      }
+    }
+    else if (val->concrete_type() == Expression::LIST)
+    {
+      const List* l = Cast<List>(val);
+      union Sass_Value* list = sass_make_list(l->size(), l->separator(), l->is_bracketed());
+      for (size_t i = 0, L = l->length(); i < L; ++i) {
+        ExpressionObj obj = l->at(i);
+        auto val = ast_node_to_sass_value(obj);
+        sass_list_set_value(list, i, val);
+      }
+      return list;
+    }
+    else if (val->concrete_type() == Expression::MAP)
+    {
+      const Map* m = Cast<Map>(val);
+      union Sass_Value* map = sass_make_map(m->length());
+      size_t i = 0; for (ExpressionObj key : m->keys()) {
+        sass_map_set_key(map, i, ast_node_to_sass_value(key));
+        sass_map_set_value(map, i, ast_node_to_sass_value(m->at(key)));
+        ++ i;
+      }
+      return map;
+    }
+    else if (val->concrete_type() == Expression::NULL_VAL)
+    {
+      return sass_make_null();
+    }
+    else if (val->concrete_type() == Expression::BOOLEAN)
+    {
+      const Boolean* res = Cast<Boolean>(val);
+      return sass_make_boolean(res->value());
+    }
+    else if (val->concrete_type() == Expression::STRING)
+    {
+      if (const String_Quoted* qstr = Cast<String_Quoted>(val))
+      {
+        return sass_make_qstring(qstr->value().c_str());
+      }
+      else if (const String_Constant* cstr = Cast<String_Constant>(val))
+      {
+        return sass_make_string(cstr->value().c_str());
+      }
+    }
+    return sass_make_error("unknown sass value type");
+  }
+
+  // convert value from C-API to C++ side
+  Value* sass_value_to_ast_node (const union Sass_Value* val)
+  {
+    switch (sass_value_get_tag(val)) {
+      case SASS_NUMBER:
+        return SASS_MEMORY_NEW(Number,
+                               SourceSpan("[C-VALUE]"),
+                               sass_number_get_value(val),
+                               sass_number_get_unit(val));
+      case SASS_BOOLEAN:
+        return SASS_MEMORY_NEW(Boolean,
+                               SourceSpan("[C-VALUE]"),
+                               sass_boolean_get_value(val));
+      case SASS_COLOR:
+        // ToDo: allow to also use HSLA colors!!
+        return SASS_MEMORY_NEW(Color_RGBA,
+                               SourceSpan("[C-VALUE]"),
+                               sass_color_get_r(val),
+                               sass_color_get_g(val),
+                               sass_color_get_b(val),
+                               sass_color_get_a(val));
+      case SASS_STRING:
+        if (sass_string_is_quoted(val)) {
+          return SASS_MEMORY_NEW(String_Quoted,
+                                 SourceSpan("[C-VALUE]"),
+                                 sass_string_get_value(val));
+        }
+        return SASS_MEMORY_NEW(String_Constant,
+                                 SourceSpan("[C-VALUE]"),
+                                 sass_string_get_value(val));
+      case SASS_LIST: {
+        List* l = SASS_MEMORY_NEW(List,
+                                  SourceSpan("[C-VALUE]"),
+                                  sass_list_get_length(val),
+                                  sass_list_get_separator(val));
+        for (size_t i = 0, L = sass_list_get_length(val); i < L; ++i) {
+          l->append(sass_value_to_ast_node(sass_list_get_value(val, i)));
+        }
+        l->is_bracketed(sass_list_get_is_bracketed(val));
+        return l;
+      }
+      case SASS_MAP: {
+        Map* m = SASS_MEMORY_NEW(Map, SourceSpan("[C-VALUE]"));
+        for (size_t i = 0, L = sass_map_get_length(val); i < L; ++i) {
+          *m << std::make_pair(
+            sass_value_to_ast_node(sass_map_get_key(val, i)),
+            sass_value_to_ast_node(sass_map_get_value(val, i)));
+        }
+        return m;
+      }
+      case SASS_NULL:
+        return SASS_MEMORY_NEW(Null, SourceSpan("[C-VALUE]"));
+      case SASS_ERROR:
+        return SASS_MEMORY_NEW(Custom_Error,
+                               SourceSpan("[C-VALUE]"),
+                               sass_error_get_message(val));
+      case SASS_WARNING:
+        return SASS_MEMORY_NEW(Custom_Warning,
+                               SourceSpan("[C-VALUE]"),
+                               sass_warning_get_message(val));
+      default: break;
+    }
+    return 0;
+  }
+
+}

data/ext/libsass/src/values.hpp

@@ -0,0 +1,12 @@
+#ifndef SASS_VALUES_H
+#define SASS_VALUES_H
+
+#include "ast.hpp"
+
+namespace Sass {
+
+  union Sass_Value* ast_node_to_sass_value (const Expression* val);
+  Value* sass_value_to_ast_node (const union Sass_Value* val);
+
+}
+#endif

data/lib/sassc/dependency.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+module SassC
+  class Dependency
+    attr_reader :filename
+    attr_reader :options
+
+    def initialize(filename)
+      @filename = filename
+      @options = { filename: @filename }
+    end
+
+    def self.from_filenames(filenames)
+      filenames.map { |f| new(f) }
+    end
+  end
+end

data/lib/sassc/engine.rb

@@ -0,0 +1,141 @@
+# frozen_string_literal: true
+
+require_relative "error"
+
+module SassC
+  class Engine
+    OUTPUT_STYLES = %i[
+      sass_style_nested
+      sass_style_expanded
+      sass_style_compact
+      sass_style_compressed
+    ]
+
+    attr_reader :template, :options
+
+    def initialize(template, options = {})
+      @template = template
+      @options = options
+      @functions = options.fetch(:functions, Script::Functions)
+    end
+
+    def render
+      return @template.dup if @template.empty?
+
+      data_context = Native.make_data_context(@template)
+      context = Native.data_context_get_context(data_context)
+      native_options = Native.context_get_options(context)
+
+      Native.option_set_is_indented_syntax_src(native_options, true) if sass?
+      Native.option_set_input_path(native_options, filename) if filename
+      Native.option_set_precision(native_options, precision) if precision
+      Native.option_set_include_path(native_options, load_paths)
+      Native.option_set_output_style(native_options, output_style_enum)
+      Native.option_set_source_comments(native_options, true) if line_comments?
+      Native.option_set_source_map_file(native_options, source_map_file) if source_map_file
+      Native.option_set_source_map_embed(native_options, true) if source_map_embed?
+      Native.option_set_source_map_contents(native_options, true) if source_map_contents?
+      Native.option_set_omit_source_map_url(native_options, true) if omit_source_map_url?
+
+      import_handler.setup(native_options)
+      functions_handler.setup(native_options, functions: @functions)
+
+      status = Native.compile_data_context(data_context)
+
+      if status != 0
+        message = Native.context_get_error_message(context)
+        filename = Native.context_get_error_file(context)
+        line = Native.context_get_error_line(context)
+
+        raise SyntaxError.new(message, filename: filename, line: line)
+      end
+
+      css = Native.context_get_output_string(context)
+
+      @dependencies = Native.context_get_included_files(context)
+      @source_map   = Native.context_get_source_map_string(context)
+
+      css.force_encoding(@template.encoding)
+      @source_map.force_encoding(@template.encoding) if @source_map.is_a?(String)
+
+      return css unless quiet?
+    ensure
+      Native.delete_data_context(data_context) if data_context
+    end
+
+    def dependencies
+      raise NotRenderedError unless @dependencies
+      Dependency.from_filenames(@dependencies)
+    end
+
+    def source_map
+      raise NotRenderedError unless @source_map
+      @source_map
+    end
+
+    def filename
+      @options[:filename]
+    end
+
+    private
+
+    def quiet?
+      @options[:quiet]
+    end
+
+    def precision
+      @options[:precision]
+    end
+
+    def sass?
+      @options[:syntax] && @options[:syntax].to_sym == :sass
+    end
+
+    def line_comments?
+      @options[:line_comments]
+    end
+
+    def source_map_embed?
+      @options[:source_map_embed]
+    end
+
+    def source_map_contents?
+      @options[:source_map_contents]
+    end
+
+    def omit_source_map_url?
+      @options[:omit_source_map_url]
+    end
+
+    def source_map_file
+      @options[:source_map_file]
+    end
+
+    def import_handler
+      @import_handler ||= ImportHandler.new(@options)
+    end
+
+    def functions_handler
+      @functions_handler = FunctionsHandler.new(@options)
+    end
+
+    def output_style_enum
+      @output_style_enum ||= Native::SassOutputStyle[output_style]
+    end
+
+    def output_style
+      @output_style ||= begin
+        style = @options.fetch(:style, :sass_style_nested).to_s
+        style = "sass_style_#{style}" unless style.include?("sass_style_")
+        style = style.to_sym
+        raise InvalidStyleError unless Native::SassOutputStyle.symbols.include?(style)
+        style
+      end
+    end
+
+    def load_paths
+      paths = (@options[:load_paths] || []) + SassC.load_paths
+      paths.join(File::PATH_SEPARATOR) unless paths.empty?
+    end
+  end
+end

data/lib/sassc/error.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+require "pathname"
+
+module SassC
+
+  class BaseError < StandardError; end
+  class NotRenderedError < BaseError; end
+  class InvalidStyleError < BaseError; end
+  class UnsupportedValue < BaseError; end
+
+  # When dealing with SyntaxErrors,
+  # it's important to provide filename and line number information.
+  # This will be used in various error reports to users, including backtraces.
+
+  class SyntaxError < BaseError
+
+    def initialize(message, filename: nil, line: nil)
+      @filename = filename
+      @line = line
+      super(message)
+    end
+
+    def backtrace
+      return nil if super.nil?
+      sass_backtrace + super
+    end
+
+    # The backtrace of the error within Sass files.
+    def sass_backtrace
+      return [] unless @filename && @line
+      ["#{@filename}:#{@line}"]
+    end
+
+  end
+
+end