Mercurial > hg-old > index.cgi
annotate src/list.c @ 44:2330b88f9600
Added simple output listing
| author | lost |
|---|---|
| date | Sun, 04 Jan 2009 06:52:18 +0000 |
| parents | 39d750ee8d34 |
| children | be459d69f481 |
| rev | line source |
|---|---|
| 0 | 1 /* |
|
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
2 list.c |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
3 Copyright © 2009 William Astle |
|
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
4 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
5 This file is part of LWASM. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
6 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
7 LWASM is free software: you can redistribute it and/or modify it under the |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
8 terms of the GNU General Public License as published by the Free Software |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
9 Foundation, either version 3 of the License, or (at your option) any later |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
10 version. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
11 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
12 This program is distributed in the hope that it will be useful, but WITHOUT |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
15 more details. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
16 |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
17 You should have received a copy of the GNU General Public License along with |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
18 this program. If not, see <http://www.gnu.org/licenses/>. |
|
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
19 |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
20 Contains code for displaying a program listings, etc. |
|
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
21 */ |
| 0 | 22 |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
23 #define __list_c_seen__ |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
24 |
| 0 | 25 #include <stdio.h> |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
26 #include <stdlib.h> |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
27 |
| 0 | 28 #include "lwasm.h" |
| 29 | |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
30 void lwasm_show_errors(asmstate_t *as) |
| 0 | 31 { |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
32 lwasm_line_t *l; |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
33 lwasm_error_t *e; |
| 0 | 34 |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
35 for (l = as -> lineshead; l; l = l -> next) |
| 0 | 36 { |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
37 if (l -> err) |
| 0 | 38 { |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
39 for (e = l -> err; e; e = e -> next) |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
40 { |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
41 fprintf(stderr, "ERROR: %s\n", e -> mess); |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
42 } |
| 44 | 43 fprintf(stderr, "%s:%d: %s\n", l -> filename, l -> lineno, l -> text); |
| 0 | 44 } |
| 45 } | |
| 46 } | |
| 47 | |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
48 void lwasm_list(asmstate_t *as) |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
49 { |
| 44 | 50 FILE *lf; |
| 51 lwasm_line_t *l; | |
| 52 int c; | |
| 53 char *p; | |
| 54 | |
| 55 if (as -> listfile[0] == '-' && as -> listfile[1] == '\0') | |
| 56 lf = stdout; | |
| 57 else | |
| 58 { | |
| 59 lf = fopen(as -> listfile, "o"); | |
| 60 if (!lf) | |
| 61 { | |
| 62 fprintf(stderr, "Unable to open list file. No listing will be generated!\n"); | |
| 63 goto showerr; | |
| 64 } | |
| 65 } | |
| 66 | |
| 67 for (l = as -> lineshead; l; l = l -> next) | |
| 68 { | |
| 69 fprintf(lf, "%04X ", l -> codeaddr); | |
| 70 | |
| 71 if (l -> codelen > 0) | |
| 72 { | |
| 73 for (c = 0; c < l -> codelen && c < 5; c++) | |
| 74 { | |
| 75 fprintf(lf, "%02X", l -> bytes[c]); | |
| 76 } | |
| 77 } | |
| 78 while (c < 5) | |
| 79 { | |
| 80 fprintf(lf, " "); | |
| 81 c++; | |
| 82 } | |
| 83 fprintf(lf, " %20.20s:%05d ", l -> filename, l -> lineno); | |
| 84 | |
| 85 // print line here | |
| 86 for (c = 0, p = l -> text; *p; c++, p++) | |
| 87 { | |
| 88 if (*p == '\t') | |
| 89 { | |
| 90 int c2; | |
| 91 c2 = 8 - (c % 8); | |
| 92 while (c2--) fputc(' ', lf); | |
| 93 } | |
| 94 else | |
| 95 fputc(*p, lf); | |
| 96 } | |
| 97 fputc('\n', lf); | |
| 98 | |
| 99 if (l -> codelen > 5) | |
| 100 { | |
| 101 fprintf(lf, " "); | |
| 102 for (c = 5; c < l -> codelen; c++) | |
| 103 { | |
| 104 if (!(c % 5) && c != 5) | |
| 105 { | |
| 106 fprintf(lf, "\n "); | |
| 107 } | |
| 108 fprintf(lf, "%02X", l -> bytes[c]); | |
| 109 } | |
| 110 fputc('\n', lf); | |
| 111 } | |
| 112 } | |
| 113 if (lf != stdout) | |
| 114 fclose(lf); | |
| 115 | |
| 116 showerr: | |
|
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
117 lwasm_show_errors(as); |
|
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
118 } |