printf.c
上传用户:xiejiait
上传日期:2007-01-06
资源大小:881k
文件大小:2k
源码类别:

SCSI/ASPI

开发平台:

MultiPlatform

  1. /* @(#)printf.c 1.11 98/09/05 Copyright 1985 J. Schilling */
  2. /*
  3.  * Copyright (c) 1985 J. Schilling
  4.  */
  5. /*
  6.  * This program is free software; you can redistribute it and/or modify
  7.  * it under the terms of the GNU General Public License as published by
  8.  * the Free Software Foundation; either version 2, or (at your option)
  9.  * any later version.
  10.  *
  11.  * This program is distributed in the hope that it will be useful,
  12.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.  * GNU General Public License for more details.
  15.  *
  16.  * You should have received a copy of the GNU General Public License
  17.  * along with this program; see the file COPYING.  If not, write to
  18.  * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  */
  20. #include <mconfig.h>
  21. #include <stdio.h>
  22. #include <vadefs.h>
  23. #include <standard.h>
  24. #define BFSIZ 256
  25. typedef struct {
  26. short cnt;
  27. char *ptr;
  28. char buf[BFSIZ];
  29. int count;
  30. FILE *f;
  31. } *BUF, _BUF;
  32. LOCAL void _bflush __PR((BUF));
  33. LOCAL void _bput __PR((char, long));
  34. LOCAL void _bflush (bp)
  35. register BUF bp;
  36. {
  37. bp->count += bp->ptr - bp->buf;
  38. if (filewrite (bp->f, bp->buf, bp->ptr - bp->buf) < 0)
  39. bp->count = EOF;
  40. bp->ptr = bp->buf;
  41. bp->cnt = BFSIZ;
  42. }
  43. #ifdef PROTOTYPES
  44. LOCAL void _bput (char c, long l)
  45. #else
  46. LOCAL void _bput (c, l)
  47. char c;
  48. long l;
  49. #endif
  50. register BUF bp = (BUF)l;
  51. *bp->ptr++ = c;
  52. if (--bp->cnt <= 0)
  53. _bflush (bp);
  54. }
  55. /* VARARGS2 */
  56. #ifdef PROTOTYPES
  57. EXPORT int printf(const char *form, ...)
  58. #else
  59. EXPORT int printf(form, va_alist)
  60. char *form;
  61. va_dcl
  62. #endif
  63. {
  64. va_list args;
  65. _BUF bb;
  66. bb.ptr = bb.buf;
  67. bb.cnt = BFSIZ;
  68. bb.count = 0;
  69. bb.f = stdout;
  70. #ifdef PROTOTYPES
  71. va_start(args, form);
  72. #else
  73. va_start(args);
  74. #endif
  75. format(_bput, (long)&bb, form, args);
  76. va_end(args);
  77. if (bb.cnt < BFSIZ)
  78. _bflush (&bb);
  79. return (bb.count);
  80. }
  81. /* VARARGS3 */
  82. #ifdef PROTOTYPES
  83. EXPORT int fprintf(FILE *file, const char *form, ...)
  84. #else
  85. EXPORT int fprintf(file, form, va_alist)
  86. FILE *file;
  87. char *form;
  88. va_dcl
  89. #endif
  90. {
  91. va_list args;
  92. _BUF bb;
  93. bb.ptr = bb.buf;
  94. bb.cnt = BFSIZ;
  95. bb.count = 0;
  96. bb.f = file;
  97. #ifdef PROTOTYPES
  98. va_start(args, form);
  99. #else
  100. va_start(args);
  101. #endif
  102. format(_bput, (long)&bb, form, args);
  103. va_end(args);
  104. if (bb.cnt < BFSIZ)
  105. _bflush (&bb);
  106. return (bb.count);
  107. }