Return to extra.c CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / libc

Annotation of qemu/roms/openbios/libc/extra.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *   Creation Date: <2003/10/18 13:52:32 samuel>
                      3:  *   Time-stamp: <2003/10/18 13:54:24 samuel>
                      4:  *
                      5:  *     <extra.c>
                      6:  *
                      7:  *     Libc extras
                      8:  *
                      9:  *   Copyright (C) 2003 Samuel Rydh ([email protected])
                     10:  *
                     11:  *   This program is free software; you can redistribute it and/or
                     12:  *   modify it under the terms of the GNU General Public License
                     13:  *   version 2
                     14:  *
                     15:  */
                     16: 
                     17: #include "config.h"
                     18: #include "libc/string.h"
                     19: #include "libc/vsprintf.h"
                     20: #include "libopenbios/bindings.h"
                     21: 
                     22: /* strncpy without 0-pad */
                     23: char *
                     24: strncpy_nopad( char *dest, const char *src, size_t n )
                     25: {
                     26:        int len = MIN( n, strlen(src)+1 );
                     27:        return memcpy( dest, src, len );
                     28: }
                     29: 
                     30: /* printf */
                     31: 
                     32: int forth_printf( const char *fmt, ... )
                     33: {
                     34:        char buf[512];
                     35:        va_list args;
                     36:        int i;
                     37: 
                     38:        va_start(args, fmt);
                     39:        i = vsnprintf(buf, sizeof(buf), fmt, args);
                     40:        va_end(args);
                     41: 
                     42:        PUSH(pointer2cell(buf));
                     43:        PUSH(i);
                     44:        fword("type");
                     45: 
                     46:        return i;
                     47: }
                     48: 
                     49: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.