mirror of https://git.sr.ht/~rabbits/uxnlin
Init
This commit is contained in:
commit
7af5655973
|
@ -0,0 +1,21 @@
|
|||
AlignAfterOpenBracket: DontAlign
|
||||
AlignEscapedNewlines: DontAlign
|
||||
AlignOperands: DontAlign
|
||||
AllowShortBlocksOnASingleLine: Always
|
||||
AllowShortCaseLabelsOnASingleLine: true
|
||||
AllowShortEnumsOnASingleLine: true
|
||||
AllowShortIfStatementsOnASingleLine: true
|
||||
AllowShortLoopsOnASingleLine: true
|
||||
AlwaysBreakAfterDefinitionReturnType: TopLevel
|
||||
BinPackArguments: false
|
||||
BinPackParameters: false
|
||||
BreakBeforeBraces: WebKit
|
||||
IndentCaseLabels: false
|
||||
TabWidth: 4
|
||||
IndentWidth: 4
|
||||
ContinuationIndentWidth: 4
|
||||
UseTab: ForContinuationAndIndentation
|
||||
ColumnLimit: 0
|
||||
ReflowComments: false
|
||||
SortIncludes: false
|
||||
SpaceBeforeParens: false
|
|
@ -0,0 +1,8 @@
|
|||
.DS*
|
||||
*jpg~
|
||||
*png~
|
||||
*gif~
|
||||
*bmp~
|
||||
|
||||
*snarf
|
||||
*theme
|
|
@ -0,0 +1,21 @@
|
|||
MIT License
|
||||
|
||||
Copyright (c) Devine Lu Linvega
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
of this software and associated documentation files (the "Software"), to deal
|
||||
in the Software without restriction, including without limitation the rights
|
||||
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
copies of the Software, and to permit persons to whom the Software is
|
||||
furnished to do so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in all
|
||||
copies or substantial portions of the Software.
|
||||
|
||||
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 OR COPYRIGHT HOLDERS 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.
|
|
@ -0,0 +1,24 @@
|
|||
# Uxnlin
|
||||
|
||||
A linter for the [Uxntal](https://wiki.xxiivv.com/site/uxntal.html) programming language, written in ANSI C.
|
||||
|
||||
## Getting Started
|
||||
|
||||
Begin by building the linter by running the build script. The linter(`uxnlin`) is created in the `/bin` folder.
|
||||
|
||||
```
|
||||
./build.sh
|
||||
--debug # Add debug flags to compiler
|
||||
```
|
||||
|
||||
### Running
|
||||
|
||||
The following command will read a `tal` file and raise warnings if optimizations can be found.
|
||||
|
||||
```
|
||||
bin/uxnlin path/to/source.tal
|
||||
```
|
||||
|
||||
## Need a hand?
|
||||
|
||||
Find us in `#uxn`, on irc.esper.net
|
Binary file not shown.
|
@ -0,0 +1,34 @@
|
|||
#!/bin/sh -e
|
||||
|
||||
echo "Cleaning.."
|
||||
rm -f ./bin/uxnlin
|
||||
|
||||
# When clang-format is present
|
||||
|
||||
if command -v clang-format > /dev/null 2>&1
|
||||
then
|
||||
echo "Formatting.."
|
||||
clang-format -i src/main.c
|
||||
fi
|
||||
|
||||
mkdir -p bin
|
||||
|
||||
echo "Building.."
|
||||
if [ "${1}" = '--debug' ];
|
||||
then
|
||||
echo "[debug]"
|
||||
cc src/main.c -std=c89 -DDEBUG -Wall -Wpedantic -Wno-unknown-pragmas -Wshadow -Wextra -Werror=implicit-int -Werror=incompatible-pointer-types -Werror=int-conversion -Wvla -g -Og -fsanitize=address -fsanitize=undefined -o bin/uxnlin
|
||||
else
|
||||
cc src/main.c -std=c89 -Os -DNDEBUG -g0 -s -Wall -Wno-unknown-pragmas -o bin/uxnlin
|
||||
fi
|
||||
|
||||
if [ -d "$HOME/bin" ]
|
||||
then
|
||||
echo "Installing in $HOME/bin"
|
||||
cp bin/uxnlin $HOME/bin/
|
||||
fi
|
||||
|
||||
echo "Linting.."
|
||||
./bin/uxnlin etc/example.tal
|
||||
|
||||
echo "Done."
|
|
@ -0,0 +1,13 @@
|
|||
( comment )
|
||||
|
||||
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
||||
|
||||
|0000
|
||||
|
||||
( program )
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
#0001 #0003 ADD2
|
||||
|
||||
BRK
|
|
@ -0,0 +1,70 @@
|
|||
#include <stdio.h>
|
||||
|
||||
/*
|
||||
Copyright (c) 2021 Devine Lu Linvega
|
||||
|
||||
Permission to use, copy, modify, and distribute this software for any
|
||||
purpose with or without fee is hereby granted, provided that the above
|
||||
copyright notice and this permission notice appear in all copies.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
WITH REGARD TO THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
static char history[4][64];
|
||||
|
||||
/* clang-format off */
|
||||
|
||||
static char ops[][4] = {
|
||||
"LIT", "INC", "POP", "DUP", "NIP", "SWP", "OVR", "ROT",
|
||||
"EQU", "NEQ", "GTH", "LTH", "JMP", "JCN", "JSR", "STH",
|
||||
"LDZ", "STZ", "LDR", "STR", "LDA", "STA", "DEI", "DEO",
|
||||
"ADD", "SUB", "MUL", "DIV", "AND", "ORA", "EOR", "SFT"
|
||||
};
|
||||
|
||||
static int scmp(char *a, char *b, int len) { int i = 0; while(a[i] == b[i] && i < len) if(!a[i++]) return 1; return 0; } /* string compare */
|
||||
static int sihx(char *s) { int i = 0; char c; while((c = s[i++])) if(!(c >= '0' && c <= '9') && !(c >= 'a' && c <= 'f')) return 0; return i > 1; } /* string is hexadecimal */
|
||||
static int shex(char *s) { int n = 0, i = 0; char c; while((c = s[i++])) if(c >= '0' && c <= '9') n = n * 16 + (c - '0'); else if(c >= 'a' && c <= 'f') n = n * 16 + 10 + (c - 'a'); return n; } /* string to num */
|
||||
static int slen(char *s) { int i = 0; while(s[i] && s[++i]) ; return i; } /* string length */
|
||||
static char *scpy(char *src, char *dst, int len) { int i = 0; while((dst[i] = src[i]) && i < len - 2) i++; dst[i + 1] = '\0'; return dst; } /* string copy */
|
||||
static char *scat(char *dst, const char *src) { char *ptr = dst + slen(dst); while(*src) *ptr++ = *src++; *ptr = '\0'; return dst; } /* string cat */
|
||||
|
||||
#pragma mark - Helpers
|
||||
|
||||
static int
|
||||
error(char *name, char *msg)
|
||||
{
|
||||
fprintf(stderr, "%s: %s\n", name, msg);
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void
|
||||
record(char *w){
|
||||
printf("%s\n", w);
|
||||
}
|
||||
|
||||
/* clang-format on */
|
||||
|
||||
static int
|
||||
pass1(FILE *f)
|
||||
{
|
||||
char w[64];
|
||||
while(fscanf(f, "%s", w) == 1) {
|
||||
record(w);
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char *argv[])
|
||||
{
|
||||
FILE *f;
|
||||
if(argc < 2)
|
||||
return !error("usage", "input.tal");
|
||||
if(!(f = fopen(argv[1], "r")))
|
||||
return !error("Load", "Failed to open source.");
|
||||
if(!pass1(f))
|
||||
return !error("Linter", "Failed to lint source.");
|
||||
fclose(f);
|
||||
return 0;
|
||||
}
|
Loading…
Reference in New Issue