aml.c

Go to the documentation of this file.

#include <kernel/acpi/aml/aml.h>
 
#include <kernel/acpi/aml/encoding/term.h>
#include <kernel/acpi/aml/integer.h>
#include <kernel/acpi/aml/namespace.h>
#include <kernel/acpi/aml/patch_up.h>
#include <kernel/acpi/aml/predefined.h>
#include <kernel/acpi/aml/state.h>
#include <kernel/acpi/tables.h>
#include <kernel/log/log.h>
#include <kernel/log/panic.h>
 
#ifdef TESTING
#include <kernel/acpi/aml/tests.h>
#endif
 
#include <kernel/log/log.h>
 
#include <errno.h>
#include <sys/math.h>
 
static mutex_t bigMutex;
 
static inline uint64_t aml_parse(const uint8_t* start, const uint8_t* end)
{
    if (start == NULL || end == NULL || start > end)
    {
        errno = EINVAL;
        return ERR;
    }
 
    if (start == end)
    {
        // Im not sure why but some firmwares have empty SSDTs.
        return 0;
    }
 
    // In section 20.2.1, we see the definition AMLCode := DefBlockHeader TermList.
    // The DefBlockHeader is already read as thats the `sdt_header_t`.
    // So the entire code is a termlist.
 
    aml_state_t state;
    if (aml_state_init(&state, NULL) == ERR)
    {
        return ERR;
    }
 
    aml_object_t* root = aml_namespace_get_root();
    DEREF_DEFER(root);
 
    uint64_t result = aml_term_list_read(&state, root, start, end, NULL);
 
    if (result != ERR)
    {
        aml_namespace_commit(&state.overlay);
    }
 
    aml_state_deinit(&state);
    return result;
}
 
static inline uint64_t aml_init_parse_all(void)
{
    dsdt_t* dsdt = (dsdt_t*)acpi_tables_lookup(DSDT_SIGNATURE, 0);
    if (dsdt == NULL)
    {
        LOG_ERR("failed to retrieve DSDT\n");
        return ERR;
    }
 
    LOG_INFO("DSDT found containing %llu bytes of AML code\n", dsdt->header.length - sizeof(dsdt_t));
 
    const uint8_t* dsdtEnd = (const uint8_t*)dsdt + dsdt->header.length;
    if (aml_parse(dsdt->definitionBlock, dsdtEnd) == ERR)
    {
        LOG_ERR("failed to parse DSDT\n");
        return ERR;
    }
 
    uint64_t index = 0;
    ssdt_t* ssdt = NULL;
    while (true)
    {
        ssdt = (ssdt_t*)acpi_tables_lookup(SSDT_SIGNATURE, index);
        if (ssdt == NULL)
        {
            break;
        }
 
        LOG_INFO("SSDT%llu found containing %llu bytes of AML code\n", index, ssdt->header.length - sizeof(ssdt_t));
 
        const uint8_t* ssdtEnd = (const uint8_t*)ssdt + ssdt->header.length;
        if (aml_parse(ssdt->definitionBlock, ssdtEnd) == ERR)
        {
            LOG_ERR("failed to parse SSDT%llu\n", index);
            return ERR;
        }
 
        index++;
    }
 
    LOG_INFO("parsed 1 DSDT and %llu SSDTs\n", index);
 
    return 0;
}
 
void aml_init(void)
{
    LOG_INFO("AML revision %d, init and parse all\n", AML_CURRENT_REVISION);
 
    mutex_init(&bigMutex);
    MUTEX_SCOPE(&bigMutex);
 
    aml_object_t* root = aml_object_new();
    if (root == NULL)
    {
        panic(NULL, "failed to create root AML object\n");
    }
    DEREF_DEFER(root);
 
    // We dont need to add the root to the namespace map as it has no name.
    if (aml_predefined_scope_set(root) == ERR)
    {
        panic(NULL, "failed to set predefined scope for root object\n");
    }
 
    if (aml_namespace_init(root) == ERR)
    {
        panic(NULL, "failed to initialize AML namespace\n");
    }
 
    if (aml_integer_handling_init() == ERR)
    {
        panic(NULL, "failed to initialize AML integer handling\n");
    }
 
    if (aml_predefined_init() == ERR)
    {
        panic(NULL, "failed to initialize AML predefined names\n");
    }
 
    if (aml_patch_up_init() == ERR)
    {
        panic(NULL, "failed to initialize AML patch up\n");
    }
 
#ifdef TESTING
    if (aml_tests_post_init() == ERR)
    {
        panic(NULL, "failed to run tests post init\n");
    }
#endif
 
    if (aml_init_parse_all() == ERR)
    {
        panic(NULL, "failed to parse all AML code\n");
    }
 
    LOG_INFO("resolving %llu unresolved objects\n", aml_patch_up_unresolved_count());
    if (aml_patch_up_resolve_all() == ERR)
    {
        panic(NULL, "failed to resolve all unresolved objects\n");
    }
 
    if (aml_patch_up_unresolved_count() > 0)
    {
        panic(NULL, "there are still %llu unresolved objects after patch up\n", aml_patch_up_unresolved_count());
    }
 
    if (aml_namespace_expose() == ERR)
    {
        panic(NULL, "failed to expose AML namespace in sysfs\n");
    }
 
#ifdef TESTING
    if (aml_tests_post_parse_all() == ERR)
    {
        panic(NULL, "failed to run tests post parse all\n");
    }
#endif
}
 
mutex_t* aml_big_mutex_get(void)
{
    return &bigMutex;
}