Inline `Array#findIndex`

findIndex.macro.sjs

macro inline_findIndex {
	rule { ($list:expr, function ($value:ident, $index:ident, $ref:ident) {
		$return:expr
	}, $context:expr) } => {
		(function ($ref) {
			var length = $ref.length;
			
			for (var $index = 0; $index < length; $index += 1) {
				var $value = $ref[$index];
				
				if ($return) return $index;
			}
			
			return -1;
		}.call($context, $list))
	}
}

let findIndex = macro {
	rule infix { $list:expr . | (() => $return:expr) } => {
		inline_findIndex($list, function (value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (() => $return:expr, $context:expr) } => {
		inline_findIndex($list, function (value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | ($value:ident => $return:expr) } => {
		inline_findIndex($list, function ($value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | ($value:ident => $return:expr, $context:expr) } => {
		inline_findIndex($list, function ($value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident) => $return:expr) } => {
		inline_findIndex($list, function ($value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident) => $return:expr, $context:expr) } => {
		inline_findIndex($list, function ($value, index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident, $index:ident) => $return:expr) } => {
		inline_findIndex($list, function ($value, $index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident, $index:ident) => $return:expr, $context:expr) } => {
		inline_findIndex($list, function ($value, $index, ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident, $index:ident, $ref:ident) => $return:expr) } => {
		inline_findIndex($list, function ($value, $index, $ref) { $return }, this)
	}
	rule infix { $list:expr . | (($value:ident, $index:ident, $ref:ident) => $return:expr, $context:expr) } => {
		inline_findIndex($list, function ($value, $index, $ref) { $return }, this)
	}
	rule { $rest ... } => { findIndex $rest ... }
}

export findIndex;