Class PascalDemangler

lib/demangler/pascal.ts:31–237

import {BaseDemangler} from './base.js';

export class PascalDemangler extends BaseDemangler {
    static get key() {
        return 'pascal';
    }

    symbolStore: SymbolStore;
    fixedsymbols: Record<string, string>;
    ignoredsymbols: string[];

    constructor(demanglerExe: string, compiler: BaseCompiler, demanglerArguments: string[] = []) {
        super(demanglerExe, compiler, demanglerArguments);

        this.symbolStore = new SymbolStore();
        this.fixedsymbols = {};
        this.ignoredsymbols = [];

        this.initBasicSymbols();
    }

    protected initBasicSymbols() {
        this.fixedsymbols.OUTPUT_$$_init = 'unit_initialization';
        this.fixedsymbols.OUTPUT_$$_finalize = 'unit_finalization';
        this.fixedsymbols.OUTPUT_$$_init_implicit = 'unit_initialization_implicit';
        this.fixedsymbols.OUTPUT_$$_finalize_implicit = 'unit_finalization_implicit';
        this.fixedsymbols.OUTPUT_init = 'unit_initialization';
        this.fixedsymbols.OUTPUT_finalize = 'unit_finalization';
        this.fixedsymbols.OUTPUT_init_implicit = 'unit_initialization_implicit';
        this.fixedsymbols.OUTPUT_finalize_implicit = 'unit_finalization_implicit';

        this.ignoredsymbols = [
            '.L',
            'VMT_$',
            'INIT_$',
            'INIT$_$',
            'FINALIZE$_$',
            'RTTI_$',
            'VMT_OUTPUT_',
            'INIT$_OUTPUT',
            'RTTI_OUTPUT_',
            'FINALIZE$_OUTPUT',
            '_$',
            'DEBUGSTART_$',
            'DEBUGEND_$',
            'DBG_$',
            'DBG2_$',
            'DBGREF_$',
            'DEBUGSTART_OUTPUT',
            'DEBUGEND_OUTPUT',
            'DBG_OUTPUT_',
            'DBG2_OUTPUT_',
            'DBGREF_OUTPUT_',
        ];
    }

    public shouldIgnoreSymbol(text: string) {
        for (const k in this.ignoredsymbols) {
            if (text.startsWith(this.ignoredsymbols[k])) {
                return true;