_sfputu.c revision 34f9b3eef6fdadbda0a846aa4d68691ac40eace5
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering/***********************************************************************
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* *
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) *
5430f7f2bc7330f3088b894166bf3524a067e3d8Lennart Poettering* *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Information and Software Systems Research *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* AT&T Research *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Florham Park NJ *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Glenn Fowler <gsf@research.att.com> *
5430f7f2bc7330f3088b894166bf3524a067e3d8Lennart Poettering* David Korn <dgk@research.att.com> *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering* Phong Vo <kpv@research.att.com> *
5430f7f2bc7330f3088b894166bf3524a067e3d8Lennart Poettering* *
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering***********************************************************************/
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering#include "sfhdr.h"
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering
cdb788e4cdc67bf7da6b3b1b3f4f295ef5c25c67Lennart Poettering/* Write out an unsigned long value in a portable format.
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek**
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek** Written by Kiem-Phong Vo.
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek*/
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek#if __STD_C
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmekint _sfputu(Sfio_t* f, Sfulong_t v)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek#else
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmekint _sfputu(f,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#endif
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek{
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek#define N_ARRAY (2*sizeof(Sfulong_t))
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek reg uchar *s, *ps;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek reg ssize_t n, p;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek uchar c[N_ARRAY];
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFMTXDECL(f);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFMTXENTER(f, -1);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek if(f->mode != SF_WRITE && _sfmode(f,SF_WRITE,0) < 0)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFMTXRETURN(f, -1);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFLOCK(f,0);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek /* code v as integers in base SF_UBASE */
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek s = ps = &(c[N_ARRAY-1]);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek *s = (uchar)SFUVALUE(v);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek while((v >>= SF_UBITS) )
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek *--s = (uchar)(SFUVALUE(v) | SF_MORE);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek n = (ps-s)+1;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
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 */
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek else
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek { switch(n)
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek {
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 8 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 7 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 6 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 5 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 4 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 3 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 2 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek case 1 : *ps++ = *s++;
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek }
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek f->next = ps;
3ba3a79df4ae094d1008c04a9af8d1ff970124c4Zbigniew Jędrzejewski-Szmek }
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFOPEN(f,0);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek SFMTXRETURN(f, (int)n);
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek}
798d3a524ea57aaf40cb53858aaa45ec702f012dZbigniew Jędrzejewski-Szmek