mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-24 07:31:32 +00:00
167 lines
3.6 KiB
C++
167 lines
3.6 KiB
C++
/* Marshalling and unmarshalling.
|
|
Copyright (C) 2014 Free Software Foundation, Inc.
|
|
|
|
This file is part of GCC.
|
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free
|
|
Software Foundation; either version 3, or (at your option) any later
|
|
version.
|
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GCC; see the file COPYING3. If not see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#include <cc1plugin-config.h>
|
|
#include <new>
|
|
#include <string.h>
|
|
#include "marshall.hh"
|
|
#include "connection.hh"
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall_check (connection *conn, unsigned long long check)
|
|
{
|
|
unsigned long long r;
|
|
|
|
if (!unmarshall (conn, &r))
|
|
return FAIL;
|
|
return check == r ? OK : FAIL;
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::marshall_intlike (connection *conn, unsigned long long val)
|
|
{
|
|
if (!conn->send ('i'))
|
|
return FAIL;
|
|
return conn->send (&val, sizeof (val));
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall_intlike (connection *conn, unsigned long long *result)
|
|
{
|
|
if (!conn->require ('i'))
|
|
return FAIL;
|
|
return conn->get (result, sizeof (*result));
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall (connection *conn, enum gcc_c_symbol_kind *result)
|
|
{
|
|
protocol_int p;
|
|
if (!unmarshall_intlike (conn, &p))
|
|
return FAIL;
|
|
*result = (enum gcc_c_symbol_kind) p;
|
|
return OK;
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall (connection *conn, enum gcc_c_oracle_request *result)
|
|
{
|
|
protocol_int p;
|
|
if (!unmarshall_intlike (conn, &p))
|
|
return FAIL;
|
|
*result = (enum gcc_c_oracle_request) p;
|
|
return OK;
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall (connection *conn, enum gcc_qualifiers *result)
|
|
{
|
|
protocol_int p;
|
|
if (!unmarshall_intlike (conn, &p))
|
|
return FAIL;
|
|
*result = (enum gcc_qualifiers) p;
|
|
return OK;
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::marshall (connection *conn, const char *str)
|
|
{
|
|
if (!conn->send ('s'))
|
|
return FAIL;
|
|
|
|
unsigned long long len = str == NULL ? -1ULL : strlen (str);
|
|
if (!conn->send (&len, sizeof (len)))
|
|
return FAIL;
|
|
|
|
if (str == NULL)
|
|
return OK;
|
|
|
|
return conn->send (str, len);
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall (connection *conn, char **result)
|
|
{
|
|
unsigned long long len;
|
|
|
|
if (!conn->require ('s'))
|
|
return FAIL;
|
|
if (!conn->get (&len, sizeof (len)))
|
|
return FAIL;
|
|
|
|
if (len == -1ULL)
|
|
{
|
|
*result = NULL;
|
|
return OK;
|
|
}
|
|
|
|
char *str = new (std::nothrow) char[len + 1];
|
|
if (str == NULL)
|
|
return FAIL;
|
|
|
|
if (!conn->get (str, len))
|
|
{
|
|
delete[] str;
|
|
return FAIL;
|
|
}
|
|
|
|
str[len] = '\0';
|
|
*result = str;
|
|
|
|
return OK;
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::marshall (connection *conn, const gcc_type_array *a)
|
|
{
|
|
if (!conn->send ('a'))
|
|
return FAIL;
|
|
|
|
unsigned long long r = a->n_elements;
|
|
if (!conn->send (&r, sizeof (r)))
|
|
return FAIL;
|
|
|
|
return conn->send (a->elements, r * sizeof (a->elements[0]));
|
|
}
|
|
|
|
cc1_plugin::status
|
|
cc1_plugin::unmarshall (connection *conn, gcc_type_array **result)
|
|
{
|
|
unsigned long long len;
|
|
|
|
if (!conn->require ('a'))
|
|
return FAIL;
|
|
if (!conn->get (&len, sizeof (len)))
|
|
return FAIL;
|
|
|
|
*result = new gcc_type_array;
|
|
|
|
(*result)->n_elements = len;
|
|
(*result)->elements = new gcc_type[len];
|
|
|
|
if (!conn->get ((*result)->elements, len * sizeof ((*result)->elements[0])))
|
|
{
|
|
delete[] (*result)->elements;
|
|
delete *result;
|
|
return FAIL;
|
|
}
|
|
|
|
return OK;
|
|
}
|