Commit | Line | Data |
---|---|---|
919757fd PH |
1 | |
2 | #include <stdio.h> | |
3 | #include <stdlib.h> | |
4 | #include <logging.h> | |
5 | ||
6 | #include "structures.h" | |
7 | #include "ops.h" | |
8 | #include "file.h" | |
9 | #include "directory.h" | |
10 | #include "logging.h" | |
11 | ||
12 | #define PSIZE(TYPE) {printf ("Size of %s in Words: 0%o(oct), %i(dec) - Blocks: 0%o(oct) %i(dec) ", \ | |
13 | #TYPE, sizeof(TYPE)/2,sizeof(TYPE)/2,sizeof(TYPE)/512,sizeof(TYPE)/512); \ | |
14 | if (sizeof(TYPE)%512) printf ("- Modulo rest 0%o(oct) %i(dec)",sizeof(TYPE)%512,sizeof(TYPE)%512); \ | |
15 | printf("\n"); \ | |
16 | } | |
17 | ||
18 | /*************************************************/ | |
19 | ||
20 | image_t * image; | |
21 | ||
22 | ||
23 | int main(int argc, char** argv){ | |
24 | ||
25 | verbosity_level=3; | |
26 | ||
27 | image_t *image=image_load((image_t *)NULL,"disk2.fortran.rk05"); | |
28 | if (image) DEBUG("We got the image :-)\n"); | |
29 | ||
30 | ||
31 | directory_t * directory=directory_read(&(image->part0)); | |
32 | ||
33 | os8_direntry_t * entry=directory->entries; | |
34 | ||
35 | do{ | |
36 | printf("File: %s\n",entry->name); | |
37 | entry=entry->next; | |
38 | } while (entry); | |
39 | ||
40 | ||
41 | //image_load(image,"focal71-boot-os8.tu56"); | |
42 | ||
43 | ||
44 | // int i; | |
45 | //for (i=0;i<5;i++){ | |
46 | // printf ("0%04o: 0%04o\n",i,image->data_words[i]&07777); | |
47 | // } | |
48 | ||
49 | WARN("Huhu!\n"); | |
50 | ERR("Huhu!\n"); | |
51 | DBG("Huhu!\n"); | |
52 | INFO("Huhu!\n"); | |
53 | ||
54 | exit_program(0); | |
55 | return 0; | |
56 | ||
57 | } |