renamed inc files, created 'jade.h' file to correspond with project name
This commit is contained in:
Armando Rivera
parent
5885f3c3f1
commit
f64c918bd6
96
header.inc
Normal file
96
header.inc
Normal file
@ -0,0 +1,96 @@
|
||||
#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 ADDR &
|
||||
#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
|
||||
#define CHAR char
|
||||
#define ENUM enum {
|
||||
#define ENDENUM };
|
||||
#define EXIT exit
|
||||
#define BREAK break;
|
||||
#define SHORT short
|
||||
#define LPCHAR char*
|
||||
|
||||
#ifndef TRUE
|
||||
#define TRUE 1
|
||||
#endif
|
||||
|
||||
#ifndef FALSE
|
||||
#define FALSE 0
|
||||
#endif
|
||||
|
||||
/* TYPEDEFS */
|
||||
typedef std::string CSTRING;
|
||||
|
||||
|
||||
char LF [2]= {10,0}; // Line Feed
|
||||
|
||||
|
||||
204
runtime.inc
Normal file
204
runtime.inc
Normal file
@ -0,0 +1,204 @@
|
||||
DECLARE FUNCTION CSTRING LTRIM$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING RTRIM$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING TRIM$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING LEFT$ (CSTRING, INT);
|
||||
DECLARE FUNCTION CSTRING MID$ (CSTRING, INT, INT);
|
||||
DECLARE FUNCTION CSTRING RIGHT$ (CSTRING, INT);
|
||||
DECLARE FUNCTION INT INSTR (CSTRING,CSTRING,size_t=0);
|
||||
DECLARE FUNCTION CSTRING LCASE$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING UCASE$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING MCASE$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING LOADFILE$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING SPLITPATH$ (CSTRING, INT);
|
||||
DECLARE FUNCTION CSTRING ENC$ (CSTRING,INT=34,INT=34);
|
||||
DECLARE FUNCTION CSTRING REVERSE$ (CSTRING);
|
||||
DECLARE FUNCTION CSTRING REPLACE$ (CSTRING subject, CONSTANT CSTRING& search, CONSTANT CSTRING& replace);
|
||||
DECLARE FUNCTION INT VAL (CSTRING);
|
||||
DECLARE SUB PRINT (CSTRING);
|
||||
DECLARE SUB SAVEFILE(CSTRING src, CSTRING fname);
|
||||
|
||||
|
||||
FUNCTION CSTRING REVERSE$ (CSTRING src) BEGIN
|
||||
RETURN CSTRING( src.rbegin(),src.rend() );
|
||||
ENDFUNCTION
|
||||
|
||||
SUB PRINT (CSTRING A="") BEGIN
|
||||
IF (A.empty()) THEN
|
||||
std::cout << std::endl;
|
||||
ELSE
|
||||
std::cout << A << std::endl;
|
||||
ENDIF
|
||||
ENDSUB
|
||||
|
||||
FUNCTION CSTRING LTRIM$ (CSTRING s) BEGIN
|
||||
s.erase(s.begin(),std::find_if(s.begin(),s.end(),std::not1(std::ptr_fun<INT,INT>(std::isspace))));
|
||||
RETURN s;
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING RTRIM$ (CSTRING s) BEGIN
|
||||
s.erase(std::find_if(s.rbegin(),s.rend(),std::not1(std::ptr_fun<INT,INT>(std::isspace))).base(),s.end());
|
||||
RETURN s;
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING TRIM$ (CSTRING s) BEGIN
|
||||
RETURN LTRIM$ (RTRIM$ (s));
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING LEFT$ (CSTRING s, INT length) BEGIN
|
||||
RETURN s.substr(0,length);
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING MID$ (CSTRING s, INT start, INT length) BEGIN
|
||||
RETURN s.substr(start,length);
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING RIGHT$ (CSTRING s, INT length) BEGIN
|
||||
RETURN s.substr(s.size()-length);
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION INT INSTR (CSTRING s,CSTRING match, size_t offset) BEGIN
|
||||
IF (s.empty() OR match.empty() OR offset>s.length()) THEN
|
||||
RETURN 0;
|
||||
ENDIF
|
||||
RETURN s.find(match,offset);
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING LCASE$ (CSTRING str) BEGIN
|
||||
DIM AS CSTRING name(str);
|
||||
std::transform(name.begin(),name.end(),name.begin(),::tolower);
|
||||
RETURN name;
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING UCASE$ (CSTRING str) BEGIN
|
||||
DIM AS CSTRING name(str);
|
||||
std::transform(name.begin(),name.end(),name.begin(),::toupper);
|
||||
RETURN name;
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING MCASE$ (CSTRING S) BEGIN
|
||||
DIM AS CSTRING tmpStr(S);
|
||||
DIM AS bool capFlag;
|
||||
DIM AS register size_t i;
|
||||
|
||||
|
||||
std::transform(tmpStr.begin(),tmpStr.end(),tmpStr.begin(),::tolower);
|
||||
|
||||
FOR (i=0 TO i<=tmpStr.length() STEP i++) BEGIN
|
||||
IF (std::ispunct(tmpStr[i]) OR std::isspace(tmpStr[i])) THEN
|
||||
capFlag=FALSE;
|
||||
ENDIF
|
||||
|
||||
IF (capFlag==FALSE AND std::isalpha(tmpStr[i])) THEN
|
||||
tmpStr[i]=std::toupper(tmpStr[i]);
|
||||
capFlag=TRUE;
|
||||
ENDIF
|
||||
END
|
||||
RETURN tmpStr;
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING LOADFILE$ (CSTRING N) BEGIN
|
||||
DIM AS CSTRING line, tmpStr;
|
||||
DIM AS std::ifstream myFile(N.c_str());
|
||||
|
||||
IF( NOT myFile.good()) BEGIN
|
||||
PRINT("Error opening file");
|
||||
RETURN "ERROR";
|
||||
ENDIF
|
||||
|
||||
WHILE ( NOT myFile.eof()) BEGIN
|
||||
getline(myFile,line);
|
||||
line+=LF;
|
||||
tmpStr+=line;
|
||||
WEND
|
||||
|
||||
myFile.close();
|
||||
|
||||
RETURN tmpStr;
|
||||
|
||||
ENDFUNCTION
|
||||
|
||||
SUB SAVEFILE (CSTRING src, CSTRING fname) BEGIN
|
||||
DIM AS std::ofstream outfile;
|
||||
|
||||
outfile.open(fname.c_str());
|
||||
outfile << src;
|
||||
outfile.close();
|
||||
|
||||
ENDSUB
|
||||
|
||||
FUNCTION CSTRING SPLITPATH$ (CSTRING FPATH, INT mask) BEGIN
|
||||
DIM AS CSTRING fullPath(FPATH);
|
||||
DIM AS CSTRING path, filename, extension;
|
||||
DIM AS CSTRING::size_type lastSlashPos, extPos;
|
||||
|
||||
lastSlashPos=fullPath.find_last_of("/");
|
||||
extPos=fullPath.find_last_of(".");
|
||||
IF (lastSlashPos==CSTRING::npos) THEN
|
||||
path.empty();
|
||||
filename=fullPath;
|
||||
ELSE
|
||||
path=fullPath.substr(0,lastSlashPos);
|
||||
filename=fullPath.substr(lastSlashPos+1,(extPos-lastSlashPos)-1);
|
||||
ENDIF
|
||||
|
||||
IF (extPos==CSTRING::npos) THEN
|
||||
extension.empty();
|
||||
ELSE
|
||||
extension=fullPath.substr(extPos+1,fullPath.size()-extPos-1);
|
||||
ENDIF
|
||||
|
||||
SELECT (mask) BEGIN
|
||||
CASE 4:
|
||||
RETURN path;
|
||||
ENDCASE
|
||||
|
||||
CASE 8:
|
||||
RETURN filename;
|
||||
ENDCASE
|
||||
|
||||
CASE 12:
|
||||
RETURN path.append("/").append(filename);
|
||||
ENDCASE
|
||||
|
||||
CASE 16:
|
||||
RETURN extension;
|
||||
ENDCASE
|
||||
|
||||
CASE_ELSE:
|
||||
RETURN "";
|
||||
|
||||
ENDSELECT
|
||||
|
||||
ENDFUNCTION
|
||||
|
||||
|
||||
FUNCTION CSTRING ENC$ (CSTRING A, INT L, INT R) BEGIN
|
||||
DIM AS std::stringstream buf;
|
||||
buf<<(char)L<<A<<(char)R;
|
||||
RETURN buf.str();
|
||||
ENDFUNCTION
|
||||
|
||||
FUNCTION CSTRING REPLACE$ (CSTRING subject, CONSTANT CSTRING& search, CONSTANT CSTRING& replace) BEGIN
|
||||
DIM AS size_t pos = 0;
|
||||
|
||||
|
||||
WHILE( ( pos = subject.find(search, pos) ) != CSTRING::npos) BEGIN
|
||||
subject.replace(pos, search.length(), replace);
|
||||
pos += replace.length();
|
||||
END
|
||||
RETURN subject;
|
||||
ENDFUNCTION
|
||||
|
||||
FUNCTION INT VAL (CSTRING str) BEGIN
|
||||
RETURN atoi(str.c_str());
|
||||
ENDFUNCTION
|
||||
@ -1,4 +1,4 @@
|
||||
#include "../cppbas.inc"
|
||||
#include "../jade.h"
|
||||
#include "sdl.inc"
|
||||
|
||||
DIM AS CHAR string[128]; // String used by txtIt & SDL_ttf
|
||||
|
||||
Loading…
Reference in New Issue
Block a user