/usr/lib64/erlang/lib/erl_interface-5.2.2/src/misc/ Current File: //usr/lib64/erlang/lib/erl_interface-5.2.2/src/misc/ei_cmp_nc.c
/*
 * %CopyrightBegin%
 * 
 * Copyright Ericsson AB 2020. All Rights Reserved.
 * 
 * Licensed 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.
 * 
 * %CopyrightEnd%
 *
 */

#include <string.h>
#include "eidef.h"

/*
 * Comparison of node container types (pid, port, ref). Comparison
 * done the same way as ERTS compare them. In ref and port case,
 * node info is compared before other data, and in pid case node
 * info is compared after other data.
 */

static int cmp_nodes(char *aname, unsigned int acreation,
                     char *bname, unsigned int bcreation)
{
    int differ = strcmp(aname, bname);
    if (differ)
        return differ;
    if (acreation == bcreation)
        return 0;
    if (acreation < bcreation)
        return -1;
    return 1;
}

int
ei_cmp_refs(erlang_ref *a, erlang_ref *b)
{
    int differ;
    int i, alen, blen;
    unsigned int *anum, *bnum;

    differ = cmp_nodes(a->node, a->creation, b->node, b->creation);
    if (differ)
        return differ;

    alen = a->len;
    blen = b->len;

    anum = &a->n[0];
    bnum = &b->n[0];

    if (alen != blen) {
        if (alen > blen) {
            do {
                if (anum[alen - 1] != 0)
                    return 1;
                alen--;
            } while (alen > blen);
        }
        else {
            do {
                if (bnum[blen - 1] != 0)
                    return -1;
                blen--;
            } while (alen < blen);
        }
    }

    for (i = alen - 1; i >= 0; i--)
        if (anum[i] != bnum[i])
            return anum[i] < bnum[i] ? -1 : 1;

    return 0;
}

int
ei_cmp_pids(erlang_pid *a, erlang_pid *b)
{
    int differ;

    if (a->serial != b->serial)
        return a->serial < b->serial ? -1 : 1;

    if (a->num != b->num)
        return a->num < b->num ? -1 : 1;

    differ = cmp_nodes(a->node, a->creation, b->node, b->creation);
    if (differ)
        return differ;

    return 0;
}

int
ei_cmp_ports(erlang_port *a, erlang_port *b)
{
    int differ;

    differ = cmp_nodes(a->node, a->creation, b->node, b->creation);
    if (differ)
        return differ;

    if (a->id != b->id)
        return a->id < b->id ? -1 : 1;

    return 0;
}