/*
 *  Licensed to the Apache Software Foundation (ASF) under one or more
 *  contributor license agreements.  See the NOTICE file distributed with
 *  this work for additional information regarding copyright ownership.
 *  The ASF licenses this file to You under the Apache License, Version 2.0
 *  (the "License"); you may not use this file except in compliance with
 *  the License.  You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 */

#include <stdio.h>
#include "open/types.h"
#include "port_malloc.h"
#include "port_modules.h"


native_module_t* port_find_module(native_module_t* modules, void* code_ptr)
{
    native_module_t* module;
    size_t s;

    for (module = modules; NULL != module; module = module->next)
    {
        for (s = 0; s < module->seg_count; s++)
        {
            char* base = module->segments[s].base;
            size_t size = module->segments[s].size;

            if ((char*)code_ptr >= base && (char*)code_ptr < base + size)
                return module;
        }
    }

    // no matching module
    return NULL;
}

void port_dump_modules(native_module_t* modules, FILE *out)
{
    native_module_t* module;
    size_t i;

    if (!modules)
    {
        fprintf(out, "unavailable, probably /proc is not mounted\n");
        return;
    }

    for (module = modules; module; module = module->next)
    {
        if (!module->filename)
            continue;

        fprintf(out, "%s:\n", module->filename);

        for (i = 0; i < module->seg_count; i++)
        {
            size_t base = (size_t)module->segments[i].base;

            fprintf(out, "\t0x%"W_PI_FMT":0x%"W_PI_FMT"\n",
                    base, base + module->segments[i].size);
        }
    }
}

void port_clear_modules(native_module_t** list_ptr)
{
    native_module_t* cur = *list_ptr;

    while (cur)
    {
        native_module_t* next = cur->next;

        if (cur->filename)
            STD_FREE(cur->filename);

        STD_FREE(cur);
        cur = next;
    }

    *list_ptr = NULL;
}