liblabafile/native/fgetc.c

12 lines
432 B
C
Raw Normal View History

2024-06-18 14:04:23 +00:00
#include <stdlib.h>
#include <stdio.h>
void labashka(unsigned short (*pop)(void), void (*push)(unsigned short), size_t (*len)(void), size_t max_size ) {
FILE *file = NULL;
file = (void*)((size_t)(pop()) << (16*0) | (size_t)file);
file = (void*)((size_t)(pop()) << (16*1) | (size_t)file);
file = (void*)((size_t)(pop()) << (16*2) | (size_t)file);
file = (void*)((size_t)(pop()) << (16*3) | (size_t)file);
push(fgetc(file));
}