Subversion Repositories HelenOS

Rev

Rev 4545 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4411 svoboda 1
/*
2
 * Copyright (c) 2009 Jiri Svoboda
3
 * All rights reserved.
4
 *
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions
7
 * are met:
8
 *
9
 * - Redistributions of source code must retain the above copyright
10
 *   notice, this list of conditions and the following disclaimer.
11
 * - Redistributions in binary form must reproduce the above copyright
12
 *   notice, this list of conditions and the following disclaimer in the
13
 *   documentation and/or other materials provided with the distribution.
14
 * - The name of the author may not be used to endorse or promote products
15
 *   derived from this software without specific prior written permission.
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
28
 
29
/** @addtogroup bd
30
 * @{
31
 */
32
 
33
/**
34
 * @file
35
 * @brief GXemul disk driver
36
 */
37
 
38
#include <stdio.h>
39
#include <libarch/ddi.h>
40
#include <ddi.h>
41
#include <ipc/ipc.h>
42
#include <ipc/bd.h>
43
#include <async.h>
44
#include <as.h>
4557 svoboda 45
#include <fibril_sync.h>
4411 svoboda 46
#include <devmap.h>
47
#include <sys/types.h>
48
#include <errno.h>
49
 
50
#define NAME "gxe_bd"
51
 
52
enum {
53
    CTL_READ_START  = 0,
54
    CTL_WRITE_START = 1,
55
};
56
 
57
enum {
58
    STATUS_FAILURE  = 0
59
};
60
 
4442 svoboda 61
enum {
62
    MAX_DISKS   = 2
63
};
64
 
4411 svoboda 65
typedef struct {
66
    uint32_t offset_lo;
67
    uint32_t pad0;
68
    uint32_t offset_hi;
69
    uint32_t pad1;
70
 
71
    uint32_t disk_id;
72
    uint32_t pad2[3];
73
 
74
    uint32_t control;
75
    uint32_t pad3[3];
76
 
77
    uint32_t status;
78
 
79
    uint32_t pad4[3];
4440 jermar 80
    uint8_t pad5[0x3fc0];
4411 svoboda 81
 
4440 jermar 82
    uint8_t buffer[512];
4411 svoboda 83
} gxe_bd_t;
84
 
85
 
4428 svoboda 86
static const size_t block_size = 512;
87
static size_t comm_size;
88
 
4411 svoboda 89
static uintptr_t dev_physical = 0x13000000;
90
static gxe_bd_t *dev;
91
 
4442 svoboda 92
static dev_handle_t dev_handle[MAX_DISKS];
4411 svoboda 93
 
4557 svoboda 94
static fibril_mutex_t dev_lock[MAX_DISKS];
4411 svoboda 95
 
96
static int gxe_bd_init(void);
97
static void gxe_bd_connection(ipc_callid_t iid, ipc_call_t *icall);
4545 svoboda 98
static int gx_bd_rdwr(int disk_id, ipcarg_t method, off_t offset, size_t size,
4442 svoboda 99
    void *buf);
100
static int gxe_bd_read_block(int disk_id, uint64_t offset, size_t size,
101
    void *buf);
102
static int gxe_bd_write_block(int disk_id, uint64_t offset, size_t size,
103
    const void *buf);
4411 svoboda 104
 
105
int main(int argc, char **argv)
106
{
107
    printf(NAME ": GXemul disk driver\n");
108
 
109
    if (gxe_bd_init() != EOK)
110
        return -1;
111
 
112
    printf(NAME ": Accepting connections\n");
113
    async_manager();
114
 
115
    /* Not reached */
116
    return 0;
117
}
118
 
119
static int gxe_bd_init(void)
120
{
121
    void *vaddr;
4442 svoboda 122
    int rc, i;
123
    char name[16];
4411 svoboda 124
 
125
    rc = devmap_driver_register(NAME, gxe_bd_connection);
126
    if (rc < 0) {
127
        printf(NAME ": Unable to register driver.\n");
128
        return rc;
129
    }
130
 
131
    rc = pio_enable((void *) dev_physical, sizeof(gxe_bd_t), &vaddr);
132
    if (rc != EOK) {
133
        printf(NAME ": Could not initialize device I/O space.\n");
134
        return rc;
135
    }
136
 
137
    dev = vaddr;
138
 
4442 svoboda 139
    for (i = 0; i < MAX_DISKS; i++) {
140
        snprintf(name, 16, "disk%d", i);
141
        rc = devmap_device_register(name, &dev_handle[i]);
142
        if (rc != EOK) {
143
            devmap_hangup_phone(DEVMAP_DRIVER);
144
            printf(NAME ": Unable to register device %s.\n",
145
                name);
146
            return rc;
147
        }
4557 svoboda 148
        fibril_mutex_initialize(&dev_lock[i]);
4411 svoboda 149
    }
150
 
151
    return EOK;
152
}
153
 
154
static void gxe_bd_connection(ipc_callid_t iid, ipc_call_t *icall)
155
{
156
    void *fs_va = NULL;
157
    ipc_callid_t callid;
158
    ipc_call_t call;
4428 svoboda 159
    ipcarg_t method;
4442 svoboda 160
    dev_handle_t dh;
4411 svoboda 161
    int flags;
162
    int retval;
4428 svoboda 163
    off_t idx;
4545 svoboda 164
    size_t size;
4442 svoboda 165
    int disk_id, i;
4411 svoboda 166
 
4442 svoboda 167
    /* Get the device handle. */
168
    dh = IPC_GET_ARG1(*icall);
169
 
170
    /* Determine which disk device is the client connecting to. */
171
    disk_id = -1;
172
    for (i = 0; i < MAX_DISKS; i++)
173
        if (dev_handle[i] == dh)
174
            disk_id = i;
175
 
176
    if (disk_id < 0) {
177
        ipc_answer_0(iid, EINVAL);
178
        return;
179
    }
180
 
4411 svoboda 181
    /* Answer the IPC_M_CONNECT_ME_TO call. */
182
    ipc_answer_0(iid, EOK);
183
 
4428 svoboda 184
    if (!ipc_share_out_receive(&callid, &comm_size, &flags)) {
4411 svoboda 185
        ipc_answer_0(callid, EHANGUP);
186
        return;
187
    }
188
 
4428 svoboda 189
    fs_va = as_get_mappable_page(comm_size);
4411 svoboda 190
    if (fs_va == NULL) {
191
        ipc_answer_0(callid, EHANGUP);
192
        return;
193
    }
194
 
195
    (void) ipc_share_out_finalize(callid, fs_va);
196
 
197
    while (1) {
198
        callid = async_get_call(&call);
4428 svoboda 199
        method = IPC_GET_METHOD(call);
200
        switch (method) {
4411 svoboda 201
        case IPC_M_PHONE_HUNGUP:
202
            /* The other side has hung up. */
203
            ipc_answer_0(callid, EOK);
204
            return;
205
        case BD_READ_BLOCK:
206
        case BD_WRITE_BLOCK:
4428 svoboda 207
            idx = IPC_GET_ARG1(call);
208
            size = IPC_GET_ARG2(call);
209
            if (size > comm_size) {
210
                retval = EINVAL;
211
                break;
212
            }
4442 svoboda 213
            retval = gx_bd_rdwr(disk_id, method, idx * size,
214
                size, fs_va);
4411 svoboda 215
            break;
216
        default:
217
            retval = EINVAL;
218
            break;
219
        }
220
        ipc_answer_0(callid, retval);
221
    }
222
}
223
 
4545 svoboda 224
static int gx_bd_rdwr(int disk_id, ipcarg_t method, off_t offset, size_t size,
4442 svoboda 225
    void *buf)
4411 svoboda 226
{
4428 svoboda 227
    int rc;
228
    size_t now;
229
 
230
    while (size > 0) {
231
        now = size < block_size ? size : block_size;
232
 
233
        if (method == BD_READ_BLOCK)
4442 svoboda 234
            rc = gxe_bd_read_block(disk_id, offset, now, buf);
4428 svoboda 235
        else
4442 svoboda 236
            rc = gxe_bd_write_block(disk_id, offset, now, buf);
4428 svoboda 237
 
238
        if (rc != EOK)
239
            return rc;
240
 
241
        buf += block_size;
242
        offset += block_size;
243
 
244
        if (size > block_size)
245
            size -= block_size;
246
        else
247
            size = 0;
248
    }
249
 
250
    return EOK;
251
}
252
 
4442 svoboda 253
static int gxe_bd_read_block(int disk_id, uint64_t offset, size_t size,
254
    void *buf)
4428 svoboda 255
{
4411 svoboda 256
    uint32_t status;
257
    size_t i;
258
    uint32_t w;
259
 
4557 svoboda 260
    fibril_mutex_lock(&dev_lock[disk_id]);
4411 svoboda 261
    pio_write_32(&dev->offset_lo, (uint32_t) offset);
262
    pio_write_32(&dev->offset_hi, offset >> 32);
263
    pio_write_32(&dev->disk_id, disk_id);
264
    pio_write_32(&dev->control, CTL_READ_START);
265
 
266
    status = pio_read_32(&dev->status);
267
    if (status == STATUS_FAILURE) {
4557 svoboda 268
        fibril_mutex_unlock(&dev_lock[disk_id]);
4411 svoboda 269
        return EIO;
270
    }
271
 
4428 svoboda 272
    for (i = 0; i < size; i++) {
4440 jermar 273
        ((uint8_t *) buf)[i] = w = pio_read_8(&dev->buffer[i]);
4411 svoboda 274
    }
275
 
4557 svoboda 276
    fibril_mutex_unlock(&dev_lock[disk_id]);
4411 svoboda 277
    return EOK;
278
}
279
 
4442 svoboda 280
static int gxe_bd_write_block(int disk_id, uint64_t offset, size_t size,
281
    const void *buf)
4411 svoboda 282
{
283
    uint32_t status;
284
    size_t i;
285
 
4428 svoboda 286
    for (i = 0; i < size; i++) {
4440 jermar 287
        pio_write_8(&dev->buffer[i], ((const uint8_t *) buf)[i]);
4411 svoboda 288
    }
289
 
4557 svoboda 290
    fibril_mutex_lock(&dev_lock[disk_id]);
4411 svoboda 291
    pio_write_32(&dev->offset_lo, (uint32_t) offset);
292
    pio_write_32(&dev->offset_hi, offset >> 32);
293
    pio_write_32(&dev->disk_id, disk_id);
294
    pio_write_32(&dev->control, CTL_WRITE_START);
295
 
296
    status = pio_read_32(&dev->status);
297
    if (status == STATUS_FAILURE) {
4557 svoboda 298
        fibril_mutex_unlock(&dev_lock[disk_id]);
4411 svoboda 299
        return EIO;
300
    }
301
 
4557 svoboda 302
    fibril_mutex_unlock(&dev_lock[disk_id]);
4411 svoboda 303
    return EOK;
304
}
305
 
306
/**
307
 * @}
308
 */