1 |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
327 |
#define FUNC_NAME s_scm_drain_input |
#define FUNC_NAME s_scm_drain_input |
328 |
{ |
{ |
329 |
SCM result; |
SCM result; |
330 |
scm_t_port *pt = SCM_PTAB_ENTRY (port); |
scm_t_port *pt; |
331 |
long count; |
long count; |
332 |
|
|
333 |
SCM_VALIDATE_OPINPORT (1,port); |
SCM_VALIDATE_OPINPORT (1,port); |
334 |
|
pt = SCM_PTAB_ENTRY (port); |
335 |
|
|
336 |
count = pt->read_end - pt->read_pos; |
count = pt->read_end - pt->read_pos; |
337 |
if (pt->read_buf == pt->putback_buf) |
if (pt->read_buf == pt->putback_buf) |