// Made by Andrés Goncalves // ** VoltzEx Team ** // No Copyright, but give credits and share with me your suggestions and questions // Functional Statements: /* -Output < 'Text' \ writes text < "Text" \ adds a new line at end print 'Text' \ same as above print "Text" \ same as above print <'file1',"file2"...]> 'Text' \ writes text to many files print 'Text' \ writes text to screen and the other files */ /* -Input >! \ waits for any input (getchar()) prompt! \ same as above */ /* -Comments \ single line comment \\ multiline comment \\ */ #ifndef PROXIMA_H #define PROXIMA_H #ifdef PRX_VERSION #undef PRX_VERSION #endif #define PRX_VERSION 0.2 // === Headers === #include #include // === Macros === #define IMP 58 // Import : (Include) #define DATA 35 // Data # (Variable/Constant/Pointer...) #define INST 36 // Instance $ (Function/Class) #define IN 62 // Input > (Prompt) #define OUT 60 // Output < (Print) #define SQ 39 // Single Quote ' #define DQ 34 // Double Quote " #define COM 92 // Comment (Backslash) #define PO 60 // Parameters Begin < #define PC 62 // Parameters End > #define COMMA 44 // Comma , // === Globals === //None yet // === Protertypes === const char * cleans(const char *&); char cleans(char &, FILE*); const char * subs(const char *&, const char *); char subs(FILE*, const char *); const char * exec(const char *); char exec(FILE*); // === Main === int main(int argc, char ** argv){ if(!exec("< \"Hello Proxima!\" >!")) exec("< \"\n\tSomething went wrong\" >!"); return 0; } // === Definitions === const char * cleans(const char *& s){ // remove spaces and commands from the beginning of a string while(*s<=32&&*s!=0) s++; // while space or command and not end of string return s; // return new string } char cleans(char & c, FILE* file){ // remove spaces and commands from the current possition of a file while(c<=32&&c!=-1) c = fgetc(file); // while space or command and not end of file return c; // return next character } const char * subs(const char *& s, const char * sub){ // find and delete substring at the beginning of a string cleans(s); // remove spaces int i; // counter for(i=0; sub[i]!=0; i++) if(s[i]!=sub[i]) return NULL; // if are differents while it's not the end of substring s+=i-1; // increment string start until substring is deleted return s; // return new string } char subs(FILE* file, const char * sub){ // find and delete substring at the current possition of a file char c; // character cleans(c,file); // remove spaces int pos = ftell(file); // current possition for(int i=0; sub[i]!=0; i++) if(getc(file)!=sub[i]){ // if are differents while it's not the end of substring fseek(file,pos,SEEK_SET); // come back to the first possition return 0; // return false } return c; // return the next character } const char * exec(const char * s){ // run Proxima code cleans(s); // remove spaces if(*s == 0) return s; // end of string switch(*s){ // switch first character case IMP:{ // Imports (nothing) break; } case DATA:{ // Data (nothing) break; } case INST:{ // Instance (nothing) break; } case IN:{ // Input (pauses) cleans(++s); // increment and remove spaces if(*s == 33) getchar(); // if '!' else{ return NULL; // not ready } break; } case OUT:{ cleans(++s); // increment and remove spaces if(*s==SQ){ // if single quote s++; while(*s!=SQ){ // until other single quote if(*s == 0) return NULL; // if end of string putchar(*s); // put the first character to stdout s++; // evaluate next char } }else if(*s==DQ){ // if double quote s++; while(*s!=DQ){ // until other single quote if(*s == 0) return NULL; // if end of string putchar(*s); // put the first character to stdout s++; // evaluate next char } putchar(10); // new line }else{ return NULL; // not ready } break; } case COM:{ // Comment s++; if(*s == COM){ // if multiline s++; while(*s != COM){ // until end of comment s++; if(*s == COM){ // if comment ++s; if(*s == COM) break; // if real end of comment } if(*s == 0) return s; // if end of string } }else while(*s != 10) s++; // until a new line break; } default:{ if(subs(s,"import")){ // if explicit import (nothing) }else if(subs(s,"data")){ // if explicit data declaration (nothing) }else if(subs(s,"instance")){ // if explicit instance declaration (nothing) }else if(subs(s,"prompt")){ // if explicit prompt cleans(++s); // remove spaces if(*s == 33) getchar(); // if '!' else{ return NULL; // not ready } break; }else if(subs(s,"print")){ // explicit print cleans(++s); // remove spaces FILE ** to = (FILE**)malloc(1*sizeof(FILE*)); // array of files to write text int i=0; // counter of files if(*s==PO){ // if parameter file list while(*s!=PC){ // until close parameter section char fname[FILENAME_MAX+1]; // name of current file to = (FILE**)realloc(to,(i+1)*sizeof(FILE*)); // increment sizeof( cleans(++s); // increment and remove spaces if(*s==SQ){ // if single quotes (explicit filename) s++; for(int i=0; *s!=SQ && i

Proxima - Programming Language