Ermanno Brusadin / mbed

mbed library sources

Dependents:   FRDM-KL46Z_LCD_Test FRDM-KL46Z_LCD_Test FRDM-KL46Z_Plantilla FRDM-KL46Z_Plantilla ... more

common/retarget.cpp@0:6bc4ac881c8e, 2016-07-28 (annotated)

Committer:
ebrus
Date:
Thu Jul 28 15:56:34 2016 +0000
Revision:
0:6bc4ac881c8e
1;

Who changed what in which revision?

UserRevisionLine numberNew contents of line
ebrus 0:6bc4ac881c8e 1 /* mbed Microcontroller Library
ebrus 0:6bc4ac881c8e 2 * Copyright (c) 2006-2013 ARM Limited
ebrus 0:6bc4ac881c8e 3 *
ebrus 0:6bc4ac881c8e 4 * Licensed under the Apache License, Version 2.0 (the "License");
ebrus 0:6bc4ac881c8e 5 * you may not use this file except in compliance with the License.
ebrus 0:6bc4ac881c8e 6 * You may obtain a copy of the License at
ebrus 0:6bc4ac881c8e 7 *
ebrus 0:6bc4ac881c8e 8 * http://www.apache.org/licenses/LICENSE-2.0
ebrus 0:6bc4ac881c8e 9 *
ebrus 0:6bc4ac881c8e 10 * Unless required by applicable law or agreed to in writing, software
ebrus 0:6bc4ac881c8e 11 * distributed under the License is distributed on an "AS IS" BASIS,
ebrus 0:6bc4ac881c8e 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
ebrus 0:6bc4ac881c8e 13 * See the License for the specific language governing permissions and
ebrus 0:6bc4ac881c8e 14 * limitations under the License.
ebrus 0:6bc4ac881c8e 15 */
ebrus 0:6bc4ac881c8e 16 #include "platform.h"
ebrus 0:6bc4ac881c8e 17 #include "FileHandle.h"
ebrus 0:6bc4ac881c8e 18 #include "FileSystemLike.h"
ebrus 0:6bc4ac881c8e 19 #include "FilePath.h"
ebrus 0:6bc4ac881c8e 20 #include "serial_api.h"
ebrus 0:6bc4ac881c8e 21 #include "toolchain.h"
ebrus 0:6bc4ac881c8e 22 #include <errno.h>
ebrus 0:6bc4ac881c8e 23
ebrus 0:6bc4ac881c8e 24 #if defined(__ARMCC_VERSION)
ebrus 0:6bc4ac881c8e 25 # include <rt_sys.h>
ebrus 0:6bc4ac881c8e 26 # define PREFIX(x) _sys##x
ebrus 0:6bc4ac881c8e 27 # define OPEN_MAX _SYS_OPEN
ebrus 0:6bc4ac881c8e 28 # ifdef __MICROLIB
ebrus 0:6bc4ac881c8e 29 # pragma import(__use_full_stdio)
ebrus 0:6bc4ac881c8e 30 # endif
ebrus 0:6bc4ac881c8e 31
ebrus 0:6bc4ac881c8e 32 #elif defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 33 # include <yfuns.h>
ebrus 0:6bc4ac881c8e 34 # define PREFIX(x) _##x
ebrus 0:6bc4ac881c8e 35 # define OPEN_MAX 16
ebrus 0:6bc4ac881c8e 36
ebrus 0:6bc4ac881c8e 37 # define STDIN_FILENO 0
ebrus 0:6bc4ac881c8e 38 # define STDOUT_FILENO 1
ebrus 0:6bc4ac881c8e 39 # define STDERR_FILENO 2
ebrus 0:6bc4ac881c8e 40
ebrus 0:6bc4ac881c8e 41 #else
ebrus 0:6bc4ac881c8e 42 # include <sys/stat.h>
ebrus 0:6bc4ac881c8e 43 # include <sys/unistd.h>
ebrus 0:6bc4ac881c8e 44 # include <sys/syslimits.h>
ebrus 0:6bc4ac881c8e 45 # define PREFIX(x) x
ebrus 0:6bc4ac881c8e 46 #endif
ebrus 0:6bc4ac881c8e 47
ebrus 0:6bc4ac881c8e 48 using namespace mbed;
ebrus 0:6bc4ac881c8e 49
ebrus 0:6bc4ac881c8e 50 #if defined(__MICROLIB) && (__ARMCC_VERSION>5030000)
ebrus 0:6bc4ac881c8e 51 // Before version 5.03, we were using a patched version of microlib with proper names
ebrus 0:6bc4ac881c8e 52 extern const char __stdin_name[] = ":tt";
ebrus 0:6bc4ac881c8e 53 extern const char __stdout_name[] = ":tt";
ebrus 0:6bc4ac881c8e 54 extern const char __stderr_name[] = ":tt";
ebrus 0:6bc4ac881c8e 55
ebrus 0:6bc4ac881c8e 56 #else
ebrus 0:6bc4ac881c8e 57 extern const char __stdin_name[] = "/stdin";
ebrus 0:6bc4ac881c8e 58 extern const char __stdout_name[] = "/stdout";
ebrus 0:6bc4ac881c8e 59 extern const char __stderr_name[] = "/stderr";
ebrus 0:6bc4ac881c8e 60 #endif
ebrus 0:6bc4ac881c8e 61
ebrus 0:6bc4ac881c8e 62 /* newlib has the filehandle field in the FILE struct as a short, so
ebrus 0:6bc4ac881c8e 63 * we can't just return a Filehandle* from _open and instead have to
ebrus 0:6bc4ac881c8e 64 * put it in a filehandles array and return the index into that array
ebrus 0:6bc4ac881c8e 65 * (or rather index+3, as filehandles 0-2 are stdin/out/err).
ebrus 0:6bc4ac881c8e 66 */
ebrus 0:6bc4ac881c8e 67 static FileHandle *filehandles[OPEN_MAX];
ebrus 0:6bc4ac881c8e 68
ebrus 0:6bc4ac881c8e 69 FileHandle::~FileHandle() {
ebrus 0:6bc4ac881c8e 70 /* Remove all open filehandles for this */
ebrus 0:6bc4ac881c8e 71 for (unsigned int fh_i = 0; fh_i < sizeof(filehandles)/sizeof(*filehandles); fh_i++) {
ebrus 0:6bc4ac881c8e 72 if (filehandles[fh_i] == this) {
ebrus 0:6bc4ac881c8e 73 filehandles[fh_i] = NULL;
ebrus 0:6bc4ac881c8e 74 }
ebrus 0:6bc4ac881c8e 75 }
ebrus 0:6bc4ac881c8e 76 }
ebrus 0:6bc4ac881c8e 77
ebrus 0:6bc4ac881c8e 78 #if DEVICE_SERIAL
ebrus 0:6bc4ac881c8e 79 extern int stdio_uart_inited;
ebrus 0:6bc4ac881c8e 80 extern serial_t stdio_uart;
ebrus 0:6bc4ac881c8e 81 #endif
ebrus 0:6bc4ac881c8e 82
ebrus 0:6bc4ac881c8e 83 static void init_serial() {
ebrus 0:6bc4ac881c8e 84 #if DEVICE_SERIAL
ebrus 0:6bc4ac881c8e 85 if (stdio_uart_inited) return;
ebrus 0:6bc4ac881c8e 86 serial_init(&stdio_uart, STDIO_UART_TX, STDIO_UART_RX);
ebrus 0:6bc4ac881c8e 87 #endif
ebrus 0:6bc4ac881c8e 88 }
ebrus 0:6bc4ac881c8e 89
ebrus 0:6bc4ac881c8e 90 static inline int openmode_to_posix(int openmode) {
ebrus 0:6bc4ac881c8e 91 int posix = openmode;
ebrus 0:6bc4ac881c8e 92 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 93 if (openmode & OPEN_PLUS) {
ebrus 0:6bc4ac881c8e 94 posix = O_RDWR;
ebrus 0:6bc4ac881c8e 95 } else if(openmode & OPEN_W) {
ebrus 0:6bc4ac881c8e 96 posix = O_WRONLY;
ebrus 0:6bc4ac881c8e 97 } else if(openmode & OPEN_A) {
ebrus 0:6bc4ac881c8e 98 posix = O_WRONLY|O_APPEND;
ebrus 0:6bc4ac881c8e 99 } else {
ebrus 0:6bc4ac881c8e 100 posix = O_RDONLY;
ebrus 0:6bc4ac881c8e 101 }
ebrus 0:6bc4ac881c8e 102 /* a, w, a+, w+ all create if file does not already exist */
ebrus 0:6bc4ac881c8e 103 if (openmode & (OPEN_A|OPEN_W)) {
ebrus 0:6bc4ac881c8e 104 posix |= O_CREAT;
ebrus 0:6bc4ac881c8e 105 }
ebrus 0:6bc4ac881c8e 106 /* w and w+ truncate */
ebrus 0:6bc4ac881c8e 107 if (openmode & OPEN_W) {
ebrus 0:6bc4ac881c8e 108 posix |= O_TRUNC;
ebrus 0:6bc4ac881c8e 109 }
ebrus 0:6bc4ac881c8e 110 #elif defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 111 switch (openmode & _LLIO_RDWRMASK) {
ebrus 0:6bc4ac881c8e 112 case _LLIO_RDONLY: posix = O_RDONLY; break;
ebrus 0:6bc4ac881c8e 113 case _LLIO_WRONLY: posix = O_WRONLY; break;
ebrus 0:6bc4ac881c8e 114 case _LLIO_RDWR : posix = O_RDWR ; break;
ebrus 0:6bc4ac881c8e 115 }
ebrus 0:6bc4ac881c8e 116 if (openmode & _LLIO_CREAT ) posix |= O_CREAT;
ebrus 0:6bc4ac881c8e 117 if (openmode & _LLIO_APPEND) posix |= O_APPEND;
ebrus 0:6bc4ac881c8e 118 if (openmode & _LLIO_TRUNC ) posix |= O_TRUNC;
ebrus 0:6bc4ac881c8e 119 #endif
ebrus 0:6bc4ac881c8e 120 return posix;
ebrus 0:6bc4ac881c8e 121 }
ebrus 0:6bc4ac881c8e 122
ebrus 0:6bc4ac881c8e 123 extern "C" FILEHANDLE PREFIX(_open)(const char* name, int openmode) {
ebrus 0:6bc4ac881c8e 124 #if defined(__MICROLIB) && (__ARMCC_VERSION>5030000)
ebrus 0:6bc4ac881c8e 125 // Before version 5.03, we were using a patched version of microlib with proper names
ebrus 0:6bc4ac881c8e 126 // This is the workaround that the microlib author suggested us
ebrus 0:6bc4ac881c8e 127 static int n = 0;
ebrus 0:6bc4ac881c8e 128 if (!std::strcmp(name, ":tt")) return n++;
ebrus 0:6bc4ac881c8e 129
ebrus 0:6bc4ac881c8e 130 #else
ebrus 0:6bc4ac881c8e 131 /* Use the posix convention that stdin,out,err are filehandles 0,1,2.
ebrus 0:6bc4ac881c8e 132 */
ebrus 0:6bc4ac881c8e 133 if (std::strcmp(name, __stdin_name) == 0) {
ebrus 0:6bc4ac881c8e 134 init_serial();
ebrus 0:6bc4ac881c8e 135 return 0;
ebrus 0:6bc4ac881c8e 136 } else if (std::strcmp(name, __stdout_name) == 0) {
ebrus 0:6bc4ac881c8e 137 init_serial();
ebrus 0:6bc4ac881c8e 138 return 1;
ebrus 0:6bc4ac881c8e 139 } else if (std::strcmp(name, __stderr_name) == 0) {
ebrus 0:6bc4ac881c8e 140 init_serial();
ebrus 0:6bc4ac881c8e 141 return 2;
ebrus 0:6bc4ac881c8e 142 }
ebrus 0:6bc4ac881c8e 143 #endif
ebrus 0:6bc4ac881c8e 144
ebrus 0:6bc4ac881c8e 145 // find the first empty slot in filehandles
ebrus 0:6bc4ac881c8e 146 unsigned int fh_i;
ebrus 0:6bc4ac881c8e 147 for (fh_i = 0; fh_i < sizeof(filehandles)/sizeof(*filehandles); fh_i++) {
ebrus 0:6bc4ac881c8e 148 if (filehandles[fh_i] == NULL) break;
ebrus 0:6bc4ac881c8e 149 }
ebrus 0:6bc4ac881c8e 150 if (fh_i >= sizeof(filehandles)/sizeof(*filehandles)) {
ebrus 0:6bc4ac881c8e 151 return -1;
ebrus 0:6bc4ac881c8e 152 }
ebrus 0:6bc4ac881c8e 153
ebrus 0:6bc4ac881c8e 154 FileHandle *res;
ebrus 0:6bc4ac881c8e 155
ebrus 0:6bc4ac881c8e 156 /* FILENAME: ":0x12345678" describes a FileLike* */
ebrus 0:6bc4ac881c8e 157 if (name[0] == ':') {
ebrus 0:6bc4ac881c8e 158 void *p;
ebrus 0:6bc4ac881c8e 159 sscanf(name, ":%p", &p);
ebrus 0:6bc4ac881c8e 160 res = (FileHandle*)p;
ebrus 0:6bc4ac881c8e 161
ebrus 0:6bc4ac881c8e 162 /* FILENAME: "/file_system/file_name" */
ebrus 0:6bc4ac881c8e 163 } else {
ebrus 0:6bc4ac881c8e 164 FilePath path(name);
ebrus 0:6bc4ac881c8e 165
ebrus 0:6bc4ac881c8e 166 if (!path.exists())
ebrus 0:6bc4ac881c8e 167 return -1;
ebrus 0:6bc4ac881c8e 168 else if (path.isFile()) {
ebrus 0:6bc4ac881c8e 169 res = path.file();
ebrus 0:6bc4ac881c8e 170 } else {
ebrus 0:6bc4ac881c8e 171 FileSystemLike *fs = path.fileSystem();
ebrus 0:6bc4ac881c8e 172 if (fs == NULL) return -1;
ebrus 0:6bc4ac881c8e 173 int posix_mode = openmode_to_posix(openmode);
ebrus 0:6bc4ac881c8e 174 res = fs->open(path.fileName(), posix_mode); /* NULL if fails */
ebrus 0:6bc4ac881c8e 175 }
ebrus 0:6bc4ac881c8e 176 }
ebrus 0:6bc4ac881c8e 177
ebrus 0:6bc4ac881c8e 178 if (res == NULL) return -1;
ebrus 0:6bc4ac881c8e 179 filehandles[fh_i] = res;
ebrus 0:6bc4ac881c8e 180
ebrus 0:6bc4ac881c8e 181 return fh_i + 3; // +3 as filehandles 0-2 are stdin/out/err
ebrus 0:6bc4ac881c8e 182 }
ebrus 0:6bc4ac881c8e 183
ebrus 0:6bc4ac881c8e 184 extern "C" int PREFIX(_close)(FILEHANDLE fh) {
ebrus 0:6bc4ac881c8e 185 if (fh < 3) return 0;
ebrus 0:6bc4ac881c8e 186
ebrus 0:6bc4ac881c8e 187 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 188 filehandles[fh-3] = NULL;
ebrus 0:6bc4ac881c8e 189 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 190
ebrus 0:6bc4ac881c8e 191 return fhc->close();
ebrus 0:6bc4ac881c8e 192 }
ebrus 0:6bc4ac881c8e 193
ebrus 0:6bc4ac881c8e 194 #if defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 195 extern "C" size_t __write (int fh, const unsigned char *buffer, size_t length) {
ebrus 0:6bc4ac881c8e 196 #else
ebrus 0:6bc4ac881c8e 197 extern "C" int PREFIX(_write)(FILEHANDLE fh, const unsigned char *buffer, unsigned int length, int mode) {
ebrus 0:6bc4ac881c8e 198 #endif
ebrus 0:6bc4ac881c8e 199 int n; // n is the number of bytes written
ebrus 0:6bc4ac881c8e 200 if (fh < 3) {
ebrus 0:6bc4ac881c8e 201 #if DEVICE_SERIAL
ebrus 0:6bc4ac881c8e 202 if (!stdio_uart_inited) init_serial();
ebrus 0:6bc4ac881c8e 203 for (unsigned int i = 0; i < length; i++) {
ebrus 0:6bc4ac881c8e 204 serial_putc(&stdio_uart, buffer[i]);
ebrus 0:6bc4ac881c8e 205 }
ebrus 0:6bc4ac881c8e 206 #endif
ebrus 0:6bc4ac881c8e 207 n = length;
ebrus 0:6bc4ac881c8e 208 } else {
ebrus 0:6bc4ac881c8e 209 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 210 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 211
ebrus 0:6bc4ac881c8e 212 n = fhc->write(buffer, length);
ebrus 0:6bc4ac881c8e 213 }
ebrus 0:6bc4ac881c8e 214 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 215 return length-n;
ebrus 0:6bc4ac881c8e 216 #else
ebrus 0:6bc4ac881c8e 217 return n;
ebrus 0:6bc4ac881c8e 218 #endif
ebrus 0:6bc4ac881c8e 219 }
ebrus 0:6bc4ac881c8e 220
ebrus 0:6bc4ac881c8e 221 #if defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 222 extern "C" size_t __read (int fh, unsigned char *buffer, size_t length) {
ebrus 0:6bc4ac881c8e 223 #else
ebrus 0:6bc4ac881c8e 224 extern "C" int PREFIX(_read)(FILEHANDLE fh, unsigned char *buffer, unsigned int length, int mode) {
ebrus 0:6bc4ac881c8e 225 #endif
ebrus 0:6bc4ac881c8e 226 int n; // n is the number of bytes read
ebrus 0:6bc4ac881c8e 227 if (fh < 3) {
ebrus 0:6bc4ac881c8e 228 // only read a character at a time from stdin
ebrus 0:6bc4ac881c8e 229 #if DEVICE_SERIAL
ebrus 0:6bc4ac881c8e 230 if (!stdio_uart_inited) init_serial();
ebrus 0:6bc4ac881c8e 231 *buffer = serial_getc(&stdio_uart);
ebrus 0:6bc4ac881c8e 232 #endif
ebrus 0:6bc4ac881c8e 233 n = 1;
ebrus 0:6bc4ac881c8e 234 } else {
ebrus 0:6bc4ac881c8e 235 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 236 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 237
ebrus 0:6bc4ac881c8e 238 n = fhc->read(buffer, length);
ebrus 0:6bc4ac881c8e 239 }
ebrus 0:6bc4ac881c8e 240 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 241 return length-n;
ebrus 0:6bc4ac881c8e 242 #else
ebrus 0:6bc4ac881c8e 243 return n;
ebrus 0:6bc4ac881c8e 244 #endif
ebrus 0:6bc4ac881c8e 245 }
ebrus 0:6bc4ac881c8e 246
ebrus 0:6bc4ac881c8e 247 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 248 extern "C" int PREFIX(_istty)(FILEHANDLE fh)
ebrus 0:6bc4ac881c8e 249 #else
ebrus 0:6bc4ac881c8e 250 extern "C" int _isatty(FILEHANDLE fh)
ebrus 0:6bc4ac881c8e 251 #endif
ebrus 0:6bc4ac881c8e 252 {
ebrus 0:6bc4ac881c8e 253 /* stdin, stdout and stderr should be tty */
ebrus 0:6bc4ac881c8e 254 if (fh < 3) return 1;
ebrus 0:6bc4ac881c8e 255
ebrus 0:6bc4ac881c8e 256 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 257 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 258
ebrus 0:6bc4ac881c8e 259 return fhc->isatty();
ebrus 0:6bc4ac881c8e 260 }
ebrus 0:6bc4ac881c8e 261
ebrus 0:6bc4ac881c8e 262 extern "C"
ebrus 0:6bc4ac881c8e 263 #if defined(__ARMCC_VERSION)
ebrus 0:6bc4ac881c8e 264 int _sys_seek(FILEHANDLE fh, long position)
ebrus 0:6bc4ac881c8e 265 #elif defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 266 long __lseek(int fh, long offset, int whence)
ebrus 0:6bc4ac881c8e 267 #else
ebrus 0:6bc4ac881c8e 268 int _lseek(FILEHANDLE fh, int offset, int whence)
ebrus 0:6bc4ac881c8e 269 #endif
ebrus 0:6bc4ac881c8e 270 {
ebrus 0:6bc4ac881c8e 271 if (fh < 3) return 0;
ebrus 0:6bc4ac881c8e 272
ebrus 0:6bc4ac881c8e 273 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 274 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 275
ebrus 0:6bc4ac881c8e 276 #if defined(__ARMCC_VERSION)
ebrus 0:6bc4ac881c8e 277 return fhc->lseek(position, SEEK_SET);
ebrus 0:6bc4ac881c8e 278 #else
ebrus 0:6bc4ac881c8e 279 return fhc->lseek(offset, whence);
ebrus 0:6bc4ac881c8e 280 #endif
ebrus 0:6bc4ac881c8e 281 }
ebrus 0:6bc4ac881c8e 282
ebrus 0:6bc4ac881c8e 283 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 284 extern "C" int PREFIX(_ensure)(FILEHANDLE fh) {
ebrus 0:6bc4ac881c8e 285 if (fh < 3) return 0;
ebrus 0:6bc4ac881c8e 286
ebrus 0:6bc4ac881c8e 287 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 288 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 289
ebrus 0:6bc4ac881c8e 290 return fhc->fsync();
ebrus 0:6bc4ac881c8e 291 }
ebrus 0:6bc4ac881c8e 292
ebrus 0:6bc4ac881c8e 293 extern "C" long PREFIX(_flen)(FILEHANDLE fh) {
ebrus 0:6bc4ac881c8e 294 if (fh < 3) return 0;
ebrus 0:6bc4ac881c8e 295
ebrus 0:6bc4ac881c8e 296 FileHandle* fhc = filehandles[fh-3];
ebrus 0:6bc4ac881c8e 297 if (fhc == NULL) return -1;
ebrus 0:6bc4ac881c8e 298
ebrus 0:6bc4ac881c8e 299 return fhc->flen();
ebrus 0:6bc4ac881c8e 300 }
ebrus 0:6bc4ac881c8e 301 #endif
ebrus 0:6bc4ac881c8e 302
ebrus 0:6bc4ac881c8e 303
ebrus 0:6bc4ac881c8e 304 #if !defined(__ARMCC_VERSION) && !defined(__ICCARM__)
ebrus 0:6bc4ac881c8e 305 extern "C" int _fstat(int fd, struct stat *st) {
ebrus 0:6bc4ac881c8e 306 if ((STDOUT_FILENO == fd) || (STDERR_FILENO == fd) || (STDIN_FILENO == fd)) {
ebrus 0:6bc4ac881c8e 307 st->st_mode = S_IFCHR;
ebrus 0:6bc4ac881c8e 308 return 0;
ebrus 0:6bc4ac881c8e 309 }
ebrus 0:6bc4ac881c8e 310
ebrus 0:6bc4ac881c8e 311 errno = EBADF;
ebrus 0:6bc4ac881c8e 312 return -1;
ebrus 0:6bc4ac881c8e 313 }
ebrus 0:6bc4ac881c8e 314 #endif
ebrus 0:6bc4ac881c8e 315
ebrus 0:6bc4ac881c8e 316 namespace std {
ebrus 0:6bc4ac881c8e 317 extern "C" int remove(const char *path) {
ebrus 0:6bc4ac881c8e 318 FilePath fp(path);
ebrus 0:6bc4ac881c8e 319 FileSystemLike *fs = fp.fileSystem();
ebrus 0:6bc4ac881c8e 320 if (fs == NULL) return -1;
ebrus 0:6bc4ac881c8e 321
ebrus 0:6bc4ac881c8e 322 return fs->remove(fp.fileName());
ebrus 0:6bc4ac881c8e 323 }
ebrus 0:6bc4ac881c8e 324
ebrus 0:6bc4ac881c8e 325 extern "C" int rename(const char *oldname, const char *newname) {
ebrus 0:6bc4ac881c8e 326 FilePath fpOld(oldname);
ebrus 0:6bc4ac881c8e 327 FilePath fpNew(newname);
ebrus 0:6bc4ac881c8e 328 FileSystemLike *fsOld = fpOld.fileSystem();
ebrus 0:6bc4ac881c8e 329 FileSystemLike *fsNew = fpNew.fileSystem();
ebrus 0:6bc4ac881c8e 330
ebrus 0:6bc4ac881c8e 331 /* rename only if both files are on the same FS */
ebrus 0:6bc4ac881c8e 332 if (fsOld != fsNew || fsOld == NULL) return -1;
ebrus 0:6bc4ac881c8e 333
ebrus 0:6bc4ac881c8e 334 return fsOld->rename(fpOld.fileName(), fpNew.fileName());
ebrus 0:6bc4ac881c8e 335 }
ebrus 0:6bc4ac881c8e 336
ebrus 0:6bc4ac881c8e 337 extern "C" char *tmpnam(char *s) {
ebrus 0:6bc4ac881c8e 338 return NULL;
ebrus 0:6bc4ac881c8e 339 }
ebrus 0:6bc4ac881c8e 340
ebrus 0:6bc4ac881c8e 341 extern "C" FILE *tmpfile() {
ebrus 0:6bc4ac881c8e 342 return NULL;
ebrus 0:6bc4ac881c8e 343 }
ebrus 0:6bc4ac881c8e 344 } // namespace std
ebrus 0:6bc4ac881c8e 345
ebrus 0:6bc4ac881c8e 346 #ifdef __ARMCC_VERSION
ebrus 0:6bc4ac881c8e 347 extern "C" char *_sys_command_string(char *cmd, int len) {
ebrus 0:6bc4ac881c8e 348 return NULL;
ebrus 0:6bc4ac881c8e 349 }
ebrus 0:6bc4ac881c8e 350 #endif
ebrus 0:6bc4ac881c8e 351
ebrus 0:6bc4ac881c8e 352 extern "C" DIR *opendir(const char *path) {
ebrus 0:6bc4ac881c8e 353 /* root dir is FileSystemLike */
ebrus 0:6bc4ac881c8e 354 if (path[0] == '/' && path[1] == 0) {
ebrus 0:6bc4ac881c8e 355 return FileSystemLike::opendir();
ebrus 0:6bc4ac881c8e 356 }
ebrus 0:6bc4ac881c8e 357
ebrus 0:6bc4ac881c8e 358 FilePath fp(path);
ebrus 0:6bc4ac881c8e 359 FileSystemLike* fs = fp.fileSystem();
ebrus 0:6bc4ac881c8e 360 if (fs == NULL) return NULL;
ebrus 0:6bc4ac881c8e 361
ebrus 0:6bc4ac881c8e 362 return fs->opendir(fp.fileName());
ebrus 0:6bc4ac881c8e 363 }
ebrus 0:6bc4ac881c8e 364
ebrus 0:6bc4ac881c8e 365 extern "C" struct dirent *readdir(DIR *dir) {
ebrus 0:6bc4ac881c8e 366 return dir->readdir();
ebrus 0:6bc4ac881c8e 367 }
ebrus 0:6bc4ac881c8e 368
ebrus 0:6bc4ac881c8e 369 extern "C" int closedir(DIR *dir) {
ebrus 0:6bc4ac881c8e 370 return dir->closedir();
ebrus 0:6bc4ac881c8e 371 }
ebrus 0:6bc4ac881c8e 372
ebrus 0:6bc4ac881c8e 373 extern "C" void rewinddir(DIR *dir) {
ebrus 0:6bc4ac881c8e 374 dir->rewinddir();
ebrus 0:6bc4ac881c8e 375 }
ebrus 0:6bc4ac881c8e 376
ebrus 0:6bc4ac881c8e 377 extern "C" off_t telldir(DIR *dir) {
ebrus 0:6bc4ac881c8e 378 return dir->telldir();
ebrus 0:6bc4ac881c8e 379 }
ebrus 0:6bc4ac881c8e 380
ebrus 0:6bc4ac881c8e 381 extern "C" void seekdir(DIR *dir, off_t off) {
ebrus 0:6bc4ac881c8e 382 dir->seekdir(off);
ebrus 0:6bc4ac881c8e 383 }
ebrus 0:6bc4ac881c8e 384
ebrus 0:6bc4ac881c8e 385 extern "C" int mkdir(const char *path, mode_t mode) {
ebrus 0:6bc4ac881c8e 386 FilePath fp(path);
ebrus 0:6bc4ac881c8e 387 FileSystemLike *fs = fp.fileSystem();
ebrus 0:6bc4ac881c8e 388 if (fs == NULL) return -1;
ebrus 0:6bc4ac881c8e 389
ebrus 0:6bc4ac881c8e 390 return fs->mkdir(fp.fileName(), mode);
ebrus 0:6bc4ac881c8e 391 }
ebrus 0:6bc4ac881c8e 392
ebrus 0:6bc4ac881c8e 393 #if defined(TOOLCHAIN_GCC)
ebrus 0:6bc4ac881c8e 394 /* prevents the exception handling name demangling code getting pulled in */
ebrus 0:6bc4ac881c8e 395 #include "mbed_error.h"
ebrus 0:6bc4ac881c8e 396 namespace __gnu_cxx {
ebrus 0:6bc4ac881c8e 397 void __verbose_terminate_handler() {
ebrus 0:6bc4ac881c8e 398 error("Exception");
ebrus 0:6bc4ac881c8e 399 }
ebrus 0:6bc4ac881c8e 400 }
ebrus 0:6bc4ac881c8e 401 extern "C" WEAK void __cxa_pure_virtual(void);
ebrus 0:6bc4ac881c8e 402 extern "C" WEAK void __cxa_pure_virtual(void) {
ebrus 0:6bc4ac881c8e 403 exit(1);
ebrus 0:6bc4ac881c8e 404 }
ebrus 0:6bc4ac881c8e 405
ebrus 0:6bc4ac881c8e 406 #endif
ebrus 0:6bc4ac881c8e 407
ebrus 0:6bc4ac881c8e 408 // ****************************************************************************
ebrus 0:6bc4ac881c8e 409 // mbed_main is a function that is called before main()
ebrus 0:6bc4ac881c8e 410 // mbed_sdk_init() is also a function that is called before main(), but unlike
ebrus 0:6bc4ac881c8e 411 // mbed_main(), it is not meant for user code, but for the SDK itself to perform
ebrus 0:6bc4ac881c8e 412 // initializations before main() is called.
ebrus 0:6bc4ac881c8e 413
ebrus 0:6bc4ac881c8e 414 extern "C" WEAK void mbed_main(void);
ebrus 0:6bc4ac881c8e 415 extern "C" WEAK void mbed_main(void) {
ebrus 0:6bc4ac881c8e 416 }
ebrus 0:6bc4ac881c8e 417
ebrus 0:6bc4ac881c8e 418 extern "C" WEAK void mbed_sdk_init(void);
ebrus 0:6bc4ac881c8e 419 extern "C" WEAK void mbed_sdk_init(void) {
ebrus 0:6bc4ac881c8e 420 }
ebrus 0:6bc4ac881c8e 421
ebrus 0:6bc4ac881c8e 422 #if defined(TOOLCHAIN_ARM)
ebrus 0:6bc4ac881c8e 423 extern "C" int $Super$$main(void);
ebrus 0:6bc4ac881c8e 424
ebrus 0:6bc4ac881c8e 425 extern "C" int $Sub$$main(void) {
ebrus 0:6bc4ac881c8e 426 mbed_sdk_init();
ebrus 0:6bc4ac881c8e 427 mbed_main();
ebrus 0:6bc4ac881c8e 428 return $Super$$main();
ebrus 0:6bc4ac881c8e 429 }
ebrus 0:6bc4ac881c8e 430 #elif defined(TOOLCHAIN_GCC)
ebrus 0:6bc4ac881c8e 431 extern "C" int __real_main(void);
ebrus 0:6bc4ac881c8e 432
ebrus 0:6bc4ac881c8e 433 extern "C" int __wrap_main(void) {
ebrus 0:6bc4ac881c8e 434 mbed_sdk_init();
ebrus 0:6bc4ac881c8e 435 mbed_main();
ebrus 0:6bc4ac881c8e 436 return __real_main();
ebrus 0:6bc4ac881c8e 437 }
ebrus 0:6bc4ac881c8e 438 #elif defined(TOOLCHAIN_IAR)
ebrus 0:6bc4ac881c8e 439 // IAR doesn't have the $Super/$Sub mechanism of armcc, nor something equivalent
ebrus 0:6bc4ac881c8e 440 // to ld's --wrap. It does have a --redirect, but that doesn't help, since redirecting
ebrus 0:6bc4ac881c8e 441 // 'main' to another symbol looses the original 'main' symbol. However, its startup
ebrus 0:6bc4ac881c8e 442 // code will call a function to setup argc and argv (__iar_argc_argv) if it is defined.
ebrus 0:6bc4ac881c8e 443 // Since mbed doesn't use argc/argv, we use this function to call our mbed_main.
ebrus 0:6bc4ac881c8e 444 extern "C" void __iar_argc_argv() {
ebrus 0:6bc4ac881c8e 445 mbed_sdk_init();
ebrus 0:6bc4ac881c8e 446 mbed_main();
ebrus 0:6bc4ac881c8e 447 }
ebrus 0:6bc4ac881c8e 448 #endif
ebrus 0:6bc4ac881c8e 449
ebrus 0:6bc4ac881c8e 450 // Provide implementation of _sbrk (low-level dynamic memory allocation
ebrus 0:6bc4ac881c8e 451 // routine) for GCC_ARM which compares new heap pointer with MSP instead of
ebrus 0:6bc4ac881c8e 452 // SP. This make it compatible with RTX RTOS thread stacks.
ebrus 0:6bc4ac881c8e 453 #if defined(TOOLCHAIN_GCC_ARM)
ebrus 0:6bc4ac881c8e 454 // Linker defined symbol used by _sbrk to indicate where heap should start.
ebrus 0:6bc4ac881c8e 455 extern "C" int __end__;
ebrus 0:6bc4ac881c8e 456
ebrus 0:6bc4ac881c8e 457 // Turn off the errno macro and use actual global variable instead.
ebrus 0:6bc4ac881c8e 458 #undef errno
ebrus 0:6bc4ac881c8e 459 extern "C" int errno;
ebrus 0:6bc4ac881c8e 460
ebrus 0:6bc4ac881c8e 461 // For ARM7 only
ebrus 0:6bc4ac881c8e 462 register unsigned char * stack_ptr __asm ("sp");
ebrus 0:6bc4ac881c8e 463
ebrus 0:6bc4ac881c8e 464 // Dynamic memory allocation related syscall.
ebrus 0:6bc4ac881c8e 465 extern "C" caddr_t _sbrk(int incr) {
ebrus 0:6bc4ac881c8e 466 static unsigned char* heap = (unsigned char*)&__end__;
ebrus 0:6bc4ac881c8e 467 unsigned char* prev_heap = heap;
ebrus 0:6bc4ac881c8e 468 unsigned char* new_heap = heap + incr;
ebrus 0:6bc4ac881c8e 469
ebrus 0:6bc4ac881c8e 470 #if defined(TARGET_ARM7)
ebrus 0:6bc4ac881c8e 471 if (new_heap >= stack_ptr) {
ebrus 0:6bc4ac881c8e 472 #else
ebrus 0:6bc4ac881c8e 473 if (new_heap >= (unsigned char*)__get_MSP()) {
ebrus 0:6bc4ac881c8e 474 #endif
ebrus 0:6bc4ac881c8e 475 errno = ENOMEM;
ebrus 0:6bc4ac881c8e 476 return (caddr_t)-1;
ebrus 0:6bc4ac881c8e 477 }
ebrus 0:6bc4ac881c8e 478
ebrus 0:6bc4ac881c8e 479 heap = new_heap;
ebrus 0:6bc4ac881c8e 480 return (caddr_t) prev_heap;
ebrus 0:6bc4ac881c8e 481 }
ebrus 0:6bc4ac881c8e 482 #endif