/********************************************************/
/*  ntapi: Native API core library                      */
/*  Copyright (C) 2013--2016  Z. Gilboa                 */
/*  Released under GPLv2 and GPLv3; see COPYING.NTAPI.  */
/********************************************************/

#include <psxtypes/psxtypes.h>
#include <ntapi/nt_port.h>
#include <ntapi/nt_vmount.h>
#include <ntapi/ntapi.h>
#include "ntapi_impl.h"


nt_vms_node * __stdcall	__ntapi_vms_get_end_component_first_node(
	__in	nt_vms_system *		pvms_sys,
        __in	uint32_t		end_component_hash)
{
	nt_vms_node *	node;

	/* verify non-empty list and valid input */
	if (!pvms_sys->dev_name_head_node || !end_component_hash)
		return (nt_vms_node *)0;

	/* find first node by end component hash */
	node = (nt_vms_node *)((uintptr_t)pvms_sys + pvms_sys->end_component_head_node);

	while (node->next && (node->end_component_hash < end_component_hash))
		node = (nt_vms_node *)((uintptr_t)pvms_sys + node->next);

	if (node->end_component_hash == end_component_hash)
		return node;
	else
		return (nt_vms_node *)0;
}


static nt_vms_node * __stdcall	__ntapi_vms_get_node(
	__in	nt_vms_system *		pvms_sys,
        __in	uint32_t		end_component_hash,
        __in	uint32_t		dev_name_hash,
        __in	nt_large_integer	index_number)
{
	nt_vms_node *	node;

	/* verify non-empty list */
	if (!pvms_sys->dev_name_head_node)
		return (nt_vms_node *)0;

	/* end_component_hash */
	if (end_component_hash) {
		node = (nt_vms_node *)((uintptr_t)pvms_sys + pvms_sys->end_component_head_node);

		while (node->next && (node->end_component_hash < end_component_hash))
			node = (nt_vms_node *)((uintptr_t)pvms_sys + node->next);

		if (node->end_component_hash != end_component_hash)
			return (nt_vms_node *)0;
	} else
		node = (nt_vms_node *)((uintptr_t)pvms_sys + pvms_sys->dev_name_head_node);

	/* find device nodes */
	while (node->next && (node->dev_name_hash < dev_name_hash))
		node = (nt_vms_node *)((uintptr_t)pvms_sys + node->next);

	if (node->dev_name_hash != dev_name_hash)
		return (nt_vms_node *)0;

	/* find mount-point nodes */
	while (node->next && (node->index_number.quad < index_number.quad))
		node = (nt_vms_node *)((uintptr_t)pvms_sys + node->next);

	if (node->index_number.quad != index_number.quad)
		return (nt_vms_node *)0;

	return node;
}


nt_vms_node * __stdcall		__ntapi_vms_get_node_by_dev_name(
	__in	nt_vms_system *		pvms_sys,
        __in	uint32_t		dev_name_hash,
        __in	nt_large_integer	index_number)
{
	return __ntapi_vms_get_node(
		pvms_sys,
		0,
		dev_name_hash,
		index_number);
}


nt_vms_node * __stdcall		__ntapi_vms_get_node_by_end_component(
	__in	nt_vms_system *		pvms_sys,
        __in	uint32_t		end_component_hash,
        __in	uint32_t		dev_name_hash,
        __in	nt_large_integer	index_number)
{
	return __ntapi_vms_get_node(
		pvms_sys,
		end_component_hash,
		dev_name_hash,
		index_number);
}


nt_vms_point * __stdcall	__ntapi_vms_get_top_of_stack_mount_point(
	__in	nt_vms_system *		pvms_sys,
	__in	nt_vms_node *		node)
{
	nt_vms_point *	point;

	point = (nt_vms_point *)((uintptr_t)pvms_sys + node->stack);

	while (point->next)
		point = (nt_vms_point *)((uintptr_t)pvms_sys + point->next);

	return point;
}