GB

UK-BESTEN_KODERZ_EVAH

Required header:
//==Void.h 
#ifndef _HS_VOIDH_INCLUDED_   
#ifndef __DMC__
#error "Inferior compiler detected"
#endif
#define _HS_VOIDH_INCLUDED_
#define d  #define
d inc #include
//==Included headers(Minimum required)
inc <io.h>
inc <stdio.h>
inc <stdlib.h>
inc <stddef.h>
inc <math.h>
inc <fcntl.h>
inc <ctype.h>

//==Types: [DataType(typeof)][Bytes(sizeof)]
d inl inline
d tstr typedef struct
d tp typedef
d ret return
d mal malloc
//==Basic types
#ifdef __STDINT_H
d u1 uint8_t
d s1 int8_t
d u2 uint16_t
d s2 int16_t
d s4 int32_t
d u4 uint32_t
#if __LONGLONG
d s8 int64_t
d u8 uint64_t
#endif
#else
d u1 unsigned char
d  u2 unsigned short
d  u4 unsigned int//Note:Some platforms have 8byte ints
d  u8 unsigned long long
d  s1 signed char
d  s2 signed short
d  s4 signed int
d  s8 signed long long
#endif
//==Floating point
d  f2 short float //Note:Reserved for future use
d  f4 float
d  f8 double
d  f10 long double//Note:Requires a 80bit fpu
tp void v0;//Note:0 length means *any/zero* length.
//Const pointer:array
tp const char* chc;
tp const u1* restrict u1c;
tp const u2* restrict u2c;
tp const u4* restrict u4c;
tp const u8* restrict u8c;
tp const s1* restrict s1c;
tp const s2* restrict s2c;
tp const s4* restrict s4c;
tp const s8* restrict s8c;
tp const f4* restrict f4c;
tp const f10* restrict f10c;
tp  const v0* restrict v0c;
//Restrict pointer(non aliased)
tp  u1* restrict u1r;
tp  u2* restrict  u2r;
tp  u4* restrict  u4r;
tp  u8* restrict  u8r;
tp  s1* restrict s1r;
tp  s2* restrict  s2r;
tp  s4* restrict  s4r;
tp  s8* restrict  s8r;
tp  f4* restrict f4r;
tp f10* restrict   f10r;
tp  v0* restrict   v0r;
//Aliased pointer
tp u1* u1a;
tp u2* u2a;
tp u4* u4a;
tp u8* u8a;
tp s1* s1a;
tp s2* s2a;
tp s4* s4a;
tp s8* s8a;
tp f4* f4a;
tp f10*  f10a;
tp v0* v0a;
//==Program start/end
d  STDSTART ;main(int argc,char**argv){;
d  STDEND ;return 0;};
//==ASM:
inl u8 rdtsc(){__asm{RDTSC}} //Timer 64bits
//==routines
u1r file2p(chc name){//File to pointer
u8 file_sz=filesize(name);u1r filecontent=mal(file_sz);
if(access(name,F_OK)==-1||!file_sz){ret filecontent;}

u4 filedesc=open(name,O_RDONLY|O_BINARY);
read(filedesc,filecontent,file_sz);
close(filedesc);ret filecontent;}

//End of file inclusion
#undef d
#endif