Rev 8791 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8791 | Rev 9095 | ||
|---|---|---|---|
| Line 404... | Line 404... | ||
| 404 | 404 | ||
| Line 405... | Line 405... | ||
| 405 | #ifdef MTAR_OBJ |
405 | #ifdef MTAR_OBJ |
| Line 406... | Line -... | ||
| 406 | - | ||
| 407 | #include |
- | |
| 408 | - | ||
| 409 | void mtar_panic(char* func_name){ |
- | |
| 410 | _ksys_debug_puts("mtar.obj: "); |
- | |
| 411 | _ksys_debug_puts(func_name); |
- | |
| 412 | _ksys_debug_puts(" = NULL!\n"); |
406 | |
| 413 | } |
407 | #include |
| 414 | 408 | ||
| 415 | int mtar_init(){ |
409 | int mtar_init(){ |
| 416 | ksys_coff_etable_t *libc = _ksys_load_coff("/sys/lib/libc.obj"); |
410 | ksys_dll_t *libc = _ksys_dlopen("/sys/lib/libc.obj"); |
| 417 | if(!libc){ |
411 | if(!libc){ |
| Line 418... | Line 412... | ||
| 418 | _ksys_debug_puts("mtar.obj: libc.obj not loaded!"); |
412 | _ksys_debug_puts("mtar.obj: libc.obj not loaded!"); |
| 419 | return 1; |
413 | return 1; |
| 420 | } |
414 | } |
| 421 | 415 | ||
| 422 | fread = _ksys_get_coff_func(libc, "fread", mtar_panic); |
416 | fread = _ksys_dlsym(libc, "fread"); |
| 423 | fwrite = _ksys_get_coff_func(libc, "fwrite", mtar_panic); |
417 | fwrite = _ksys_dlsym(libc, "fwrite"); |
| 424 | fclose = _ksys_get_coff_func(libc, "fclose", mtar_panic); |
418 | fclose = _ksys_dlsym(libc, "fclose"); |
| 425 | fopen = _ksys_get_coff_func(libc, "fopen", mtar_panic); |
419 | fopen = _ksys_dlsym(libc, "fopen"); |
| 426 | fseek = _ksys_get_coff_func(libc, "fseek", mtar_panic); |
420 | fseek = _ksys_dlsym(libc, "fseek"); |
| 427 | ftell = _ksys_get_coff_func(libc, "ftell", mtar_panic); |
421 | ftell = _ksys_dlsym(libc, "ftell"); |
| 428 | sprintf= _ksys_get_coff_func(libc, "sprintf", mtar_panic); |
422 | sprintf= _ksys_dlsym(libc, "sprintf"); |
| 429 | sscanf = _ksys_get_coff_func(libc, "sscanf", mtar_panic); |
423 | sscanf = _ksys_dlsym(libc, "sscanf"); |
| 430 | strcmp = _ksys_get_coff_func(libc, "strcmp", mtar_panic); |
424 | strcmp = _ksys_dlsym(libc, "strcmp"); |
| Line 431... | Line 425... | ||
| 431 | strchr = _ksys_get_coff_func(libc, "strchr", mtar_panic); |
425 | strchr = _ksys_dlsym(libc, "strchr"); |
| 432 | strcpy = _ksys_get_coff_func(libc, "strcpy", mtar_panic); |
426 | strcpy = _ksys_dlsym(libc, "strcpy"); |
| 433 | return 0; |
427 | return 0; |
| 434 | } |
428 | } |
| 435 | 429 | ||
| 436 | 430 | ||