libc/src/stdio/gpu/ungetc.cpp

   1 //===-- Implementation of ungetc ------------------------------------------===//
   2 //
   3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 // See https://llvm.org/LICENSE.txt for license information.
   5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #include "src/stdio/ungetc.h"
  10 #include "file.h"
  11 #include "src/__support/macros/config.h"
  12
  13 #include "hdr/types/FILE.h"
  14
  15 namespace LIBC_NAMESPACE_DECL {
  16
  17 LLVM_LIBC_FUNCTION(int, ungetc, (int c, ::FILE *stream)) {
  18   int ret;
  19   rpc::Client::Port port = rpc::client.open<RPC_UNGETC>();
  20   port.send_and_recv(
  21       [=](rpc::Buffer *buffer, uint32_t) {
  22         buffer->data[0] = c;
  23         buffer->data[1] = file::from_stream(stream);
  24       },
  25       [&](rpc::Buffer *buffer, uint32_t) {
  26         ret = static_cast<int>(buffer->data[0]);
  27       });
  28   port.close();
  29   return ret;
  30 }
  31
  32 } // namespace LIBC_NAMESPACE_DECL