1485 |
} |
} |
1486 |
|
|
1487 |
|
|
1488 |
void |
|
1489 |
Lmake_synonym_stream() |
LFD(Lmake_synonym_stream)() |
1490 |
{ |
{ |
1491 |
object x; |
object x; |
1492 |
|
|
1501 |
vs_base[0] = x; |
vs_base[0] = x; |
1502 |
} |
} |
1503 |
|
|
1504 |
void |
LFD(Lmake_broadcast_stream)() |
|
Lmake_broadcast_stream() |
|
1505 |
{ |
{ |
1506 |
object x; |
object x; |
1507 |
int narg, i; |
int narg, i; |
1523 |
vs_base[0] = x; |
vs_base[0] = x; |
1524 |
} |
} |
1525 |
|
|
1526 |
static void |
LFD(Lmake_concatenated_stream)() |
|
Lmake_concatenated_stream() |
|
1527 |
{ |
{ |
1528 |
object x; |
object x; |
1529 |
int narg, i; |
int narg, i; |
1545 |
vs_base[0] = x; |
vs_base[0] = x; |
1546 |
} |
} |
1547 |
|
|
1548 |
void |
LFD(Lmake_two_way_stream)() |
|
Lmake_two_way_stream() |
|
1549 |
{ |
{ |
1550 |
check_arg(2); |
check_arg(2); |
1551 |
|
|
1559 |
vs_popp; |
vs_popp; |
1560 |
} |
} |
1561 |
|
|
1562 |
void |
LFD(Lmake_echo_stream)() |
|
Lmake_echo_stream() |
|
1563 |
{ |
{ |
1564 |
check_arg(2); |
check_arg(2); |
1565 |
|
|
1600 |
@) |
@) |
1601 |
|
|
1602 |
static void |
static void |
1603 |
Lmake_string_output_stream() |
FFN(Lmake_string_output_stream)() |
1604 |
{ |
{ |
1605 |
check_arg(0); |
check_arg(0); |
1606 |
vs_push(make_string_output_stream(64)); |
vs_push(make_string_output_stream(64)); |
1607 |
} |
} |
1608 |
|
|
1609 |
static void |
LFD(Lget_output_stream_string)() |
|
Lget_output_stream_string() |
|
1610 |
{ |
{ |
1611 |
check_arg(1); |
check_arg(1); |
1612 |
|
|
1622 |
extracts the string associated with the given |
extracts the string associated with the given |
1623 |
string-output-stream. |
string-output-stream. |
1624 |
*/ |
*/ |
1625 |
void |
LFD(siLoutput_stream_string)() |
|
siLoutput_stream_string() |
|
1626 |
{ |
{ |
1627 |
check_arg(1); |
check_arg(1); |
1628 |
if (type_of(vs_base[0]) != t_stream || |
if (type_of(vs_base[0]) != t_stream || |
1631 |
vs_base[0] = vs_base[0]->sm.sm_object0; |
vs_base[0] = vs_base[0]->sm.sm_object0; |
1632 |
} |
} |
1633 |
|
|
1634 |
void |
LFD(Lstreamp)() |
|
Lstreamp() |
|
1635 |
{ |
{ |
1636 |
check_arg(1); |
check_arg(1); |
1637 |
|
|
1641 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
1642 |
} |
} |
1643 |
|
|
1644 |
void |
LFD(Linput_stream_p)() |
|
Linput_stream_p() |
|
1645 |
{ |
{ |
1646 |
check_arg(1); |
check_arg(1); |
1647 |
|
|
1652 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
1653 |
} |
} |
1654 |
|
|
1655 |
void |
LFD(Loutput_stream_p)() |
|
Loutput_stream_p() |
|
1656 |
{ |
{ |
1657 |
check_arg(1); |
check_arg(1); |
1658 |
|
|
1663 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
1664 |
} |
} |
1665 |
|
|
1666 |
void |
LFD(Lstream_element_type)() |
|
Lstream_element_type() |
|
1667 |
{ |
{ |
1668 |
check_arg(1); |
check_arg(1); |
1669 |
|
|
1750 |
} |
} |
1751 |
@) |
@) |
1752 |
|
|
1753 |
void |
LFD(Lfile_length)() |
|
Lfile_length() |
|
1754 |
{ |
{ |
1755 |
int i; |
int i; |
1756 |
|
|
1938 |
@) |
@) |
1939 |
|
|
1940 |
static void |
static void |
1941 |
siLget_string_input_stream_index() |
FFN(siLget_string_input_stream_index)() |
1942 |
{ |
{ |
1943 |
check_arg(1); |
check_arg(1); |
1944 |
check_type_stream(&vs_base[0]); |
check_type_stream(&vs_base[0]); |
1947 |
vs_base[0] = make_fixnum(STRING_INPUT_STREAM_NEXT(vs_base[0])); |
vs_base[0] = make_fixnum(STRING_INPUT_STREAM_NEXT(vs_base[0])); |
1948 |
} |
} |
1949 |
|
|
1950 |
static void |
LFD(siLmake_string_output_stream_from_string)() |
|
siLmake_string_output_stream_from_string() |
|
1951 |
{ |
{ |
1952 |
object strng, strm; |
object strng, strm; |
1953 |
|
|
1965 |
vs_base[0] = strm; |
vs_base[0] = strm; |
1966 |
} |
} |
1967 |
|
|
1968 |
void |
LFD(siLcopy_stream)() |
|
siLcopy_stream() |
|
1969 |
{ |
{ |
1970 |
object in, out; |
object in, out; |
1971 |
|
|
2022 |
#ifdef USER_DEFINED_STREAMS |
#ifdef USER_DEFINED_STREAMS |
2023 |
/* more support for user defined streams */ |
/* more support for user defined streams */ |
2024 |
static void |
static void |
2025 |
siLuser_stream_state() |
FFN(siLuser_stream_state)() |
2026 |
{ |
{ |
2027 |
check_arg(1); |
check_arg(1); |
2028 |
|
|
2096 |
} |
} |
2097 |
|
|
2098 |
static void |
static void |
2099 |
siLfp_output_stream() |
FFN(siLfp_output_stream)() |
2100 |
{check_arg(1); |
{check_arg(1); |
2101 |
vs_base[0]=coerce_stream(vs_base[0],1); |
vs_base[0]=coerce_stream(vs_base[0],1); |
2102 |
} |
} |
2103 |
|
|
2104 |
static void |
static void |
2105 |
siLfp_input_stream() |
FFN(siLfp_input_stream)() |
2106 |
{check_arg(1); |
{check_arg(1); |
2107 |
vs_base[0]=coerce_stream(vs_base[0],0); |
vs_base[0]=coerce_stream(vs_base[0],0); |
2108 |
} |
} |