mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Declare r6rs-ports functions

Browse source 
* libguile/r6rs-ports.h:
* libguile/r6rs-ports.c: Declare scm_unget_bytevector and
  scm_i_make_transcoded_port.
This commit is contained in:
Andy Wingo 2013-11-27 21:13:20 +01:00
parent fe8935d432
commit 36cc0b901c
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/r6rs-ports.c
View file

@ -1181,6 +1181,8 @@ initialize_transcoded_ports (void)
scm_set_port_close (transcoded_port_type, tp_close); scm_set_port_close (transcoded_port_type, tp_close);
} }
SCM_INTERNAL SCM scm_i_make_transcoded_port (SCM);
SCM_DEFINE (scm_i_make_transcoded_port, SCM_DEFINE (scm_i_make_transcoded_port,
"%make-transcoded-port", 1, 0, 0, "%make-transcoded-port", 1, 0, 0,
(SCM port), (SCM port),

3
libguile/r6rs-ports.h
View file

@ -1,7 +1,7 @@
#ifndef SCM_R6RS_PORTS_H #ifndef SCM_R6RS_PORTS_H
#define SCM_R6RS_PORTS_H #define SCM_R6RS_PORTS_H
/* Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. /* Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -34,6 +34,7 @@ SCM_API SCM scm_get_bytevector_n (SCM, SCM);
SCM_API SCM scm_get_bytevector_n_x (SCM, SCM, SCM, SCM); SCM_API SCM scm_get_bytevector_n_x (SCM, SCM, SCM, SCM);
SCM_API SCM scm_get_bytevector_some (SCM); SCM_API SCM scm_get_bytevector_some (SCM);
SCM_API SCM scm_get_bytevector_all (SCM); SCM_API SCM scm_get_bytevector_all (SCM);
SCM_API SCM scm_unget_bytevector (SCM, SCM, SCM, SCM);
SCM_API SCM scm_put_u8 (SCM, SCM); SCM_API SCM scm_put_u8 (SCM, SCM);
SCM_API SCM scm_put_bytevector (SCM, SCM, SCM, SCM); SCM_API SCM scm_put_bytevector (SCM, SCM, SCM, SCM);
SCM_API SCM scm_open_bytevector_output_port (SCM); SCM_API SCM scm_open_bytevector_output_port (SCM);