chalk/src/chalk/inline.cr

require "./builtin"
require "./type"

module Chalk
  module Builtin
    # Inline function to draw sprite at address I.
    class InlineDrawFunction < InlineFunction
      def generate!(emitter, params, table, target, free)
        if !params[2].is_a?(Trees::TreeLit)
          raise "Third parameter must be a constant."
        end
        emitter.generate! params[0], table, free, free + 1
        emitter.generate! params[1], table, free + 1, free + 2
        emitter.instructions << Ir::DrawInstruction.new free, free + 1, params[2].as(Trees::TreeLit).lit.to_i32
      end
      def type
          return Compiler::FunctionType.new([Compiler::Type::U8] * 3, Compiler::Type::U0)
      end
    end

    # Inline function to await for a key and return it.
    class InlineAwaitKeyFunction < InlineFunction
      def generate!(emitter, params, table, target, free)
        emitter.instructions << Ir::AwaitKeyInstruction.new target
      end
      def type
          return Compiler::FunctionType.new(([] of Compiler::Type), Compiler::Type::U8)
      end
    end

    # Inline function to get font for a given value.
    class InlineGetFontFunction < InlineFunction
      def generate!(emitter, params, table, target, free)
        emitter.generate! params[0], table, free, free + 1
        emitter.instructions << Ir::GetFontInstruction.new free
      end
      def type
          return Compiler::FunctionType.new([Compiler::Type::U8], Compiler::Type::U0)
      end
    end

    # Inline function to set the delay timer.
    class InlineSetDelayFunction < InlineFunction
      def generate!(emitter, params, table, target, free)
        emitter.generate! params[0], table, free, free + 1
        emitter.instructions << Ir::SetDelayTimerInstruction.new free
      end

      def type
          return Compiler::FunctionType.new([Compiler::Type::U8], Compiler::Type::U0)
      end
    end

    # Inline function to get the delay timer.
    class InlineGetDelayFunction < InlineFunction
      def generate!(emitter, params, table, target, free)
        emitter.instructions << Ir::GetDelayTimerInstruction.new target
      end
      def type
          return Compiler::FunctionType.new(([] of Compiler::Type), Compiler::Type::U8)
      end
    end
  end
end