clownfish/lib/Clownfish/Binding/Core/Aliases.pm

# 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.

use strict;
use warnings;

package Clownfish::Binding::Core::Aliases;

our %aliases = (
    cfish_ref_t        => 'lucy_ref_t',
    cfish_method_t     => 'lucy_method_t',
    cfish_method       => 'lucy_method',
    cfish_super_method => 'lucy_super_method',

    cfish_Obj                => 'lucy_Obj',
    CFISH_OBJ                => 'LUCY_OBJ',
    Cfish_Obj_Dump           => 'Lucy_Obj_Dump',
    Cfish_Obj_Get_Class_Name => 'Lucy_Obj_Get_Class_Name',
    Cfish_Obj_Is_A           => 'Lucy_Obj_Is_A',
    Cfish_Obj_Load           => 'Lucy_Obj_Load',
    Cfish_Obj_To_F64         => 'Lucy_Obj_To_F64',
    Cfish_Obj_To_I64         => 'Lucy_Obj_To_I64',
    Cfish_Obj_To_Host        => 'Lucy_Obj_To_Host',
    Cfish_Obj_Dec_RefCount   => 'Lucy_Obj_Dec_RefCount',
    Cfish_Obj_Inc_RefCount   => 'Lucy_Obj_Inc_RefCount',

    cfish_ByteBuf     => 'lucy_ByteBuf',
    CFISH_BYTEBUF     => 'LUCY_BYTEBUF',
    Cfish_BB_Get_Size => 'Lucy_BB_Get_Size',
    Cfish_BB_Get_Buf  => 'Lucy_BB_Get_Buf',

    cfish_CharBuf                  => 'lucy_CharBuf',
    CFISH_CHARBUF                  => 'LUCY_CHARBUF',
    cfish_CB_newf                  => 'lucy_CB_newf',
    cfish_CB_new_from_trusted_utf8 => 'lucy_CB_new_from_trusted_utf8',
    Cfish_CB_Clone                 => 'Lucy_CB_Clone',
    cfish_ZombieCharBuf            => 'lucy_ZombieCharBuf',
    CFISH_ZOMBIECHARBUF            => 'LUCY_ZOMBIECHARBUF',
    CFISH_VIEWCHARBUF              => 'LUCY_VIEWCHARBUF',
    cfish_ZCB_size                 => 'lucy_ZCB_size',
    cfish_ZCB_wrap_str             => 'lucy_ZCB_wrap_str',
    Cfish_ZCB_Assign_Str           => 'Lucy_ZCB_Assign_Str',
    Cfish_ZCB_Assign_Trusted_Str   => 'Lucy_ZCB_Assign_Trusted_Str',
    Cfish_CB_Get_Ptr8              => 'Lucy_CB_Get_Ptr8',
    Cfish_CB_Get_Size              => 'Lucy_CB_Get_Size',

    CFISH_FLOATNUM  => 'LUCY_FLOATNUM',
    CFISH_INTNUM    => 'LUCY_INTNUM',
    CFISH_INTEGER32 => 'LUCY_INTEGER32',
    CFISH_INTEGER64 => 'LUCY_INTEGER64',
    CFISH_FLOAT32   => 'LUCY_FLOAT32',
    CFISH_FLOAT64   => 'LUCY_FLOAT64',

    CFISH_ERR           => 'LUCY_ERR',
    cfish_Err_new       => 'lucy_Err_new',
    cfish_Err_set_error => 'lucy_Err_set_error',
    cfish_Err_get_error => 'lucy_Err_get_error',

    cfish_Hash           => 'lucy_Hash',
    CFISH_HASH           => 'LUCY_HASH',
    cfish_Hash_new       => 'lucy_Hash_new',
    Cfish_Hash_Iterate   => 'Lucy_Hash_Iterate',
    Cfish_Hash_Next      => 'Lucy_Hash_Next',
    Cfish_Hash_Fetch_Str => 'Lucy_Hash_Fetch_Str',
    Cfish_Hash_Store_Str => 'Lucy_Hash_Store_Str',
    Cfish_Hash_Store     => 'Lucy_Hash_Store',

    cfish_VArray      => 'lucy_VArray',
    CFISH_VARRAY      => 'LUCY_VARRAY',
    cfish_VA_new      => 'lucy_VA_new',
    Cfish_VA_Fetch    => 'Lucy_VA_Fetch',
    Cfish_VA_Get_Size => 'Lucy_VA_Get_Size',
    Cfish_VA_Resize   => 'Lucy_VA_Resize',
    Cfish_VA_Store    => 'Lucy_VA_Store',

    cfish_VTable                       => 'lucy_VTable',
    CFISH_VTABLE                       => 'LUCY_VTABLE',
    cfish_VTable_add_to_registry       => 'lucy_VTable_add_to_registry',
    cfish_VTable_add_alias_to_registry => 'lucy_VTable_add_alias_to_registry',
    cfish_VTable_offset_of_parent      => 'lucy_VTable_offset_of_parent',
    cfish_VTable_singleton             => 'lucy_VTable_singleton',
    Cfish_VTable_Get_Name              => 'Lucy_VTable_Get_Name',
    Cfish_VTable_Make_Obj              => 'Lucy_VTable_Make_Obj',

    cfish_Host_callback      => 'lucy_Host_callback',
    cfish_Host_callback_f64  => 'lucy_Host_callback_f64',
    cfish_Host_callback_host => 'lucy_Host_callback_host',
    cfish_Host_callback_i64  => 'lucy_Host_callback_i64',
    cfish_Host_callback_obj  => 'lucy_Host_callback_obj',
    cfish_Host_callback_str  => 'lucy_Host_callback_str',

    CFISH_USE_SHORT_NAMES => 'LUCY_USE_SHORT_NAMES',
);

sub c_aliases {
    my $content = "#ifndef CFISH_C_ALIASES\n#define CFISH_C_ALIASES\n\n";
    for my $alias ( keys %aliases ) {
        $content .= "#define $alias $aliases{$alias}\n";
    }
    $content .= "\n#endif /* CFISH_C_ALIASES */\n\n";
    return $content;
}

1;