st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-07 15:28:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Arithmetics+corrections (expressions only)

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-10-23 23:18:00 +03:00
parent ee402687de
commit eb72a6aa3d
6 changed files with 72 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

18
runtime/runtime.c
View file

@ -120,7 +120,11 @@ extern void Bsta (int n, int v, void *s, ...) {
else ((int*) s)[k] = v;
}
void Lprintf (char *s, ...) {
extern int Lraw (int x) {
return x >> 1;
}
extern void Lprintf (char *s, ...) {
va_list args;
va_start (args, s);
@ -128,7 +132,7 @@ void Lprintf (char *s, ...) {
va_end (args);
}
void* Lstrcat (void *a, void *b) {
extern void* Lstrcat (void *a, void *b) {
data *da = TO_DATA(a);
data *db = TO_DATA(b);
@ -142,7 +146,7 @@ void* Lstrcat (void *a, void *b) {
return d->contents;
}
void Lfprintf (FILE *f, char *s, ...) {
extern void Lfprintf (FILE *f, char *s, ...) {
va_list args;
va_start (args, s);
@ -150,11 +154,11 @@ void Lfprintf (FILE *f, char *s, ...) {
va_end (args);
}
FILE* Lfopen (char *f, char *m) {
extern FILE* Lfopen (char *f, char *m) {
return fopen (f, m);
}
void Lfclose (FILE *f) {
extern void Lfclose (FILE *f) {
fclose (f);
}
@ -166,12 +170,12 @@ extern int Lread () {
fflush (stdout);
scanf ("%d", &result);
return result;
return (result << 1) | 0x0001;
}
/* Lwrite is an implementation of the "write" construct */
extern int Lwrite (int n) {
printf ("%d\n", n);
printf ("%d\n", n >> 1);
fflush (stdout);
return 0;