source: buchla-68k/libcio/writern.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: 2.2 KB
Line 
1/*
2 =============================================================================
3 writern.c -- write a random sector onto a file
4 Version 6 -- 1987-12-15 -- D.N. Lynx Crowe
5
6 int
7 WriteRN(fcp, buf)
8 struct fcb *fcp;
9 char *buf;
10
11 Writes a sector onto file 'fcp' from 'buf'. Seeks as needed.
12 Returns SUCCESS (0) if OK, FAILURE (-1) for errors.
13 =============================================================================
14*/
15
16#define DEBUGIT 0
17
18#include "all.h"
19
20extern int32_t _berrno;
21extern int16_t _seek(struct fcb *fcp);
22
23#if DEBUGIT
24extern short fsdebug;
25#endif
26
27#if TBUFFER
28extern int32_t _secwr(int8_t *buf, int16_t rec);
29
30extern int16_t _alcnew(struct fcb *fcp);
31#endif
32
33/*
34
35*/
36
37/*
38 =============================================================================
39 WriteRN(fcp, buf) -- Writes a sector onto file 'fcp' from 'buf'.
40 Seeks as needed. Returns SUCCESS (0) if OK, FAILURE (-1) for errors.
41 =============================================================================
42*/
43
44int16_t WriteRN(struct fcb *fcp, int8_t *buf)
45{
46 int16_t sv; /* seek return code */
47 int32_t brc; /* bios return code */
48
49 if (sv = _seek(fcp)) { /* try to find the sector we want */
50
51 if (sv < 0) { /* seek error ? */
52
53#if DEBUGIT
54 if (fsdebug)
55 printf("WriteRN(): _seek FAILED (%d) - curlsn=%ld, curdsn=%ld\n",
56 sv, fcp->curlsn, fcp->curdsn);
57#endif
58
59 errno = EIO; /* I/O error or seek past EOF */
60 return(FAILURE);
61
62 } else if (sv EQ 2) { /* at hard EOF ? */
63
64 if (_alcnew(fcp)) { /* allocate a new cluster */
65
66 errno = EIO;
67 return(FAILURE);
68 }
69#if DEBUGIT
70 if (fsdebug)
71 printf("WriteRN(): cluster allocated - curcls=%d, clsec=%d\n",
72 fcp->curcls, fcp->clsec);
73#endif
74
75 }
76 }
77
78#if DEBUGIT
79 if (fsdebug)
80 printf("WriteRN(): curlsn=%ld, curdsn=%ld\n",
81 fcp->curlsn, fcp->curdsn);
82#endif
83
84 /* write the sector */
85
86 if (brc = BIOS(B_RDWR, 1, buf, 1, (int16_t)fcp->curdsn, 0)) {
87
88#if DEBUGIT
89 if (fsdebug)
90 printf("WriteRN(): B_RDWR FAILED - brc=%ld\n", brc);
91#endif
92
93 _berrno = brc; /* log the error */
94 errno = EIO; /* ... as an I/O error */
95 return(FAILURE); /* return: ERROR */
96 }
97
98#if TBUFFER
99 _secwr(buf, (int16_t)fcp->curdsn);
100#endif
101
102 return(SUCCESS); /* return: SUCCESS */
103}
104
Note: See TracBrowser for help on using the repository browser.