Kernel/src/bip_io.c

171 	    Bind_Var(v, t, hstream.val.all, hstream.tag.kernel);	\
289 			p_read_string(value vs, type ts, value vdel, type tdel, value vl, type tl, value val, type tag),
290 			p_read_string5(value vs, type ts, value vdel, type tdel, value vpad, type tpad, value vsep, type tsep, value val, type tag),
292 			p_get_char(value vs, type ts, value val, type tag),
293 			p_get(value vs, type ts, value val, type tag),
294 			p_get1(value val, type tag),
295 			p_put_char(value vs, type ts, value val, type tag),
298 			p_getw(value vs, type ts, value val, type tag),
543  * PARAMETERS:		v, t	- value and tag of a prolog word which
615 	hstream.tag.all = t.all;
645     if ((*nst = get_stream_id(pw.val, pw.tag, 0, &err)) == NO_STREAM)
669     Return_Unify_Pw(v2, t2, hstream.val, hstream.tag);
732 	    hstream.tag.all = ti.all;
736 	Return_Unify_Pw(vs, ts, hstream.val, hstream.tag);
787 p_get_char(value vs, type ts, value val, type tag)
793     Check_Output_String(tag);
794     if(IsString(tag) && (*(StringStart(val)) == 0 || *(StringStart(val) + 1) != 0))
818 	Return_Unify_String(val, tag, v.ptr);
827 p_put_char(value vs, type ts, value val, type tag)
837     if (IsAtom(tag)) {
840     } else if (IsString(tag)) {
843     } else if (IsRef(tag)) {
952 	    init_string_pw.tag.all = tfile.all;
963 	if (!IsRef(vmode.ptr[1].tag) && IsInteger(vmode.ptr[1].tag))
1007 		Check_String(init_string->tag);
1014 		Check_String(init_string->tag);
1020 		Check_Integer(pw->tag);
1040     if (init_string && IsString(init_string->tag) &&
1088 	if (IsRef(init_string->tag))	/* obsolete */
1090 	    Request_Unify_String(init_string->val, init_string->tag, empty_string);
1117 	Request_Unify_Pw(vstr, tstr, hstream.val, hstream.tag);
1148 	Error_If_Ref(car->tag);
1149 	if (!IsStructure(car->tag)) {
1154 	    Check_Atom(car[1].tag);
1162 	topt = cdr->tag;
1212 	hstream.tag.all = t.all;
1225     return p_close2(v, t, nil.val, nil.tag);
1419 	Return_Unify_Pw(ov, ot, hstream.val, hstream.tag);
1472 	pt.all = pv.ptr[1].tag.all;
1541 	    result.tag.kernel = TSTRG;
1546 		result.tag.kernel = TNIL;
1548 		result.tag.kernel = TDICT;
1558 	    result.tag.kernel = TSTRG;
1571 	result.tag.kernel = TDICT;
1575 	result.tag.kernel = TINT;
1580 	result.tag.kernel = TINT;
1588 	    result.tag.kernel = TINT;
1599 	result.tag.kernel = TINT;
1607 	result.tag.kernel = TDICT;
1617 	result.tag.kernel = TINT;
1633 	    result.tag.kernel = TINT;
1641 	    result.tag.kernel = TDICT;
1654 	    result.tag.kernel = TDICT;
1669 	result.tag.kernel = TINT;
1678 	result.tag.kernel = TINT;
1683 	if (IsNil(StreamEvent(nst).tag)) {
1685 	} else if (IsTag(StreamEvent(nst).tag.kernel, TPTR)) {
1707 	result.tag.kernel = TDICT;
1746 	result.tag.kernel = TDICT;
1765 	result.tag.kernel = TDICT;
1784 	result.tag.kernel = TDICT;
1791 	    result.tag.kernel = TNIL;
1793 	    result.tag.kernel = TDICT;
1825 	result.tag.kernel = TDICT;
1834 	result.tag.kernel = TDICT;
1840     Return_Unify_Pw(v, t, result.val, result.tag);
1942 	    if (IsTag(StreamEvent(nst).tag.kernel, TPTR)) {
1957 		StreamEvent(nst).tag.kernel = TPTR;
2205 p_get(value vs, type ts, value val, type tag)
2210     Check_Output_Integer(tag);
2224     Return_Unify_Integer(val, tag, res);
2244 p_getw(value vs, type ts, value val, type tag)
2254     Check_Output_Integer(tag);
2274     Return_Unify_Integer(val, tag, w);
2278 p_get1(value val, type tag)
2282     Check_Output_Integer(tag);
2292     Return_Unify_Integer(val, tag, res);
2425 	Bind_Stream(in_s.val, in_s.tag, nr);
2426 	Bind_Stream(out_s.val, out_s.tag, nw);
2439 p_read_string(value vs, type ts, value vdel, type tdel, value vl, type tl, value val, type tag)
2472     Check_Output_String(tag);
2534     Request_Unify_String(val, tag, pw);
2564 	value vpad, type tpad, value vsep, type tsep, value val, type tag)
2597     /* Check_Output_String(tag); */
2685     Request_Unify_String(val, tag, pw);
2774     Request_Unify_Pw(vfiles, tfiles, file_list.val, file_list.tag);
2775     Request_Unify_Pw(vsubdirs, tsubdirs, dir_list.val, dir_list.tag);
2828 	    dir_last->tag.kernel = TLIST;	/* append the new element */
2836 	    file_last->tag.kernel = TLIST;	/* append the new element */
2842 	elem->tag.kernel = TSTRG;		/* value is the name string */
2847     file_last->tag.kernel = TNIL;		/* terminate the lists */
2848     dir_last->tag.kernel = TNIL;
2851     Request_Unify_Pw(vfiles, tfiles, file_list.val, file_list.tag);
2852     Request_Unify_Pw(vsubdirs, tsubdirs, dir_list.val, dir_list.tag);
2920     Bind_Stream(p.val, p.tag, onst);
2963 		Check_Output_Atom_Or_Nil(addr->val, addr->tag);
2966 		Check_Output_Integer(port->tag);
2971 	if (IsRef(taddr) || IsRef(addr->tag))
2993 	if (!IsRef(taddr) && IsInteger(port->tag))
3011 	    pw[0].tag.kernel = TDICT;
3014 	    pw[1].tag.kernel = TDICT;
3016 	    pw[2].tag.kernel = TINT;
3019 	if (IsRef(port->tag)) {
3020 	    Request_Unify_Integer(port->val, port->tag, ntohs(name.sin_port));
3022 	if (IsRef(addr->tag)) {
3023 	    Request_Unify_Atom(addr->val, addr->tag, hdid);
3102 	Error_If_Ref(addr->tag);
3103 	if (IsInteger(addr->tag)) {
3112 	    if (IsString(addr->tag)) {
3114 	    } else if (IsAtom(addr->tag)) {
3116 	    } else if (IsNil(addr->tag)) {
3125 	Check_Integer(port->tag);
3248 	pw[0].tag.kernel = TDICT;
3252 	    pw[1].tag.kernel = TDICT;
3256 	    pw[1].tag.kernel = TREF;
3260 	pw[2].tag.kernel = TINT;
3283     Bind_Stream(p.val, p.tag, onst);
3660 	nst = get_stream_id(pw->val, pw->tag, 0, &res);
3708 	if (IsRef(pl->tag))
3710 	else if (IsList(pl->tag))
3712 	else if (IsNil(pl->tag))
3759 	nst = get_stream_id(pw->val, pw->tag, 0, &res);
3772 	    p++->tag.kernel = TLIST;
3776 	if (IsList(pl->tag))
3786 	(p - 1)->tag.kernel = TNIL;
3947 	    if (IsNumber(car->tag))
3951 		len = tag_desc[TagType(car->tag)].string_size(car->val, car->tag, 0);
3953 		len = tag_desc[TagType(car->tag)].to_string(car->val, car->tag, argv[i], 0);
3962 		if (IsAtom(car->tag)) {
3965 		} else if (IsString(car->tag)) {
3968 		} else if (IsNil(car->tag)) {
3971 		} else if (IsRef(car->tag)) {
3988 		Get_Name(car->val, car->tag, argv[i]);
3995 	    if (IsNil(cdr->tag)) {
3997 	    } else if (!IsList(cdr->tag)) {
4260 	    Bind_Stream(p->pw.val, p->pw.tag, id);
4367 		Bind_Stream(p->pw.val, p->pw.tag, id);
4488 	    res = _check_stream(p->val, p->tag, &pipes[i].pw, io);
4499 	    if (IsNil(l->tag))
4501 	    if (!IsList(l->tag))
4502 		return IsRef(l->tag) ? INSTANTIATION_FAULT : TYPE_ERROR;
4546 	if ((res = _check_stream(v.ptr->val, v.ptr->tag, s, io)) < 0)
4559 	if ((res = _check_stream(v.ptr->val, v.ptr->tag, s, 0)) < 0)
4568     s->tag = t;