Mercurial > hg-old > index.cgi
annotate lwasm/list.c @ 205:42df94f30d82
checkpoint
author | lost |
---|---|
date | Sun, 19 Apr 2009 17:44:46 +0000 |
parents | 586069fb17a1 |
children | bae1e3ecdce1 |
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; | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
52 int c, c3; |
44 | 53 char *p; |
54 | |
102 | 55 if (!as -> listfile) |
164 | 56 goto showerr; |
44 | 57 if (as -> listfile[0] == '-' && as -> listfile[1] == '\0') |
58 lf = stdout; | |
59 else | |
60 { | |
45 | 61 lf = fopen(as -> listfile, "w"); |
44 | 62 if (!lf) |
63 { | |
45 | 64 fprintf(stderr, "Unable to open list file '%s'. No listing will be generated: ", as -> listfile); |
65 perror(""); | |
44 | 66 goto showerr; |
67 } | |
68 } | |
69 | |
70 for (l = as -> lineshead; l; l = l -> next) | |
71 { | |
49
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
72 if (l -> addrset == 1 || l -> codelen > 0 || l -> nocodelen > 0) |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
73 { |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
74 fprintf(lf, "%04X ", l -> codeaddr); |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
75 } |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
76 else |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
77 { |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
78 fprintf(lf, " "); |
21ae0fab469b
Added needed infra for useful listing of EQU and ORG type statements
lost
parents:
47
diff
changeset
|
79 } |
44 | 80 |
50 | 81 if (l -> addrset == 2) |
44 | 82 { |
50 | 83 fprintf(lf, "%04X ", l -> symaddr); |
44 | 84 } |
50 | 85 else |
44 | 86 { |
50 | 87 for (c = 0; c < l -> codelen && c < 5; c++) |
88 { | |
89 fprintf(lf, "%02X", l -> bytes[c]); | |
90 } | |
91 while (c < 5) | |
92 { | |
93 fprintf(lf, " "); | |
94 c++; | |
95 } | |
44 | 96 } |
97 fprintf(lf, " %20.20s:%05d ", l -> filename, l -> lineno); | |
98 | |
99 // print line here | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
100 for (c3 = 0, c = 0, p = l -> text; *p; c++, p++) |
44 | 101 { |
102 if (*p == '\t') | |
103 { | |
104 int c2; | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
105 c2 = 8 - (c3 % 8); |
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
106 c3 += c2; |
44 | 107 while (c2--) fputc(' ', lf); |
108 } | |
109 else | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
110 { |
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
111 c3++; |
44 | 112 fputc(*p, lf); |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
113 } |
44 | 114 } |
115 fputc('\n', lf); | |
116 | |
117 if (l -> codelen > 5) | |
118 { | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
119 fprintf(lf, "%04X ", (l -> codeaddr + 5) & 0xFFFF); |
44 | 120 for (c = 5; c < l -> codelen; c++) |
121 { | |
122 if (!(c % 5) && c != 5) | |
123 { | |
72
9fa4f77dd119
Fixed tab handling in list code; also added address to second and later lines in byte listing for a particular line
lost
parents:
58
diff
changeset
|
124 fprintf(lf, "\n%04X ", (l -> codeaddr + c) & 0xFFFF); |
44 | 125 } |
126 fprintf(lf, "%02X", l -> bytes[c]); | |
127 } | |
128 fputc('\n', lf); | |
129 } | |
130 } | |
58 | 131 |
132 lwasm_list_symbols(as, lf); | |
133 | |
44 | 134 if (lf != stdout) |
135 fclose(lf); | |
136 | |
137 showerr: | |
35
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
138 lwasm_show_errors(as); |
39d750ee8d34
Added error display and fixed infinite loop in lwasm_parse_line()
lost
parents:
4
diff
changeset
|
139 } |