1 /* Copyright (c) 2015-2017. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
6 #include "simgrid/simix.h"
7 #include "src/msg/msg_private.h"
10 #include "simgrid/s4u/Actor.hpp"
11 #include "simgrid/s4u/Comm.hpp"
12 #include "simgrid/s4u/File.hpp"
13 #include "simgrid/s4u/Host.hpp"
14 #include "simgrid/s4u/Mailbox.hpp"
15 #include "simgrid/s4u/Storage.hpp"
17 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_file,"S4U files");
22 File::File(const char* fullpath, void* userdata) : path_(fullpath), userdata_(userdata)
24 // this cannot fail because we get a xbt_die if the mountpoint does not exist
25 pimpl_ = simcall_file_open(fullpath, Host::current());
26 xbt_dynar_t info = simcall_file_get_info(pimpl_);
27 storage_type = xbt_dynar_pop_as(info, char*);
28 storageId = xbt_dynar_pop_as(info, char*);
29 mount_point = xbt_dynar_pop_as(info, char*);
33 // Host::current()->extension<simgrid::MsgHostExt>()->file_descriptor_table->push_back(desc_id_);
34 simcall_file_close(pimpl_, Host::current());
37 sg_size_t File::read(sg_size_t size) {
38 return simcall_file_read(pimpl_, size, Host::current());
40 sg_size_t File::write(sg_size_t size) {
41 return simcall_file_write(pimpl_,size, Host::current());
43 sg_size_t File::size() {
44 return simcall_file_get_size(pimpl_);
47 void File::seek(sg_size_t pos) {
48 simcall_file_seek(pimpl_,pos,SEEK_SET);
50 sg_size_t File::tell() {
51 return simcall_file_tell(pimpl_);
53 void File::move(const char*fullpath) {
54 simcall_file_move(pimpl_,fullpath);
57 sg_host_t attached = Host::current(); // FIXME: we should check where this file is attached
58 simcall_file_unlink(pimpl_,attached);
61 }} // namespace simgrid::s4u