source: buchla-68k/libcio/putc.c@ 6262b5c

Last change on this file since 6262b5c was 6262b5c, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added include files for global functions and variables.
  • Property mode set to 100644
File size: 3.3 KB
RevLine 
[f40a309]1/*
2 ============================================================================
3 putc.c -- stream file output and close functions
4 Version 7 -- 1987-10-19 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
[6262b5c]8#include "all.h"
[f40a309]9
[7258c6a]10extern int16_t write(int16_t fd, int8_t *buff, uint16_t len);
[0580615]11extern void getbuff(FILE *ptr);
[7258c6a]12extern int16_t close(int16_t fd);
[f40a309]13
[7258c6a]14extern int16_t (*_clsall)();
[f40a309]15
[7258c6a]16static int16_t (*cls_rtn)();
[f40a309]17
[7258c6a]18int16_t _ClFlag;
[f40a309]19
20/*
21 ============================================================================
22 closall() -- close all files at exit
23 ============================================================================
24*/
25
[0580615]26static void closall(void)
[f40a309]27{
28 register FILE *fp;
29
30 for (fp = Cbuffs; fp < (Cbuffs + NSTREAMS); ) /* close each file */
31 fclose(fp++);
32
33 (*cls_rtn)(); /* do final closeout */
34}
35
36/*
37
38*/
39
40/*
41 ============================================================================
42 flush_() -- do the dirty work of flushing a file
43 ============================================================================
44*/
[7258c6a]45
[f40a309]46int16_t flush_(FILE *ptr, int16_t data)
[7258c6a]47{
[f40a309]48 register int16_t size;
49
50 if (_ClFlag EQ 0) {
51
52 cls_rtn = _clsall;
53 _clsall = closall;
54 _ClFlag = 1;
55 }
56
57 if (ptr->_flags & _DIRTY) { /* something in the buffer ? */
[7258c6a]58
[f40a309]59 size = (int16_t)((int32_t)ptr->_bp - (int32_t)ptr->_buff);
60
61 if (write(ptr->_unit, ptr->_buff, size) EQ -1) {
62
63ioerr:
64 ptr->_flags |= _IOERR;
65 return(EOF);
66 }
67 }
68
69 if (data EQ -1) { /* just flushing, not adding data */
70
71 ptr->_flags &= ~_DIRTY;
72 ptr->_bend = ptr->_bp = NULL;
73 return(0);
74 }
75
76 if (ptr->_buff EQ NULL) /* get a buffer if we don't have one */
77 getbuff(ptr);
78
79 if (ptr->_buflen EQ 1) { /* unbuffered I/O */
80
81 if (write(ptr->_unit, &data, 1) EQ -1)
82 goto ioerr;
83
84 return(data);
85 }
86
87 ptr->_bp = ptr->_buff;
88 ptr->_bend = ptr->_buff + ptr->_buflen;
89 ptr->_flags |= _DIRTY;
90
91 return((*ptr->_bp++ = data) & 0x00FF);
92}
93
94/*
95
96*/
97
98/*
99 ============================================================================
100 fflush() -- flush a stream file
101 ============================================================================
[7258c6a]102*/
[f40a309]103
104int16_t fflush(FILE *ptr)
105{
106 return(flush_(ptr, -1));
107}
108
109/*
110 ============================================================================
111 fclose() -- close a stream file
112 ============================================================================
[7258c6a]113*/
[f40a309]114
[7258c6a]115int16_t fclose(FILE *ptr)
[f40a309]116{
117 int16_t err;
118
119 err = 0;
120
121 if (ptr->_flags) {
122
123 if (ptr->_flags & _DIRTY) /* if modifed, flush buffer */
124 err = flush_(ptr, -1);
125
126 err |= close(ptr->_unit);
127
[7258c6a]128 if (ptr->_flags & _ALLBUF) { /* deallocate standard buffer */
129
[f40a309]130 *(int32_t **)ptr->_buff = Stdbufs;
131 Stdbufs = (int32_t *)ptr->_buff;
132 }
133 }
134
135 ptr->_flags = 0;
136 return(err);
137}
138
139/*
140
141*/
142
143/*
144 ============================================================================
145 putc() -- write a character on a file
[7258c6a]146 ============================================================================
[f40a309]147*/
148
149int16_t putc(int16_t c, FILE *ptr)
150{
151 if (ptr->_bp GE ptr->_bend)
152 return(flush_(ptr, c & 0xFF));
153
154 return((*ptr->_bp++ = c) & 0xFF);
155}
156
157/*
158 ============================================================================
159 puterr() -- write a character to stderr
[7258c6a]160 ============================================================================
[f40a309]161*/
162
163int16_t puterr(int16_t c)
164{
[6262b5c]165 return(putc(c, stderr));
166}
167
168
Note: See TracBrowser for help on using the repository browser.