_sfputu.c revision 34f9b3eef6fdadbda0a846aa4d68691ac40eace5
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering/***********************************************************************
12b42c76672a66c2d4ea7212c14f8f1b5a62b78dTom Gundersen* This software is part of the ast package *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Copyright (c) 1985-2009 AT&T Intellectual Property *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* and is licensed under the *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Common Public License, Version 1.0 *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* by AT&T Intellectual Property *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* A copy of the License is available at *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* http://www.opensource.org/licenses/cpl1.0.txt *
5430f7f2bc7330f3088b894166bf3524a067e3d8Lennart Poettering* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Information and Software Systems Research *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* AT&T Research *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Florham Park NJ *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Glenn Fowler <gsf@research.att.com> *
5430f7f2bc7330f3088b894166bf3524a067e3d8Lennart Poettering* David Korn <dgk@research.att.com> *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Phong Vo <kpv@research.att.com> *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering***********************************************************************/
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering/* Write out an unsigned long value in a portable format.
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek** Written by Kiem-Phong Vo.
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmekint _sfputu(Sfio_t* f, Sfulong_t v)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-SzmekSfio_t* f; /* write a portable ulong to this stream */
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-SzmekSfulong_t v; /* the unsigned value to be written */
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek#define N_ARRAY (2*sizeof(Sfulong_t))
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek if(f->mode != SF_WRITE && _sfmode(f,SF_WRITE,0) < 0)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek /* code v as integers in base SF_UBASE */
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek *--s = (uchar)(SFUVALUE(v) | SF_MORE);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek if(n > 8 || SFWPEEK(f,ps,p) < n)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek n = SFWRITE(f,(Void_t*)s,n); /* write the hard way */