rscons/lib/rscons/script.rb

module Rscons

  # The Script class encapsulates the state of a build script.
  class Script

    # Global DSL methods.
    class GlobalDsl

      # Invoke rscons in a subprocess for a subsidiary Rsconscript file.
      #
      # @param script_path [String]
      #   Path to subsidiary Rsconscript to execute.
      # @param args[Array<String>]
      #   Arguments to pass to rscons subprocess.
      def rscons(script_path, *args)
        script_path = File.expand_path(script_path)
        me = File.expand_path($0)
        command = [me, "-f", script_path, *args]
        if ENV["specs"] and not ENV["dist_specs"] # specs
          command = ["ruby", $LOAD_PATH.map {|p| ["-I", p]}, command].flatten # specs
        end # specs
        dir = File.dirname(script_path)
        result = system(*command, chdir: dir)
        unless result
          raise RsconsError.new("Failed command: " + command.join(" "))
        end
      end

    end

    # Top-level DSL available to the Rsconscript.
    class Dsl < GlobalDsl
      # Create a Dsl.
      def initialize(script)
        @script = script
      end

      # Set the project name.
      def project_name(project_name)
        @script.project_name = project_name
      end

      # Whether to automatically configure (default true).
      def autoconf(autoconf)
        @script.autoconf = autoconf
      end

      # Enter build block.
      def build(&block)
        @script.operations["build"] = block
      end

      # Enter configuration block.
      def configure(&block)
        @script.operations["configure"] = block
      end

      # Return a list of paths matching the specified pattern(s).
      #
      # A pattern can contain a "/**" component to recurse through directories.
      # If the pattern ends with "/**" then only the recursive list of
      # directories will be returned.
      #
      # Examples:
      # - "src/**": return all directories under "src", recursively (including
      #   "src" itself).
      # - "src/**/*": return all files and directories recursively under the src
      #   directory.
      # - "src/**/*.c": return all .c files recursively under the src directory.
      # - "dir/*/": return all directories in dir, but no files.
      #
      # @return [Array<String>] Paths matching the specified pattern(s).
      def glob(*patterns)
        require "pathname"
        patterns.reduce([]) do |result, pattern|
          if pattern.end_with?("/**")
            pattern += "/"
          end
          result += Dir.glob(pattern).map do |path|
            Pathname.new(path.gsub("\\", "/")).cleanpath.to_s
          end
        end.sort
      end
    end

    # DSL available to the 'configure' block.
    class ConfigureDsl < GlobalDsl
      # Create a ConfigureDsl.
      #
      # @param configure_op [ConfigureOp]
      #   The configure operation object.
      def initialize(configure_op)
        @configure_op = configure_op
      end

      [
        :check_c_compiler,
        :check_cxx_compiler,
        :check_d_compiler,
        :check_cfg,
        :check_c_header,
        :check_cxx_header,
        :check_d_import,
        :check_lib,
        :check_program,
      ].each do |method_name|
        define_method(method_name) do |*args|
          @configure_op.__send__(method_name, *args)
        end
      end

      # Perform a custom configuration check.
      #
      # @param message [String]
      #   Custom configuration check message (e.g. "Checking for foo").
      #   rscons will add "... " to the end of the message.
      # @yieldparam configure_op [ConfigureOp]
      #   {ConfigureOp} object.
      # @return [void]
      def custom_check(message, &block)
        $stdout.write(message + "... ")
        block[@configure_op]
      end
    end

    # @return [String, nil]
    #   Project name.
    attr_accessor :project_name

    # @return [Boolean]
    #   Whether to autoconfigure if the user does not explicitly perform a
    #   configure operation before building (default: true).
    attr_accessor :autoconf

    # @return [Hash]
    #   Operation lambdas.
    attr_reader :operations

    # Construct a Script.
    def initialize
      @autoconf = true
      @operations = {}
    end

    # Load a script from the specified file.
    #
    # @param path [String]
    #   File name of the rscons script to load.
    #
    # @return [void]
    def load(path)
      script_contents = File.read(path, mode: "rb")
      Dsl.new(self).instance_eval(script_contents, path, 1)
    end

    # Perform build operation.
    def build
      if build_proc = @operations["build"]
        build_proc.call
      end
    end

    # Perform configure operation.
    def configure(configure_op)
      if operation_lambda = @operations["configure"]
        cdsl = ConfigureDsl.new(configure_op)
        cdsl.instance_eval(&operation_lambda)
      end
    end

  end

end