| 1 | #!/usr/bin/env python3
|
|---|
| 2 |
|
|---|
| 3 | import os
|
|---|
| 4 | import socket
|
|---|
| 5 | import time
|
|---|
| 6 |
|
|---|
| 7 | mod_prolog = [
|
|---|
| 8 | "rom/croot.c",
|
|---|
| 9 | "rom/fsmain.s"
|
|---|
| 10 | ]
|
|---|
| 11 |
|
|---|
| 12 | mod_iolib = [
|
|---|
| 13 | "lib/dofmt.c",
|
|---|
| 14 | "lib/mdump.c",
|
|---|
| 15 | "lib/pause.c",
|
|---|
| 16 | "lib/printf.c",
|
|---|
| 17 | "lib/rawio.c",
|
|---|
| 18 | "lib/sprintf.c",
|
|---|
| 19 | "lib/waitcr.c",
|
|---|
| 20 | "lib/hwdefs.s",
|
|---|
| 21 | "lib/rtraps.s",
|
|---|
| 22 | "lib/setipl.s",
|
|---|
| 23 | "lib/setsr.s",
|
|---|
| 24 | "lib/traps.s"
|
|---|
| 25 | ]
|
|---|
| 26 |
|
|---|
| 27 | mod_libcio = [
|
|---|
| 28 | "lib/atoi.c",
|
|---|
| 29 | "lib/atol.c",
|
|---|
| 30 | "lib/blkrd.c",
|
|---|
| 31 | "lib/blkwr.c",
|
|---|
| 32 | "lib/close.c",
|
|---|
| 33 | "lib/clusmap.c",
|
|---|
| 34 | "lib/conin.c",
|
|---|
| 35 | "lib/conwr.c",
|
|---|
| 36 | "lib/dirfns.c",
|
|---|
| 37 | "lib/fgets.c",
|
|---|
| 38 | "lib/filesys.c",
|
|---|
| 39 | "lib/filname.c",
|
|---|
| 40 | "lib/flread.c",
|
|---|
| 41 | "lib/fopen.c",
|
|---|
| 42 | "lib/fprintf.c",
|
|---|
| 43 | "lib/fputs.c",
|
|---|
| 44 | "lib/fread.c",
|
|---|
| 45 | "lib/fscanf.c",
|
|---|
| 46 | "lib/fseek.c",
|
|---|
| 47 | "lib/fsinit.c",
|
|---|
| 48 | "lib/fsize.c",
|
|---|
| 49 | "lib/fstubs.c",
|
|---|
| 50 | "lib/ftell.c",
|
|---|
| 51 | "lib/fwrite.c",
|
|---|
| 52 | "lib/getbuff.c",
|
|---|
| 53 | "lib/getc.c",
|
|---|
| 54 | "lib/getl.c",
|
|---|
| 55 | "lib/getw.c",
|
|---|
| 56 | "lib/lseek.c",
|
|---|
| 57 | "lib/open.c",
|
|---|
| 58 | "lib/posit.c",
|
|---|
| 59 | "lib/putc.c",
|
|---|
| 60 | "lib/putl.c",
|
|---|
| 61 | "lib/putw.c",
|
|---|
| 62 | "lib/read.c",
|
|---|
| 63 | "lib/readrn.c",
|
|---|
| 64 | "lib/rename.c",
|
|---|
| 65 | "lib/scan.c",
|
|---|
| 66 | "lib/setbuf.c",
|
|---|
| 67 | "lib/ungetc.c",
|
|---|
| 68 | "lib/unlink.c",
|
|---|
| 69 | "lib/write.c",
|
|---|
| 70 | "lib/writern.c",
|
|---|
| 71 | "lib/ptcl12.s"
|
|---|
| 72 | ]
|
|---|
| 73 |
|
|---|
| 74 | mod_libsm = [
|
|---|
| 75 | "lib/index.c",
|
|---|
| 76 | "lib/memccpy.c",
|
|---|
| 77 | "lib/memchr.c",
|
|---|
| 78 | "lib/memcmp.c",
|
|---|
| 79 | "lib/memcmpu.c",
|
|---|
| 80 | "lib/memcpy.c",
|
|---|
| 81 | "lib/memcpyw.c",
|
|---|
| 82 | "lib/memset.c",
|
|---|
| 83 | "lib/memsetw.c",
|
|---|
| 84 | "lib/rindex.c",
|
|---|
| 85 | "lib/str2lc.c",
|
|---|
| 86 | "lib/str2uc.c",
|
|---|
| 87 | "lib/strcat.c",
|
|---|
| 88 | "lib/strccpy.c",
|
|---|
| 89 | "lib/strchr.c",
|
|---|
| 90 | "lib/strcmp.c",
|
|---|
| 91 | "lib/strcpy.c",
|
|---|
| 92 | "lib/strcspn.c",
|
|---|
| 93 | "lib/strfill.c",
|
|---|
| 94 | "lib/strlcmp.c",
|
|---|
| 95 | "lib/strlen.c",
|
|---|
| 96 | "lib/strltrm.c",
|
|---|
| 97 | "lib/strncat.c",
|
|---|
| 98 | "lib/strncmp.c",
|
|---|
| 99 | "lib/strncpy.c",
|
|---|
| 100 | "lib/strpbrk.c",
|
|---|
| 101 | "lib/strrchr.c",
|
|---|
| 102 | "lib/strrev.c",
|
|---|
| 103 | "lib/strrevi.c",
|
|---|
| 104 | "lib/strrtrm.c",
|
|---|
| 105 | "lib/strspn.c",
|
|---|
| 106 | "lib/strtok.c",
|
|---|
| 107 | "lib/strtol.c"
|
|---|
| 108 | ]
|
|---|
| 109 |
|
|---|
| 110 | mod_lib700 = [
|
|---|
| 111 | "lib/bitrev.c",
|
|---|
| 112 | "lib/ctype.c",
|
|---|
| 113 | "lib/ispow2.c",
|
|---|
| 114 | "lib/mangle.c",
|
|---|
| 115 | "lib/micons.c",
|
|---|
| 116 | "lib/tolower.c",
|
|---|
| 117 | "lib/toupper.c",
|
|---|
| 118 | "lib/aldiv.s",
|
|---|
| 119 | "lib/almul.s",
|
|---|
| 120 | "lib/alrem.s",
|
|---|
| 121 | "lib/blkfill.s",
|
|---|
| 122 | "lib/blkmove.s",
|
|---|
| 123 | "lib/finalone.s",
|
|---|
| 124 | "lib/jumpto.s",
|
|---|
| 125 | "lib/ldiv.s",
|
|---|
| 126 | "lib/lmul.s",
|
|---|
| 127 | "lib/lrem.s",
|
|---|
| 128 | "lib/rand24.s",
|
|---|
| 129 | "lib/setjmp.s",
|
|---|
| 130 | "lib/uldiv.s"
|
|---|
| 131 | ]
|
|---|
| 132 |
|
|---|
| 133 | mod_vlib = [
|
|---|
| 134 | "lib/cg2.c",
|
|---|
| 135 | "lib/cg3.c",
|
|---|
| 136 | "lib/glcinit.c",
|
|---|
| 137 | "lib/lseg.c",
|
|---|
| 138 | "lib/vbfill4.c",
|
|---|
| 139 | "lib/vclrs.c",
|
|---|
| 140 | "lib/vhinit.c",
|
|---|
| 141 | "lib/vmput.c",
|
|---|
| 142 | "lib/vobjfns.c",
|
|---|
| 143 | "lib/vputs.c",
|
|---|
| 144 | "lib/vputsv.c",
|
|---|
| 145 | "lib/vsetpal.c",
|
|---|
| 146 | "lib/vsinit.c",
|
|---|
| 147 | "lib/vspray4.c",
|
|---|
| 148 | "lib/vtext.c",
|
|---|
| 149 | "lib/vwputm.c",
|
|---|
| 150 | "lib/acctrl.s",
|
|---|
| 151 | "lib/glcplot.s",
|
|---|
| 152 | "lib/tsplot4.s",
|
|---|
| 153 | "lib/vbank.s",
|
|---|
| 154 | "lib/vclrav.s",
|
|---|
| 155 | "lib/vcputs.s",
|
|---|
| 156 | "lib/vcputsv.s",
|
|---|
| 157 | "lib/viint.s",
|
|---|
| 158 | "lib/vputa.s",
|
|---|
| 159 | "lib/vputc.s",
|
|---|
| 160 | "lib/vputcv.s",
|
|---|
| 161 | "lib/vputp.s",
|
|---|
| 162 | "lib/vsetav.s",
|
|---|
| 163 | "lib/vsetcv.s",
|
|---|
| 164 | "lib/vsplot4.s",
|
|---|
| 165 | "lib/vvputsv.s",
|
|---|
| 166 | "lib/vwputp.s",
|
|---|
| 167 | "lib/vwputs.s"
|
|---|
| 168 | ]
|
|---|
| 169 |
|
|---|
| 170 | mod_rom = [
|
|---|
| 171 | "rom/booter.c",
|
|---|
| 172 | "rom/romp.c",
|
|---|
| 173 | "rom/bios.s",
|
|---|
| 174 | "rom/lowram.s",
|
|---|
| 175 | "rom/timeint.s"
|
|---|
| 176 | ]
|
|---|
| 177 |
|
|---|
| 178 | mod_ram = [
|
|---|
| 179 | "ram/addfpu.c",
|
|---|
| 180 | "ram/adfield.c",
|
|---|
| 181 | "ram/adselbx.c",
|
|---|
| 182 | "ram/asgdsp.c",
|
|---|
| 183 | "ram/asgvce.c",
|
|---|
| 184 | "ram/barbadj.c",
|
|---|
| 185 | "ram/chgsef.c",
|
|---|
| 186 | "ram/chksec.c",
|
|---|
| 187 | "ram/cminit.c",
|
|---|
| 188 | "ram/ctcpos.c",
|
|---|
| 189 | "ram/curset.c",
|
|---|
| 190 | "ram/dbentr.c",
|
|---|
| 191 | "ram/dcopy.c",
|
|---|
| 192 | "ram/dec2fr.c",
|
|---|
| 193 | "ram/delnote.c",
|
|---|
| 194 | "ram/delpnts.c",
|
|---|
| 195 | "ram/dformat.c",
|
|---|
| 196 | "ram/dopatch.c",
|
|---|
| 197 | "ram/enterit.c",
|
|---|
| 198 | "ram/etaccn.c",
|
|---|
| 199 | "ram/etadep.c",
|
|---|
| 200 | "ram/etadyn.c",
|
|---|
| 201 | "ram/etagch.c",
|
|---|
| 202 | "ram/etagpt.c",
|
|---|
| 203 | "ram/etains.c",
|
|---|
| 204 | "ram/etaint.c",
|
|---|
| 205 | "ram/etaopt.c",
|
|---|
| 206 | "ram/etaprg.c",
|
|---|
| 207 | "ram/etarat.c",
|
|---|
| 208 | "ram/etatab.c",
|
|---|
| 209 | "ram/etatun.c",
|
|---|
| 210 | "ram/etavgr.c",
|
|---|
| 211 | "ram/etdyn.c",
|
|---|
| 212 | "ram/etiact.c",
|
|---|
| 213 | "ram/eticnf.c",
|
|---|
| 214 | "ram/etidin.c",
|
|---|
| 215 | "ram/etimlt.c",
|
|---|
| 216 | "ram/etinst.c",
|
|---|
| 217 | "ram/etioas.c",
|
|---|
| 218 | "ram/etiosc.c",
|
|---|
| 219 | "ram/etipnt.c",
|
|---|
| 220 | "ram/etires.c",
|
|---|
| 221 | "ram/etitim.c",
|
|---|
| 222 | "ram/etival.c",
|
|---|
| 223 | "ram/etivce.c",
|
|---|
| 224 | "ram/etiwsn.c",
|
|---|
| 225 | "ram/etloc.c",
|
|---|
| 226 | "ram/etmcfn.c",
|
|---|
| 227 | "ram/etrel.c",
|
|---|
| 228 | "ram/etres1.c",
|
|---|
| 229 | "ram/etscor.c",
|
|---|
| 230 | "ram/etsnbt.c",
|
|---|
| 231 | "ram/etstrn.c",
|
|---|
| 232 | "ram/ettpch.c",
|
|---|
| 233 | "ram/ettrns.c",
|
|---|
| 234 | "ram/etttab.c",
|
|---|
| 235 | "ram/ettval.c",
|
|---|
| 236 | "ram/etvel.c",
|
|---|
| 237 | "ram/etwavs.c",
|
|---|
| 238 | "ram/etwhar.c",
|
|---|
| 239 | "ram/etwhrv.c",
|
|---|
| 240 | "ram/etwoff.c",
|
|---|
| 241 | "ram/etwpnt.c",
|
|---|
| 242 | "ram/etwslt.c",
|
|---|
| 243 | "ram/etwvce.c",
|
|---|
| 244 | "ram/fcnote.c",
|
|---|
| 245 | "ram/frfind.c",
|
|---|
| 246 | "ram/gcurpos.c",
|
|---|
| 247 | "ram/idfield.c",
|
|---|
| 248 | "ram/idselbx.c",
|
|---|
| 249 | "ram/im700.c",
|
|---|
| 250 | "ram/infield.c",
|
|---|
| 251 | "ram/initi.c",
|
|---|
| 252 | "ram/instdsp.c",
|
|---|
| 253 | "ram/itcpos.c",
|
|---|
| 254 | "ram/kbobj.c",
|
|---|
| 255 | "ram/lcdlbls.c",
|
|---|
| 256 | "ram/ldfield.c",
|
|---|
| 257 | "ram/ldselbx.c",
|
|---|
| 258 | "ram/libdsp.c",
|
|---|
| 259 | "ram/librw.c",
|
|---|
| 260 | "ram/localkb.c",
|
|---|
| 261 | "ram/m7menu.c",
|
|---|
| 262 | "ram/midas.c",
|
|---|
| 263 | "ram/msl.c",
|
|---|
| 264 | "ram/msm.c",
|
|---|
| 265 | "ram/nedacc.c",
|
|---|
| 266 | "ram/pix2mid.c",
|
|---|
| 267 | "ram/ptdisp.c",
|
|---|
| 268 | "ram/ptdkey.c",
|
|---|
| 269 | "ram/ptfield.c",
|
|---|
| 270 | "ram/ptread.c",
|
|---|
| 271 | "ram/ptselbx.c",
|
|---|
| 272 | "ram/ptwrite.c",
|
|---|
| 273 | "ram/puteq.c",
|
|---|
| 274 | "ram/rscript.c",
|
|---|
| 275 | "ram/scadv.c",
|
|---|
| 276 | "ram/scfield.c",
|
|---|
| 277 | "ram/scgoto.c",
|
|---|
| 278 | "ram/scinit.c",
|
|---|
| 279 | "ram/scope.c",
|
|---|
| 280 | "ram/scordsp.c",
|
|---|
| 281 | "ram/scread.c",
|
|---|
| 282 | "ram/scselbx.c",
|
|---|
| 283 | "ram/sctrak.c",
|
|---|
| 284 | "ram/scwrite.c",
|
|---|
| 285 | "ram/seccpy.c",
|
|---|
| 286 | "ram/sedump.c",
|
|---|
| 287 | "ram/select.c",
|
|---|
| 288 | "ram/sendval.c",
|
|---|
| 289 | "ram/setgc.c",
|
|---|
| 290 | "ram/setv2gi.c",
|
|---|
| 291 | "ram/setwq.c",
|
|---|
| 292 | "ram/showcfg.c",
|
|---|
| 293 | "ram/smscrl.c",
|
|---|
| 294 | "ram/sqdisp.c",
|
|---|
| 295 | "ram/sqdkey.c",
|
|---|
| 296 | "ram/sqexec.c",
|
|---|
| 297 | "ram/sqfield.c",
|
|---|
| 298 | "ram/sqread.c",
|
|---|
| 299 | "ram/sqscan.c",
|
|---|
| 300 | "ram/sqselbx.c",
|
|---|
| 301 | "ram/sqwrite.c",
|
|---|
| 302 | "ram/stcpos.c",
|
|---|
| 303 | "ram/stmproc.c",
|
|---|
| 304 | "ram/swinit.c",
|
|---|
| 305 | "ram/tdfield.c",
|
|---|
| 306 | "ram/tdselbx.c",
|
|---|
| 307 | "ram/ttcpos.c",
|
|---|
| 308 | "ram/tundsp.c",
|
|---|
| 309 | "ram/ucslice.c",
|
|---|
| 310 | "ram/uslice.c",
|
|---|
| 311 | "ram/vtyper.c",
|
|---|
| 312 | "ram/wdfield.c",
|
|---|
| 313 | "ram/wdselbx.c",
|
|---|
| 314 | "ram/wheel.c",
|
|---|
| 315 | "ram/wscalc.c",
|
|---|
| 316 | "ram/wsdsp.c",
|
|---|
| 317 | "ram/execins.s",
|
|---|
| 318 | "ram/execkey.s",
|
|---|
| 319 | "ram/fpuint.s",
|
|---|
| 320 | "ram/procpfl.s",
|
|---|
| 321 | "ram/sedisp.s",
|
|---|
| 322 | "ram/seexec.s",
|
|---|
| 323 | "ram/serintr.s",
|
|---|
| 324 | "ram/sreset.s",
|
|---|
| 325 | "ram/timeint.s",
|
|---|
| 326 | "ram/tofpu.s",
|
|---|
| 327 | "ram/verdate.s"
|
|---|
| 328 | ]
|
|---|
| 329 |
|
|---|
| 330 | codes = {
|
|---|
| 331 | "-": 12,
|
|---|
| 332 | "=": 13,
|
|---|
| 333 | "\b": 14,
|
|---|
| 334 | "\t": 15,
|
|---|
| 335 | "`": 41,
|
|---|
| 336 | "[": 26,
|
|---|
| 337 | "]": 27,
|
|---|
| 338 | "\n": 28,
|
|---|
| 339 | ";": 39,
|
|---|
| 340 | "'": 40,
|
|---|
| 341 | "\\": 43,
|
|---|
| 342 | ",": 51,
|
|---|
| 343 | ".": 52,
|
|---|
| 344 | "/": 53,
|
|---|
| 345 | " ": 57
|
|---|
| 346 | }
|
|---|
| 347 |
|
|---|
| 348 | codes_shifted = {
|
|---|
| 349 | "!": 2,
|
|---|
| 350 | "@": 3,
|
|---|
| 351 | "#": 4,
|
|---|
| 352 | "$": 5,
|
|---|
| 353 | "%": 6,
|
|---|
| 354 | "^": 7,
|
|---|
| 355 | "&": 8,
|
|---|
| 356 | "*": 9,
|
|---|
| 357 | "(": 10,
|
|---|
| 358 | ")": 11,
|
|---|
| 359 | "_": 12,
|
|---|
| 360 | "+": 13,
|
|---|
| 361 | "~": 41,
|
|---|
| 362 | "{": 26,
|
|---|
| 363 | "}": 27,
|
|---|
| 364 | ":": 39,
|
|---|
| 365 | "\"": 40,
|
|---|
| 366 | "|": 43,
|
|---|
| 367 | "<": 51,
|
|---|
| 368 | ">": 52,
|
|---|
| 369 | "?": 53
|
|---|
| 370 | }
|
|---|
| 371 |
|
|---|
| 372 | sig_path = "hatari/d/signal"
|
|---|
| 373 | lis_path = "/tmp/buchla.sock"
|
|---|
| 374 | con = None
|
|---|
| 375 |
|
|---|
| 376 | def hatari_connect():
|
|---|
| 377 | lis = socket.socket(socket.AF_UNIX, socket.SOCK_STREAM)
|
|---|
| 378 |
|
|---|
| 379 | if os.path.exists(lis_path):
|
|---|
| 380 | os.unlink(lis_path)
|
|---|
| 381 |
|
|---|
| 382 | lis.bind(lis_path)
|
|---|
| 383 | lis.listen(1)
|
|---|
| 384 |
|
|---|
| 385 | global con
|
|---|
| 386 | (con, _) = lis.accept()
|
|---|
| 387 |
|
|---|
| 388 | def hatari_send(command):
|
|---|
| 389 | global con
|
|---|
| 390 | con.sendall((command + "\n").encode("ascii"))
|
|---|
| 391 |
|
|---|
| 392 | def send_alnum(c):
|
|---|
| 393 | hatari_send("hatari-event keypress {}".format(c))
|
|---|
| 394 |
|
|---|
| 395 | def send_code(code):
|
|---|
| 396 | hatari_send("hatari-event keypress {}".format(code))
|
|---|
| 397 |
|
|---|
| 398 | def send_code_shifted(code):
|
|---|
| 399 | hatari_send("hatari-event keydown 42")
|
|---|
| 400 | send_code(code)
|
|---|
| 401 | hatari_send("hatari-event keyup 42")
|
|---|
| 402 |
|
|---|
| 403 | def send_line(line):
|
|---|
| 404 | line += "\n"
|
|---|
| 405 |
|
|---|
| 406 | for c in line:
|
|---|
| 407 | if c in codes:
|
|---|
| 408 | send_code(codes[c])
|
|---|
| 409 | elif c in codes_shifted:
|
|---|
| 410 | send_code_shifted(codes_shifted[c])
|
|---|
| 411 | else:
|
|---|
| 412 | send_alnum(c)
|
|---|
| 413 |
|
|---|
| 414 | time.sleep(0.075)
|
|---|
| 415 |
|
|---|
| 416 | def run_command(command):
|
|---|
| 417 | if os.path.exists(sig_path):
|
|---|
| 418 | os.unlink(sig_path)
|
|---|
| 419 |
|
|---|
| 420 | print("Executing {}".format(command))
|
|---|
| 421 | send_line(command + "; touch d:\\signal")
|
|---|
| 422 |
|
|---|
| 423 | print("Waiting for completion")
|
|---|
| 424 | while not os.path.exists(sig_path):
|
|---|
| 425 | time.sleep(0.25)
|
|---|
| 426 |
|
|---|
| 427 | os.unlink(sig_path)
|
|---|
| 428 |
|
|---|
| 429 | def assemble(dir, base):
|
|---|
| 430 | print("Assembling {}.s in {}".format(base, dir))
|
|---|
| 431 | run_command("cp d:\\{}\\{}.s code.s".format(dir, base))
|
|---|
| 432 | run_command("as code")
|
|---|
| 433 | run_command("cp code.o d:\\out\\{}.o".format(base))
|
|---|
| 434 | run_command("rm code.o")
|
|---|
| 435 | run_command("rm code.s")
|
|---|
| 436 | send_line("")
|
|---|
| 437 |
|
|---|
| 438 | def compile(dir, base):
|
|---|
| 439 | print("Compiling {}.c in {}".format(base, dir))
|
|---|
| 440 | run_command("cp d:\\{}\\{}.c code.c".format(dir, base))
|
|---|
| 441 | run_command("cc code")
|
|---|
| 442 | run_command("as code")
|
|---|
| 443 | run_command("cp code.s d:\\out\\{}.s".format(base))
|
|---|
| 444 | run_command("cp code.o d:\\out\\{}.o".format(base))
|
|---|
| 445 | run_command("rm code.o")
|
|---|
| 446 | run_command("rm code.s")
|
|---|
| 447 | run_command("rm code.c")
|
|---|
| 448 | send_line("")
|
|---|
| 449 |
|
|---|
| 450 | def store_file(file):
|
|---|
| 451 | run_command("cp {} d:\\out\\{}".format(file, file))
|
|---|
| 452 |
|
|---|
| 453 | def fetch_file(file):
|
|---|
| 454 | run_command("cp d:\\out\\{} {}".format(file, file))
|
|---|
| 455 |
|
|---|
| 456 | def remove_file(file):
|
|---|
| 457 | run_command("rm {}".format(file))
|
|---|
| 458 |
|
|---|
| 459 | def store_archive(a_base):
|
|---|
| 460 | store_file("{}.a".format(a_base))
|
|---|
| 461 | store_file("{}.ndx".format(a_base))
|
|---|
| 462 | send_line("")
|
|---|
| 463 |
|
|---|
| 464 | def fetch_archive(a_base):
|
|---|
| 465 | fetch_file("{}.a".format(a_base))
|
|---|
| 466 | fetch_file("{}.ndx".format(a_base))
|
|---|
| 467 | send_line("")
|
|---|
| 468 |
|
|---|
| 469 | def remove_archive(a_base):
|
|---|
| 470 | remove_file("{}.a".format(a_base))
|
|---|
| 471 | remove_file("{}.ndx".format(a_base))
|
|---|
| 472 | send_line("")
|
|---|
| 473 |
|
|---|
| 474 | def archive_one(a_base, base):
|
|---|
| 475 | print("Adding {}.o to {}.a".format(base, a_base))
|
|---|
| 476 | fetch_file("{}.o".format(base))
|
|---|
| 477 | run_command("ar68 r {}.a {}.o".format(a_base, base))
|
|---|
| 478 | remove_file("{}.o".format(base))
|
|---|
| 479 | send_line("")
|
|---|
| 480 |
|
|---|
| 481 | def archive(a_base, mod):
|
|---|
| 482 | print("Creating {}.a".format(a_base))
|
|---|
| 483 |
|
|---|
| 484 | for path in mod:
|
|---|
| 485 | (dir, file) = path.split("/")
|
|---|
| 486 | (base, ext) = file.split(".")
|
|---|
| 487 | archive_one(a_base, base)
|
|---|
| 488 |
|
|---|
| 489 | run_command("doindex -w {}.a".format(a_base))
|
|---|
| 490 | send_line("")
|
|---|
| 491 |
|
|---|
| 492 | store_archive(a_base)
|
|---|
| 493 | remove_archive(a_base)
|
|---|
| 494 |
|
|---|
| 495 | def link(com_file):
|
|---|
| 496 | fetch_archive("prolog")
|
|---|
| 497 | fetch_archive("libcio")
|
|---|
| 498 | fetch_archive("vlib")
|
|---|
| 499 | fetch_archive("iolib")
|
|---|
| 500 | fetch_archive("libsm")
|
|---|
| 501 | fetch_archive("lib700")
|
|---|
| 502 |
|
|---|
| 503 | run_command("aln -w -l -c {}".format(com_file))
|
|---|
| 504 | send_line("")
|
|---|
| 505 |
|
|---|
| 506 | remove_archive("prolog")
|
|---|
| 507 | remove_archive("libcio")
|
|---|
| 508 | remove_archive("vlib")
|
|---|
| 509 | remove_archive("iolib")
|
|---|
| 510 | remove_archive("libsm")
|
|---|
| 511 | remove_archive("lib700")
|
|---|
| 512 |
|
|---|
| 513 | def link_rom():
|
|---|
| 514 | print("Linking ROM")
|
|---|
| 515 |
|
|---|
| 516 | fetch_file("bios.o")
|
|---|
| 517 | fetch_file("romp.o")
|
|---|
| 518 | fetch_file("booter.o")
|
|---|
| 519 | fetch_file("timeint.o")
|
|---|
| 520 | send_line("")
|
|---|
| 521 |
|
|---|
| 522 | link("rom.lnk")
|
|---|
| 523 |
|
|---|
| 524 | remove_file("bios.o")
|
|---|
| 525 | remove_file("romp.o")
|
|---|
| 526 | remove_file("booter.o")
|
|---|
| 527 | remove_file("timeint.o")
|
|---|
| 528 | send_line("")
|
|---|
| 529 |
|
|---|
| 530 | store_file("bios.abs")
|
|---|
| 531 | remove_file("bios.abs")
|
|---|
| 532 | send_line("")
|
|---|
| 533 |
|
|---|
| 534 | def link_ram():
|
|---|
| 535 | print("Linking RAM")
|
|---|
| 536 |
|
|---|
| 537 | for path in mod_ram:
|
|---|
| 538 | (dir, file) = path.split("/")
|
|---|
| 539 | (base, ext) = file.split(".")
|
|---|
| 540 | fetch_file("{}.o".format(base))
|
|---|
| 541 |
|
|---|
| 542 | fetch_file("lowram.o")
|
|---|
| 543 | send_line("")
|
|---|
| 544 |
|
|---|
| 545 | link("ram.lnk")
|
|---|
| 546 |
|
|---|
| 547 | for path in mod_ram:
|
|---|
| 548 | (dir, file) = path.split("/")
|
|---|
| 549 | (base, ext) = file.split(".")
|
|---|
| 550 | remove_file("{}.o".format(base))
|
|---|
| 551 |
|
|---|
| 552 | remove_file("lowram.o")
|
|---|
| 553 | send_line("")
|
|---|
| 554 |
|
|---|
| 555 | store_file("midas.abs")
|
|---|
| 556 | remove_file("midas.abs")
|
|---|
| 557 | send_line("")
|
|---|
| 558 |
|
|---|
| 559 | print("Waiting for Hatari to connect to {}.".format(lis_path))
|
|---|
| 560 | hatari_connect()
|
|---|
| 561 |
|
|---|
| 562 | print("Hatari connected.")
|
|---|
| 563 | input("Please start C:\\BIN\\SH.TTP manually, then press enter.")
|
|---|
| 564 |
|
|---|
| 565 | send_line("PATH=\\bin")
|
|---|
| 566 | send_line("cd \\work")
|
|---|
| 567 | send_line("")
|
|---|
| 568 |
|
|---|
| 569 | start_at = None
|
|---|
| 570 |
|
|---|
| 571 | for mod in [mod_prolog, mod_iolib, mod_libcio, mod_libsm, mod_lib700, mod_vlib,
|
|---|
| 572 | mod_rom, mod_ram]:
|
|---|
| 573 | for path in mod:
|
|---|
| 574 | if start_at != None:
|
|---|
| 575 | if start_at != path:
|
|---|
| 576 | continue
|
|---|
| 577 | else:
|
|---|
| 578 | start_at = None
|
|---|
| 579 |
|
|---|
| 580 | (dir, file) = path.split("/")
|
|---|
| 581 | (base, ext) = file.split(".")
|
|---|
| 582 |
|
|---|
| 583 | if ext == "s":
|
|---|
| 584 | assemble(dir, base)
|
|---|
| 585 | elif ext == "c":
|
|---|
| 586 | compile(dir, base)
|
|---|
| 587 | else:
|
|---|
| 588 | raise Exception("file {} with invalid extension {}".format(file, ext))
|
|---|
| 589 |
|
|---|
| 590 | archive("prolog", mod_prolog)
|
|---|
| 591 | archive("iolib", mod_iolib)
|
|---|
| 592 | archive("libcio", mod_libcio)
|
|---|
| 593 | archive("libsm", mod_libsm)
|
|---|
| 594 | archive("lib700", mod_lib700)
|
|---|
| 595 | archive("vlib", mod_vlib)
|
|---|
| 596 |
|
|---|
| 597 | link_rom()
|
|---|
| 598 | link_ram()
|
|---|
![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
