Packages

circuits_uart

1.5.4
1.6.0 1.5.5 1.5.4 1.5.3 1.5.2 1.5.1 1.5.0 1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0 1.3.2 1.3.1 1.3.0

Discover and use UARTs and serial ports in Elixir

HexDocs

Current section

Files

Jump to
Readme
16 Versions
1 Dependency
Dependants
Files
Activity
circuits_uart src ei_copy encode_list_header.c
Raw

src/ei_copy/encode_list_header.c 

// SPDX-FileCopyrightText: Ericsson AB 1998-2009. All Rights Reserved.

//

// SPDX-License-Identifier: Apache-2.0

#include "eidef.h"

#include "eiext.h"

#include "putget.h"



int ei_encode_list_header(char *buf, int *index, int arity)

{

  char *s = buf + *index;

  char *s0 = s;



  if (arity < 0) return -1;

  else if (arity > 0) {

    if (!buf) s += 5;

    else {

      put8(s,ERL_LIST_EXT);

      put32be(s,arity);

    }

  }

  else {

    /* empty list */

    if (!buf) s++;

    else put8(s,ERL_NIL_EXT);

  }



  *index += s-s0; 



  return 0;

}