add code
This commit is contained in:
commit
0dd6e6a828
|
|
@ -0,0 +1,31 @@
|
|||
# i am using the testing name for this, copcom
|
||||
|
||||
copper compiler i guess. i use this because i am not a respectable amiga programmer. in fact at time of writing i am NOT an amiga programmer AT ALL!
|
||||
|
||||
the syntax is as follows:
|
||||
|
||||
```
|
||||
m a8 a16 MOVE / you can put comments here!
|
||||
w a8 a7 a7 a7 WAIT / VP HP VE (BFD in bit 6) HE
|
||||
s a8 a7 a7 a7 SKIP / VP HP VE (BFD in bit 6) HE
|
||||
```
|
||||
|
||||
`aX` is an operand with X bits. it can be any integer, and if prefixed with `x` it will be treated as hex.
|
||||
|
||||
leaving out arguments is undefined behavior, by which i mean i put in exactly zero safeguards for it because i am too lazy to make a proper wordizer!
|
||||
|
||||
example:
|
||||
```
|
||||
m x10 xaa55
|
||||
w x30 x30 xff xff
|
||||
s x30 x30 xff xff ASDKASL
|
||||
s x20 x20 x10 x10 salkalk
|
||||
```
|
||||
|
||||
the command line is as follows:
|
||||
|
||||
```
|
||||
copcom in0 out0 in1 out1 in2 out2 # for as many input files as you have
|
||||
```
|
||||
|
||||
public domain because this code sucks!
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
This is free and unencumbered software released into the public domain.
|
||||
|
||||
Anyone is free to copy, modify, publish, use, compile, sell, or
|
||||
distribute this software, either in source code form or as a compiled
|
||||
binary, for any purpose, commercial or non-commercial, and by any
|
||||
means.
|
||||
|
||||
In jurisdictions that recognize copyright laws, the author or authors
|
||||
of this software dedicate any and all copyright interest in the
|
||||
software to the public domain. We make this dedication for the benefit
|
||||
of the public at large and to the detriment of our heirs and
|
||||
successors. We intend this dedication to be an overt act of
|
||||
relinquishment in perpetuity of all present and future rights to this
|
||||
software under copyright law.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
||||
IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
|
||||
OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
||||
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
||||
OTHER DEALINGS IN THE SOFTWARE.
|
||||
|
||||
For more information, please refer to <http://unlicense.org/>
|
||||
|
|
@ -0,0 +1,154 @@
|
|||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <unistd.h>
|
||||
#include <sys/stat.h>
|
||||
#include <string.h>
|
||||
#include <errno.h>
|
||||
#include <stdlib.h>
|
||||
#include <fcntl.h>
|
||||
|
||||
const char* cs[3] = {"MOVE", "WAIT", "SKIP"};
|
||||
|
||||
unsigned int nlen(char* s, char c) {
|
||||
unsigned int r = 0;
|
||||
while(s[r] != c) r++;
|
||||
return r;
|
||||
}
|
||||
|
||||
int hexint(char* s) {
|
||||
long r = 0;
|
||||
int n;
|
||||
for(int i = 0; i < strlen(s); i++) {
|
||||
if(s[i] > 47 && s[i] < 58) n = s[i] - 48;
|
||||
else if(s[i] > 64 && s[i] < 71) n = s[i] - 55;
|
||||
else if(s[i] > 96 && s[i] < 103) n = s[i] - 87;
|
||||
else return -1;
|
||||
r <<= 4;
|
||||
r |= n;
|
||||
}
|
||||
return r;
|
||||
}
|
||||
|
||||
int intget(char* s, char c) {
|
||||
int l = nlen(s, c);
|
||||
char* ns = malloc(l + 1);
|
||||
memcpy(ns, s, l);
|
||||
int r;
|
||||
ns[l] = 0;
|
||||
if(*s == 'x') r = hexint(ns + 1);
|
||||
else r = atoi(ns);
|
||||
free(ns);
|
||||
return r;
|
||||
}
|
||||
|
||||
#define wslb(s) (intget(s, ' ') << 8) | ((intget(s + 1 + nlen(s, ' '), ' ') & 0x7F) << 1)
|
||||
|
||||
unsigned int toarr(char* d, unsigned int l, char*** line) {
|
||||
unsigned int r = 0, c = 0;
|
||||
*line = malloc(sizeof(char*));
|
||||
for(; c < l; r++) {
|
||||
unsigned int sl = nlen(d + c, '\n');
|
||||
if(sl == 0) {
|
||||
r--;
|
||||
c++;
|
||||
continue;
|
||||
}
|
||||
*line = realloc(*line, sizeof(char*) * r+1);
|
||||
(*line)[r] = malloc(sl + 1);
|
||||
memcpy((*line)[r], d + c, sl);
|
||||
(*line)[r][sl] = 0;
|
||||
c += sl + 1;
|
||||
}
|
||||
|
||||
return r++;
|
||||
}
|
||||
|
||||
int main(int argc, char** argv) {
|
||||
if(argc < 2 || !(argc & 1)) exit(!!printf("arg format: [src] [out] [src] [out]\n"));
|
||||
for(int ac = 0; ac < argc / 2; ac++) {
|
||||
char* srcfile = argv[1 + (ac * 2)];
|
||||
char* destfile = argv[2 + (ac * 2)];
|
||||
|
||||
printf("; -- %s > %s --\n", srcfile, destfile);
|
||||
|
||||
struct stat ssi, sdi;
|
||||
|
||||
int si = open(srcfile, O_RDONLY);
|
||||
if(si == -1) {
|
||||
printf("error opening %s: %s\n", srcfile, strerror(errno));
|
||||
continue;
|
||||
}
|
||||
|
||||
int di = open(destfile, O_CREAT | O_RDWR, 0666);
|
||||
if(di == -1) {
|
||||
printf("error opening %s: %s\n", destfile, strerror(errno));
|
||||
if(si != -1) close(si);
|
||||
continue;
|
||||
}
|
||||
|
||||
fstat(si, &ssi);
|
||||
fstat(di, &sdi);
|
||||
|
||||
char* sm = malloc(ssi.st_size);
|
||||
|
||||
read(si, sm, ssi.st_size);
|
||||
|
||||
close(si);
|
||||
|
||||
char** line;
|
||||
unsigned int colnum = toarr(sm, ssi.st_size, &line);
|
||||
uint16_t* o = malloc(4 * colnum);
|
||||
for(unsigned int i = 0; i < colnum; i++) {
|
||||
if(strlen(line[i]) < 3) goto err;
|
||||
int command = 5;
|
||||
for(int c = 0; c < 3; c++) if(*line[i] == "mws"[c]) command = c;
|
||||
if(command == 5) goto err;
|
||||
if(line[i][1] != ' ') goto err;
|
||||
uint16_t l = 0, h = 0;
|
||||
switch(command) {
|
||||
case 0: // m
|
||||
h = (intget(line[i] + 2, ' ') & 0xFF) << 1;
|
||||
l = intget(line[i] + 3 + nlen(line[i] + 2, ' '), 0);
|
||||
break;
|
||||
case 1: // w
|
||||
h = (((intget(line[i] + 2, ' ') & 0xFF) << 8)
|
||||
| (intget(line[i] + 3 + nlen(line[i] + 2, ' '), ' ')
|
||||
& 0x7F) << 1) | 1;
|
||||
int c = nlen(line[i] + 2, ' ') + 3;
|
||||
l = wslb(line[i] + c + nlen(line[i] + c, ' ') + 1);
|
||||
break;
|
||||
case 2: // s
|
||||
h = (((intget(line[i] + 2, ' ') & 0xFF) << 8)
|
||||
| (intget(line[i] + 3 + nlen(line[i] + 2, ' '), ' ')
|
||||
& 0x7F) << 1) | 1;
|
||||
c = nlen(line[i] + 2, ' ') + 3;
|
||||
l = wslb(line[i] + c + nlen(line[i] + c, ' ') + 1) | 1;
|
||||
break;
|
||||
}
|
||||
|
||||
o[(i<<1)|1] = l;
|
||||
o[(i<<1)] = h;
|
||||
|
||||
printf("dc.w $%04X, $%04X; decode %s (%s)\n", h, l, cs[command], line[i]);
|
||||
}
|
||||
|
||||
goto end;
|
||||
|
||||
err:
|
||||
for(unsigned int i = 0; i < colnum; i++) free(line[i]);
|
||||
free(line);
|
||||
close(di);
|
||||
free(sm);
|
||||
exit(!!printf("parse err\n"));
|
||||
|
||||
end:
|
||||
for(unsigned int i = 0; i < colnum; i++) free(line[i]);
|
||||
free(sm);
|
||||
free(line);
|
||||
ftruncate(di, 4 * colnum);
|
||||
write(di, o, 4 * colnum);
|
||||
close(di);
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue