yarp 0.6.0

data/ext/yarp/api_pack.c

@@ -0,0 +1,256 @@
+#include "yarp/extension.h"
+
+static VALUE rb_cYARP;
+static VALUE rb_cYARPPack;
+static VALUE rb_cYARPPackDirective;
+static VALUE rb_cYARPPackFormat;
+
+static VALUE v3_2_0_symbol;
+static VALUE pack_symbol;
+static VALUE unpack_symbol;
+
+#if SIZEOF_UINT64_T == SIZEOF_LONG_LONG
+# define UINT64T2NUM(x) ULL2NUM(x)
+# define NUM2UINT64T(x) (uint64_t)NUM2ULL(x)
+#elif SIZEOF_UINT64_T == SIZEOF_LONG
+# define UINT64T2NUM(x) ULONG2NUM(x)
+# define NUM2UINT64T(x) (uint64_t)NUM2ULONG(x)
+#else
+// error No uint64_t conversion
+#endif
+
+static VALUE
+pack_type_to_symbol(yp_pack_type type) {
+    switch (type) {
+        case YP_PACK_SPACE:
+            return ID2SYM(rb_intern("SPACE"));
+        case YP_PACK_COMMENT:
+            return ID2SYM(rb_intern("COMMENT"));
+        case YP_PACK_INTEGER:
+            return ID2SYM(rb_intern("INTEGER"));
+        case YP_PACK_UTF8:
+            return ID2SYM(rb_intern("UTF8"));
+        case YP_PACK_BER:
+            return ID2SYM(rb_intern("BER"));
+        case YP_PACK_FLOAT:
+            return ID2SYM(rb_intern("FLOAT"));
+        case YP_PACK_STRING_SPACE_PADDED:
+            return ID2SYM(rb_intern("STRING_SPACE_PADDED"));
+        case YP_PACK_STRING_NULL_PADDED:
+            return ID2SYM(rb_intern("STRING_NULL_PADDED"));
+        case YP_PACK_STRING_NULL_TERMINATED:
+            return ID2SYM(rb_intern("STRING_NULL_TERMINATED"));
+        case YP_PACK_STRING_MSB:
+            return ID2SYM(rb_intern("STRING_MSB"));
+        case YP_PACK_STRING_LSB:
+            return ID2SYM(rb_intern("STRING_LSB"));
+        case YP_PACK_STRING_HEX_HIGH:
+            return ID2SYM(rb_intern("STRING_HEX_HIGH"));
+        case YP_PACK_STRING_HEX_LOW:
+            return ID2SYM(rb_intern("STRING_HEX_LOW"));
+        case YP_PACK_STRING_UU:
+            return ID2SYM(rb_intern("STRING_UU"));
+        case YP_PACK_STRING_MIME:
+            return ID2SYM(rb_intern("STRING_MIME"));
+        case YP_PACK_STRING_BASE64:
+            return ID2SYM(rb_intern("STRING_BASE64"));
+        case YP_PACK_STRING_FIXED:
+            return ID2SYM(rb_intern("STRING_FIXED"));
+        case YP_PACK_STRING_POINTER:
+            return ID2SYM(rb_intern("STRING_POINTER"));
+        case YP_PACK_MOVE:
+            return ID2SYM(rb_intern("MOVE"));
+        case YP_PACK_BACK:
+            return ID2SYM(rb_intern("BACK"));
+        case YP_PACK_NULL:
+            return ID2SYM(rb_intern("NULL"));
+        default:
+            return Qnil;
+    }
+}
+
+static VALUE
+pack_signed_to_symbol(yp_pack_signed signed_type) {
+    switch (signed_type) {
+        case YP_PACK_UNSIGNED:
+            return ID2SYM(rb_intern("UNSIGNED"));
+        case YP_PACK_SIGNED:
+            return ID2SYM(rb_intern("SIGNED"));
+        case YP_PACK_SIGNED_NA:
+            return ID2SYM(rb_intern("SIGNED_NA"));
+        default:
+            return Qnil;
+    }
+}
+
+static VALUE
+pack_endian_to_symbol(yp_pack_endian endian) {
+    switch (endian) {
+        case YP_PACK_AGNOSTIC_ENDIAN:
+            return ID2SYM(rb_intern("AGNOSTIC_ENDIAN"));
+        case YP_PACK_LITTLE_ENDIAN:
+            return ID2SYM(rb_intern("LITTLE_ENDIAN"));
+        case YP_PACK_BIG_ENDIAN:
+            return ID2SYM(rb_intern("BIG_ENDIAN"));
+        case YP_PACK_NATIVE_ENDIAN:
+            return ID2SYM(rb_intern("NATIVE_ENDIAN"));
+        case YP_PACK_ENDIAN_NA:
+            return ID2SYM(rb_intern("ENDIAN_NA"));
+        default:
+            return Qnil;
+    }
+}
+
+static VALUE
+pack_size_to_symbol(yp_pack_size size) {
+    switch (size) {
+        case YP_PACK_SIZE_SHORT:
+            return ID2SYM(rb_intern("SIZE_SHORT"));
+        case YP_PACK_SIZE_INT:
+            return ID2SYM(rb_intern("SIZE_INT"));
+        case YP_PACK_SIZE_LONG:
+            return ID2SYM(rb_intern("SIZE_LONG"));
+        case YP_PACK_SIZE_LONG_LONG:
+            return ID2SYM(rb_intern("SIZE_LONG_LONG"));
+        case YP_PACK_SIZE_8:
+            return ID2SYM(rb_intern("SIZE_8"));
+        case YP_PACK_SIZE_16:
+            return ID2SYM(rb_intern("SIZE_16"));
+        case YP_PACK_SIZE_32:
+            return ID2SYM(rb_intern("SIZE_32"));
+        case YP_PACK_SIZE_64:
+            return ID2SYM(rb_intern("SIZE_64"));
+        case YP_PACK_SIZE_P:
+            return ID2SYM(rb_intern("SIZE_P"));
+        case YP_PACK_SIZE_NA:
+            return ID2SYM(rb_intern("SIZE_NA"));
+        default:
+            return Qnil;
+    }
+}
+
+static VALUE
+pack_length_type_to_symbol(yp_pack_length_type length_type) {
+    switch (length_type) {
+        case YP_PACK_LENGTH_FIXED:
+            return ID2SYM(rb_intern("LENGTH_FIXED"));
+        case YP_PACK_LENGTH_MAX:
+            return ID2SYM(rb_intern("LENGTH_MAX"));
+        case YP_PACK_LENGTH_RELATIVE:
+            return ID2SYM(rb_intern("LENGTH_RELATIVE"));
+        case YP_PACK_LENGTH_NA:
+            return ID2SYM(rb_intern("LENGTH_NA"));
+        default:
+            return Qnil;
+    }
+}
+
+static VALUE
+pack_encoding_to_ruby(yp_pack_encoding encoding) {
+    int index;
+    switch (encoding) {
+        case YP_PACK_ENCODING_ASCII_8BIT:
+            index = rb_ascii8bit_encindex();
+            break;
+        case YP_PACK_ENCODING_US_ASCII:
+            index = rb_usascii_encindex();
+            break;
+        case YP_PACK_ENCODING_UTF_8:
+            index = rb_utf8_encindex();
+            break;
+        default:
+            return Qnil;
+    }
+    return rb_enc_from_encoding(rb_enc_from_index(index));
+}
+
+static VALUE
+pack_parse(VALUE self, VALUE version_symbol, VALUE variant_symbol, VALUE format_string) {
+    if (version_symbol != v3_2_0_symbol) {
+        rb_raise(rb_eArgError, "invalid version");
+    }
+
+    yp_pack_variant variant;
+    if (variant_symbol == pack_symbol) {
+        variant = YP_PACK_VARIANT_PACK;
+    } else if (variant_symbol == unpack_symbol) {
+        variant = YP_PACK_VARIANT_UNPACK;
+    } else {
+        rb_raise(rb_eArgError, "invalid variant");
+    }
+
+    StringValue(format_string);
+
+    const char *format = RSTRING_PTR(format_string);
+    const char *format_end = format + RSTRING_LEN(format_string);
+    yp_pack_encoding encoding = YP_PACK_ENCODING_START;
+
+    VALUE directives_array = rb_ary_new();
+
+    while (format < format_end) {
+        yp_pack_type type;
+        yp_pack_signed signed_type;
+        yp_pack_endian endian;
+        yp_pack_size size;
+        yp_pack_length_type length_type;
+        uint64_t length;
+
+        const char *directive_start = format;
+
+        yp_pack_result parse_result = yp_pack_parse(variant, &format, format_end, &type, &signed_type, &endian,
+                                                    &size, &length_type, &length, &encoding);
+
+        const char *directive_end = format;
+
+        switch (parse_result) {
+            case YP_PACK_OK:
+                break;
+            case YP_PACK_ERROR_UNSUPPORTED_DIRECTIVE:
+                rb_raise(rb_eArgError, "unsupported directive");
+            case YP_PACK_ERROR_UNKNOWN_DIRECTIVE:
+                rb_raise(rb_eArgError, "unsupported directive");
+            case YP_PACK_ERROR_LENGTH_TOO_BIG:
+                rb_raise(rb_eRangeError, "pack length too big");
+            case YP_PACK_ERROR_BANG_NOT_ALLOWED:
+                rb_raise(rb_eRangeError, "bang not allowed");
+            case YP_PACK_ERROR_DOUBLE_ENDIAN:
+                rb_raise(rb_eRangeError, "double endian");
+            default:
+                rb_bug("parse result");
+        }
+
+        if (type == YP_PACK_END) {
+            break;
+        }
+
+        VALUE directive_args[9] = { version_symbol,
+                                    variant_symbol,
+                                    rb_usascii_str_new(directive_start, directive_end - directive_start),
+                                    pack_type_to_symbol(type),
+                                    pack_signed_to_symbol(signed_type),
+                                    pack_endian_to_symbol(endian),
+                                    pack_size_to_symbol(size),
+                                    pack_length_type_to_symbol(length_type),
+                                    UINT64T2NUM(length) };
+
+        rb_ary_push(directives_array, rb_class_new_instance(9, directive_args, rb_cYARPPackDirective));
+    }
+
+    VALUE format_args[2];
+    format_args[0] = directives_array;
+    format_args[1] = pack_encoding_to_ruby(encoding);
+    return rb_class_new_instance(2, format_args, rb_cYARPPackFormat);
+}
+
+void
+Init_yarp_pack(void) {
+    rb_cYARP = rb_define_module("YARP");
+    rb_cYARPPack = rb_define_module_under(rb_cYARP, "Pack");
+    rb_cYARPPackDirective = rb_define_class_under(rb_cYARPPack, "Directive", rb_cObject);
+    rb_cYARPPackFormat = rb_define_class_under(rb_cYARPPack, "Format", rb_cObject);
+    rb_define_singleton_method(rb_cYARPPack, "parse", pack_parse, 3);
+
+    v3_2_0_symbol = ID2SYM(rb_intern("v3_2_0"));
+    pack_symbol = ID2SYM(rb_intern("pack"));
+    unpack_symbol = ID2SYM(rb_intern("unpack"));
+}

data/ext/yarp/extconf.rb

@@ -0,0 +1,131 @@
+# frozen_string_literal: true
+
+require "mkmf"
+require "rbconfig"
+require "rake"
+
+module Yarp
+  module ExtConf
+    class << self
+      def configure
+        configure_c_extension
+        configure_rubyparser
+
+        create_makefile("yarp/yarp")
+
+        if static_link?
+          File.open('Makefile', 'a') do |mf|
+            mf.puts
+            mf.puts '# Automatically rebuild the extension if librubyparser.a changed'
+            mf.puts '$(TARGET_SO): $(LOCAL_LIBS)'
+          end
+        end
+      end
+
+      def configure_c_extension
+        append_cflags("-DYARP_DEBUG_MODE_BUILD") if debug_mode_build?
+        append_cflags("-fvisibility=hidden")
+      end
+
+      def configure_rubyparser
+        if static_link?
+          static_archive_path = File.join(build_dir, "librubyparser.a")
+          unless File.exist?(static_archive_path)
+            build_static_rubyparser
+          end
+          $LOCAL_LIBS << " #{static_archive_path}"
+        else
+          shared_library_path = File.join(build_dir, "librubyparser.#{RbConfig::CONFIG["DLEXT"]}")
+          unless File.exist?(shared_library_path)
+            build_shared_rubyparser
+          end
+          unless find_library("rubyparser", "yp_parser_init", build_dir)
+            raise "could not link against #{File.basename(shared_library_path)}"
+          end
+        end
+
+        find_header("yarp.h", include_dir) or raise "yarp.h is required"
+
+        # Explicitly look for the extension header in the parent directory
+        # because we want to consistently look for yarp/extension.h in our
+        # source files to line up with our mirroring in CRuby.
+        find_header("yarp/extension.h", File.join(__dir__, "..")) or raise "yarp/extension.h is required"
+      end
+
+      def build_shared_rubyparser
+        build_target_rubyparser "build/librubyparser.#{RbConfig::CONFIG["SOEXT"]}"
+      end
+
+      def build_static_rubyparser
+        build_target_rubyparser "build/librubyparser.a"
+      end
+
+      def build_target_rubyparser(target)
+        Dir.chdir(root_dir) do
+          if !File.exist?("configure") && Dir.exist?(".git")
+            # this block only exists to support building the gem from a "git" source,
+            # normally we package up the configure and other files in the gem itself
+            Rake.sh("autoconf")
+            Rake.sh("autoheader")
+            Rake.sh("templates/template.rb")
+          end
+          Rake.sh("sh", "configure") # explicit "sh" for Windows where shebangs are not supported
+          Rake.sh("make", target)
+        end
+      end
+
+      def root_dir
+        File.expand_path("../..", __dir__)
+      end
+
+      def include_dir
+        File.join(root_dir, "include")
+      end
+
+      def build_dir
+        File.join(root_dir, "build")
+      end
+
+      def print_help
+        print(<<~TEXT)
+          USAGE: ruby #{$PROGRAM_NAME} [options]
+
+            Flags that are always valid:
+
+                --enable-static
+                --disable-static
+                    Enable or disable static linking against librubyparser.
+                    The default is to statically link.
+
+                --enable-debug-mode-build
+                    Enable debug mode build.
+                    You may also use set YARP_DEBUG_MODE_BUILD environment variable.
+
+                --help
+                    Display this message.
+
+            Environment variables used:
+
+                YARP_DEBUG_MODE_BUILD
+                    Equivalent to `--enable-debug-mode-build` when set, even if nil or blank.
+
+        TEXT
+      end
+
+      def static_link?
+        enable_config("static", true)
+      end
+
+      def debug_mode_build?
+        enable_config("debug-mode-build", ENV["YARP_DEBUG_MODE_BUILD"] || false)
+      end
+    end
+  end
+end
+
+if arg_config("--help")
+  Yarp::ExtConf.print_help
+  exit!(0)
+end
+
+Yarp::ExtConf.configure