xref: /netbsd-src/sys/arch/acorn32/stand/lib/riscosfile.c (revision 606bb2caedec18e47027ba0f6eee23099245f733)
1 /*	$NetBSD: riscosfile.c,v 1.4 2006/01/25 18:28:25 christos Exp $	*/
2 
3 /*-
4  * Copyright (c) 2001 Ben Harris
5  * All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. The name of the author may not be used to endorse or promote products
16  *    derived from this software without specific prior written permission.
17  *
18  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28  */
29 
30 #include <lib/libsa/stand.h>
31 #include <riscoscalls.h>
32 #include <riscosfile.h>
33 #include <sys/stat.h>
34 
35 struct riscosfile {
36 	int file;
37 };
38 
39 int
riscos_open(const char * path,struct open_file * f)40 riscos_open(const char *path, struct open_file *f)
41 {
42 	struct riscosfile *rf;
43 	os_error *error;
44 	int flags;
45 
46 	rf = (struct riscosfile *) alloc(sizeof(*rf));
47 	if (!rf)
48 		return -1;
49 
50 	switch (f->f_flags & (F_READ | F_WRITE)) {
51 	case F_READ:
52 		flags = OSFind_Openin;
53 		break;
54 	case F_WRITE:
55 		flags = OSFind_Openout;
56 		break;
57 	case F_READ | F_WRITE:
58 		flags = OSFind_Openup;
59 		break;
60 	default:
61 		/* Erm... */
62 		return EINVAL;
63 	}
64 
65 	error = xosfind_open(flags | osfind_ERROR_IF_DIR |
66 	    osfind_ERROR_IF_ABSENT, path, NULL, &rf->file);
67 	if (error) {
68 		dealloc(rf, sizeof(*rf));
69 		return riscos_errno(error);
70 	}
71 	f->f_fsdata = rf;
72 	return 0;
73 }
74 
75 #ifndef LIBSA_NO_FS_CLOSE
76 int
riscos_close(struct open_file * f)77 riscos_close(struct open_file *f)
78 {
79 	struct riscosfile *rf;
80 	struct os_error *error;
81 	int err = 0;
82 
83 	rf = f->f_fsdata;
84 
85 	error = xosfind_close(rf->file);
86 	if (error)
87 		err = riscos_errno(error);
88 	dealloc(rf, sizeof(*rf));
89 	return err;
90 }
91 #endif
92 
93 int
riscos_read(struct open_file * f,void * buf,size_t size,size_t * residp)94 riscos_read(struct open_file *f, void *buf, size_t size, size_t *residp)
95 {
96 	struct riscosfile *rf;
97 	int resid;
98 	os_error *error;
99 
100 	rf = f->f_fsdata;
101 
102 #ifndef LIBSA_NO_TWIDDLE
103 	twiddle();
104 #endif
105 	error = xosgbpb_read(rf->file, buf, size, &resid);
106 	*residp = resid;
107 	if (error)
108 		return riscos_errno(error);
109 	return 0;
110 }
111 
112 #ifndef LIBSA_NO_FS_WRITE
113 int
riscos_write(struct open_file * f,void * buf,size_t size,size_t * residp)114 riscos_write(struct open_file *f, void *buf, size_t size, size_t *residp)
115 {
116 	struct riscosfile *rf;
117 	int resid;
118 	os_error *error;
119 
120 	rf = f->f_fsdata;
121 
122 #ifndef LIBSA_NO_TWIDDLE
123 	twiddle();
124 #endif
125 	error = xosgbpb_write(rf->file, buf, size, &resid);
126 	*residp = resid;
127 	if (error)
128 		return riscos_errno(error);
129 	return 0;
130 }
131 #endif
132 
133 int
riscos_stat(struct open_file * f,struct stat * sb)134 riscos_stat(struct open_file *f, struct stat *sb)
135 {
136 	struct riscosfile *rf;
137 	os_error *error;
138 	int extent;
139 
140 	rf = f->f_fsdata;
141 
142 	error = xosargs_read_ext(rf->file, &extent);
143 	if (error)
144 		return riscos_errno(error);
145 
146 	sb->st_mode = S_IFREG | 0444;
147 	sb->st_nlink = 1;
148 	sb->st_uid = 0;
149 	sb->st_gid = 0;
150 	sb->st_size = extent;
151 	return 0;
152 }
153 
154 #ifndef LIBSA_NO_FS_SEEK
155 off_t
riscos_seek(struct open_file * f,off_t offset,int where)156 riscos_seek(struct open_file *f, off_t offset, int where)
157 {
158 	struct riscosfile *rf;
159 	int base, result;
160 	os_error *error;
161 
162 	rf = f->f_fsdata;
163 
164 	switch (where) {
165 	case SEEK_SET:
166 		base = 0;
167 		break;
168 	case SEEK_CUR:
169 		error = xosargs_read_ptr(rf->file, &base);
170 		if (error)
171 			goto err;
172 		break;
173 	case SEEK_END:
174 		error = xosargs_read_ext(rf->file, &base);
175 		if (error)
176 			goto err;
177 		break;
178 	default:
179 		errno = EOFFSET;
180 		return -1;
181 	}
182 	offset = base + offset;
183 	error = xosargs_set_ptr(rf->file, offset);
184 	if (error)
185 		goto err;
186 	error = xosargs_read_ptr(rf->file, &result);
187 	if (error)
188 		goto err;
189 	return result;
190 
191 err:
192 	errno = riscos_errno(error);
193 	return -1;
194 }
195 #endif
196