![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gencycles.php CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Isaki's NoNo m68k/m88k emulator] / nono / m680x0|
Return to gencycles.php CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / m680x0 |
1.1 root 1: <?php
2: //
3: // nono
4: // Copyright (C) 2025 nono project
5: // Licensed under nono-license.txt
6: //
7:
8: // gencycles.php
9: // cycles.txt から m680x0cycle.h を生成する。
10:
11: // 種類。
12: $names = array(
13: "030cc",
14: "030ncc",
15: "040",
16: );
17: define("ITEMS", count($names));
18:
19: // cycle_map = array(
20: // "andi_dn" => (2, 2, 1),
21: // :
22: // );
23: // alias_map = array(
24: // "ori_dn" => "andi_dn",
25: // );
26: $cycle_map = array();
27: $alias_map = array();
28:
29: $infile = "cycles.txt";
30: $fp = fopen($infile, "r");
31: $lineno = 0;
32: while (($line = fgets($fp)) !== false) {
33: $lineno++;
34: $line = preg_replace('/;.*$/', "", $line);
35: $line = trim($line);
36: if ($line == "") {
37: continue;
38: }
39:
40: $params = preg_split('/\s+/', $line, -1, PREG_SPLIT_NO_EMPTY);
41: if (count($params) != 4) {
42: print "{$infile}:{$lineno}: Syntax error: columns not 3\n";
43: exit(1);
44: }
45:
46: $new_symbol = $params[0];
47: $cylist = array();
48: $prev = 0;
49: for ($i = 0; $i < ITEMS; $i++) {
50: $val = $params[$i + 1];
51: switch ($val) {
52: case "=": // 左と同じ値 (主に 030 CC/NCC で使う)
53: case "?": // 不明 (とりあえず適当に代入)
54: $val = $prev;
55: break;
56: case ".": // 該当なし
57: break;
58: default:
59: if (is_int($val)) {
60: print "{$infile}:{$lineno}: Syntax error\n";
61: exit(1);
62: }
63: if ($val < -128 || $val > 127) {
64: print "{$infile}:{$lineno}: " +
65: "Out of range: {$val} ({$new_symbol})\n";
66: exit(1);
67: }
68: break;
69: }
70: $cylist[] = $val;
71: $prev = $val;
72: }
73:
74: $symbol = find_symbol($cylist);
75: if ($symbol == "") {
76: // 新規
77: $cycle_map[$new_symbol] = $cylist;
78: } else {
79: // すでに同じサイクルを持つエントリがある
80: $alias_map[$new_symbol] = $symbol;
81: }
82: }
83:
84: // なんとなく昇順にソート。
85: uasort($cycle_map, function($a, $b) {
86: if ($a[0] != $b[0]) {
87: return $a[0] <=> $b[0];
88: }
89: if ($a[1] != $b[1]) {
90: return $a[1] <=> $b[1];
91: }
92: return $a[2] <=> $b[2];
93: });
94:
95: if (0) {
96: var_dump($cycle_map);
97: var_dump($alias_map);
98: }
99:
100: // $cycle_map[idx] => array(type, type2, ...) を
101: // $cycle_table[type][idx] にする。
102: $cycle_table = array();
103: foreach ($cycle_map as $symbol => $cylist) {
104: for ($i = 0; $i < ITEMS; $i++) {
105: $cycle_table[$i][] = $cylist[$i];
106: }
107: }
108: if (0) {
109: var_dump($cycle_table);
110: }
111:
112: // ヘッダ出力
113: $fhdr = fopen("m680x0cycle.h", "w");
114: fprintf($fhdr, "// generated by {$argv[0]}\n");
115: // ここは pragma once が使えない(使わないほうがいい)。
116: fprintf($fhdr, "#ifndef M680X0_CYCLE_HEADER\n");
117: fprintf($fhdr, "#define M680X0_CYCLE_HEADER\n");
118:
119: $i = 0;
120: foreach ($cycle_map as $symbol => $cylist) {
121: fprintf($fhdr,
122: "static constexpr int cycidx_{$symbol} = {$i};\n");
123: $i++;
124: }
125: fprintf($fhdr, "\n");
126: foreach ($alias_map as $from => $to) {
127: fprintf($fhdr,
128: "static constexpr int cycidx_{$from} = cycidx_{$to};\n");
129: }
130:
131: fprintf($fhdr, "#endif\n");
132: fprintf($fhdr, "\n");
133: fprintf($fhdr, "#if defined(M680X0_CYCLE_TABLE)\n");
134:
135: // ソース出力
136: for ($i = 0; $i < ITEMS; $i++) {
137: fprintf($fhdr, "/*static*/ const int8\n");
138: fprintf($fhdr, "MPU680x0Device::cycle_table_{$names[$i]}[] = {\n");
139: $cyarray = $cycle_table[$i];
140: $j = 0;
141: foreach ($cyarray as $cycle) {
142: if (($j % 8) == 0) {
143: fprintf($fhdr, "\t");
144: }
145: fprintf($fhdr, "%3d,", $cycle);
146: if (($j % 8) == 7) {
147: fprintf($fhdr, "\n");
148: }
149: $j++;
150: }
151: if (($j % 8) != 0) {
152: fprintf($fhdr, "\n");
153: }
154: fprintf($fhdr, "};\n");
155: };
156: fprintf($fhdr, "#endif\n");
157: fclose($fhdr);
158: ?>
159: <?php
160: // cycle_map から $keylist を持つエントリを探す。
161: // 見付かればシンボルを返す。見付からなければ "" を返す。
162: function find_symbol($keylist)
163: {
164: global $cycle_map;
165:
166: $n = count($keylist);
167: foreach ($cycle_map as $symbol => $list) {
168: $i = 0;
169: for (; $i < $n; $i++) {
170: if ($keylist[$i] != ".") {
171: if ($keylist[$i] != $list[$i]) {
172: break;
173: }
174: }
175: }
176: if ($i == $n) {
177: return $symbol;
178: }
179: }
180: return "";
181: }
182:
183: function array_cmp($list1, $list2)
184: {
185: if (count($list1) != count($list2)) {
186: return false;
187: }
188: for ($i = 0; $i < count($list1); $i++) {
189: if ($list1[$i] != $list2[$i]) {
190: return false;
191: }
192: }
193: return true;
194: }
195: ?>
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.