/// Lookup hir elements using position in the source code. This is a lossy
/// transformation: in general, a single source might correspond to several
/// modules, functions, etc, due to macros, cfgs and `#[path=]` attributes on
/// modules.
///
/// So, this modules should not be used during hir construction, it exists
/// purely for "IDE needs".
use ra_db::{FileId, FilePosition, Cancelable};
use ra_editor::find_node_at_offset;
use ra_syntax::{
    SmolStr, TextRange, SyntaxNodeRef,
    ast::{self, AstNode, NameOwner},
};

use crate::{
    HirDatabase, Module, Function, SourceItemId,
    module::ModuleSource,
    DefKind, DefLoc, AsName,
};

/// Locates the module by `FileId`. Picks topmost module in the file.
pub fn module_from_file_id(db: &impl HirDatabase, file_id: FileId) -> Cancelable<Option<Module>> {
    let module_source = ModuleSource::new_file(file_id.into());
    module_from_source(db, module_source)
}

/// Locates the child module by `mod child;` declaration.
pub fn module_from_declaration(
    db: &impl HirDatabase,
    file_id: FileId,
    decl: ast::Module,
) -> Cancelable<Option<Module>> {
    let parent_module = module_from_file_id(db, file_id)?;
    let child_name = decl.name();
    match (parent_module, child_name) {
        (Some(parent_module), Some(child_name)) => {
            if let Some(child) = parent_module.child(&child_name.as_name()) {
                return Ok(Some(child));
            }
        }
        _ => (),
    }
    Ok(None)
}

/// Locates the module by position in the source code.
pub fn module_from_position(
    db: &impl HirDatabase,
    position: FilePosition,
) -> Cancelable<Option<Module>> {
    let file = db.source_file(position.file_id);
    let module_source = match find_node_at_offset::<ast::Module>(file.syntax(), position.offset) {
        Some(m) if !m.has_semi() => ModuleSource::new_inline(db, position.file_id.into(), m),
        _ => ModuleSource::new_file(position.file_id.into()),
    };
    module_from_source(db, module_source)
}

/// Locates the module by child syntax element within the module
pub fn module_from_child_node(
    db: &impl HirDatabase,
    file_id: FileId,
    child: SyntaxNodeRef,
) -> Cancelable<Option<Module>> {
    let module_source = if let Some(m) = child
        .ancestors()
        .filter_map(ast::Module::cast)
        .find(|it| !it.has_semi())
    {
        ModuleSource::new_inline(db, file_id.into(), m)
    } else {
        ModuleSource::new_file(file_id.into())
    };
    module_from_source(db, module_source)
}

fn module_from_source(
    db: &impl HirDatabase,
    module_source: ModuleSource,
) -> Cancelable<Option<Module>> {
    let source_root_id = db.file_source_root(module_source.file_id().as_original_file());
    let module_tree = db.module_tree(source_root_id)?;
    let m = module_tree
        .modules_with_sources()
        .find(|(_id, src)| src == &module_source);
    let module_id = ctry!(m).0;
    Ok(Some(Module::new(db, source_root_id, module_id)?))
}

pub fn function_from_position(
    db: &impl HirDatabase,
    position: FilePosition,
) -> Cancelable<Option<Function>> {
    let file = db.source_file(position.file_id);
    let fn_def = if let Some(f) = find_node_at_offset::<ast::FnDef>(file.syntax(), position.offset)
    {
        f
    } else {
        return Ok(None);
    };
    function_from_source(db, position.file_id, fn_def)
}

pub fn function_from_source(
    db: &impl HirDatabase,
    file_id: FileId,
    fn_def: ast::FnDef,
) -> Cancelable<Option<Function>> {
    let module = ctry!(module_from_child_node(db, file_id, fn_def.syntax())?);
    let res = function_from_module(db, &module, fn_def);
    Ok(Some(res))
}

pub fn function_from_module(
    db: &impl HirDatabase,
    module: &Module,
    fn_def: ast::FnDef,
) -> Function {
    let file_id = module.source().file_id();
    let file_items = db.file_items(file_id);
    let item_id = file_items.id_of(file_id, fn_def.syntax());
    let source_item_id = SourceItemId {
        file_id,
        item_id: Some(item_id),
    };
    let def_loc = DefLoc {
        kind: DefKind::Function,
        source_root_id: module.source_root_id,
        module_id: module.module_id,
        source_item_id,
    };
    Function::new(def_loc.id(db))
}

pub fn function_from_child_node(
    db: &impl HirDatabase,
    file_id: FileId,
    node: SyntaxNodeRef,
) -> Cancelable<Option<Function>> {
    let fn_def = ctry!(node.ancestors().find_map(ast::FnDef::cast));
    function_from_source(db, file_id, fn_def)
}

pub fn macro_symbols(
    db: &impl HirDatabase,
    file_id: FileId,
) -> Cancelable<Vec<(SmolStr, TextRange)>> {
    let module = match module_from_file_id(db, file_id)? {
        Some(it) => it,
        None => return Ok(Vec::new()),
    };
    let items = db.input_module_items(module.source_root_id, module.module_id)?;
    let mut res = Vec::new();

    for macro_call_id in items
        .items
        .iter()
        .filter_map(|it| it.id.file_id.as_macro_call_id())
    {
        if let Some(exp) = db.expand_macro_invocation(macro_call_id) {
            let loc = macro_call_id.loc(db);
            let syntax = db.file_item(loc.source_item_id);
            let syntax = syntax.borrowed();
            let macro_call = ast::MacroCall::cast(syntax).unwrap();
            let off = macro_call.token_tree().unwrap().syntax().range().start();
            let file = exp.file();
            for trait_def in file.syntax().descendants().filter_map(ast::TraitDef::cast) {
                if let Some(name) = trait_def.name() {
                    let dst_range = name.syntax().range();
                    if let Some(src_range) = exp.map_range_back(dst_range) {
                        res.push((name.text(), src_range + off))
                    }
                }
            }
        }
    }

    Ok(res)
}