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

SCSI/ASPI

开发平台:

MultiPlatform

  1. /* @(#)jsprintf.c 1.12 99/08/30 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. EXPORT int js_fprintf __PR((FILE *, const char *, ...));
  35. EXPORT int js_printf __PR((const char *, ...));
  36. LOCAL void _bflush (bp)
  37. register BUF bp;
  38. {
  39. bp->count += bp->ptr - bp->buf;
  40. if (filewrite (bp->f, bp->buf, bp->ptr - bp->buf) < 0)
  41. bp->count = EOF;
  42. bp->ptr = bp->buf;
  43. bp->cnt = BFSIZ;
  44. }
  45. #ifdef PROTOTYPES
  46. LOCAL void _bput (char c, long l)
  47. #else
  48. LOCAL void _bput (c, l)
  49. char c;
  50. long l;
  51. #endif
  52. register BUF bp = (BUF)l;
  53. *bp->ptr++ = c;
  54. if (--bp->cnt <= 0)
  55. _bflush (bp);
  56. }
  57. /* VARARGS2 */
  58. #ifdef PROTOTYPES
  59. EXPORT int js_printf(const char *form, ...)
  60. #else
  61. EXPORT int js_printf(form, va_alist)
  62. char *form;
  63. va_dcl
  64. #endif
  65. {
  66. va_list args;
  67. _BUF bb;
  68. bb.ptr = bb.buf;
  69. bb.cnt = BFSIZ;
  70. bb.count = 0;
  71. bb.f = stdout;
  72. #ifdef PROTOTYPES
  73. va_start(args, form);
  74. #else
  75. va_start(args);
  76. #endif
  77. format(_bput, (long)&bb, form, args);
  78. va_end(args);
  79. if (bb.cnt < BFSIZ)
  80. _bflush (&bb);
  81. return (bb.count);
  82. }
  83. /* VARARGS3 */
  84. #ifdef PROTOTYPES
  85. EXPORT int js_fprintf(FILE *file, const char *form, ...)
  86. #else
  87. EXPORT int js_fprintf(file, form, va_alist)
  88. FILE *file;
  89. char *form;
  90. va_dcl
  91. #endif
  92. {
  93. va_list args;
  94. _BUF bb;
  95. bb.ptr = bb.buf;
  96. bb.cnt = BFSIZ;
  97. bb.count = 0;
  98. bb.f = file;
  99. #ifdef PROTOTYPES
  100. va_start(args, form);
  101. #else
  102. va_start(args);
  103. #endif
  104. format(_bput, (long)&bb, form, args);
  105. va_end(args);
  106. if (bb.cnt < BFSIZ)
  107. _bflush (&bb);
  108. return (bb.count);
  109. }