You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
1.6 KiB
90 lines
1.6 KiB
#include <stdbool.h>
|
|
#include <ctype.h>
|
|
#include <math.h>
|
|
#include <stdio.h>
|
|
#include <iostream>
|
|
#include <fstream>
|
|
#include <string.h>
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
#include <setjmp.h>
|
|
#include <time.h>
|
|
#include <stdarg.h>
|
|
#include <dirent.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#ifndef _WIN32
|
|
#include <sys/wait.h>
|
|
#include <dlfcn.h>
|
|
#endif
|
|
#include <unistd.h>
|
|
#include <iostream>
|
|
#include <fstream>
|
|
#include <sstream>
|
|
#include <vector>
|
|
#include <map>
|
|
#include <algorithm>
|
|
|
|
/* DEFINES */
|
|
#define MAIN int main (int argc, char** argv) {
|
|
#define ENDMAIN }
|
|
#define DECLARE
|
|
#define FUNCTION
|
|
#define ENDFUNCTION }
|
|
#define DIM
|
|
#define AS
|
|
#define SUB void
|
|
#define ENDSUB }
|
|
#define BEGIN {
|
|
#define END }
|
|
#define AND &&
|
|
#define OR ||
|
|
#define CLASS class
|
|
#define TYPE typedef struct
|
|
#define ADDRESS &
|
|
#define INCR ++
|
|
#define DECR --
|
|
#define NEXT ++
|
|
#define PRIOR --
|
|
#define BYREF *
|
|
#define NOT not
|
|
#define IF if
|
|
#define THEN {
|
|
#define ELSE } else {
|
|
#define ENDIF }
|
|
#define FOR for
|
|
#define TO ;
|
|
#define STEP ;
|
|
#define SELECT switch
|
|
#define CASE case
|
|
#define _TO_ ...
|
|
#define ENDCASE break;
|
|
#define CASE_ELSE default
|
|
#define ENDSELECT }
|
|
#define WHILE while
|
|
#define WEND }
|
|
#define RETURN return
|
|
#define CONSTANT const
|
|
#define STR$( x ) dynamic_cast< std::ostringstream & >( ( std::ostringstream() << std::dec << x ) ).str()
|
|
#define BOOL bool
|
|
#define INT int
|
|
#define UINT unsigned int
|
|
#define VECTOR std::vector
|
|
#define MAP std::map
|
|
|
|
#ifndef TRUE
|
|
#define TRUE 1
|
|
#endif
|
|
|
|
#ifndef FALSE
|
|
#define FALSE 0
|
|
#endif
|
|
|
|
/* TYPEDEFS */
|
|
typedef std::string CSTRING;
|
|
|
|
|
|
char LF [2]= {10,0}; // Line Feed
|
|
|
|
#include "cppbasrt.inc"
|
|
|
|
|