jade/demo.cpp

77 lines
1.9 KiB
C++

#include "jade.h"
MAIN
DIM AS CSTRING mystring = "This is a string.";
PRINT ( "LEFT(mystring,4)" );
PRINT (LEFT$(mystring,4));
PRINT ();
PRINT ( "MID$(mystring,5,4)" );
PRINT (MID$(mystring,5,4));
PRINT ();
PRINT ( "RIGHT$(mystring,7)");
PRINT (RIGHT$(mystring,7));
PRINT ();
PRINT ( "INSTR(mystring,\"is\")");
PRINT (STR$(INSTR(mystring,"is")));
PRINT ();
PRINT ( "LCASE$(mystring)" );
PRINT (LCASE$(mystring));
PRINT ();
PRINT ( "UCASE$(mystring)" );
PRINT (UCASE$(mystring));
PRINT ();
PRINT ( "MCASE$(mystring)" );
PRINT (MCASE$(mystring));
PRINT ();
PRINT ( "LTRIM$, RTRIM$, TRIM$" );
PRINT (LTRIM$(" This should not have leading spaces "));
PRINT (RTRIM$(" This should not have any trailing spaces "));
PRINT (TRIM$(" This should not have any leading or trailing spaces "));
PRINT ();
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,4)" );
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",4));
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,8)" );
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",8));
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,12)" );
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",12));
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,16)" );
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",16));
PRINT ();
PRINT ( "REVERSE$(mystring)" );
PRINT (REVERSE$(mystring));
PRINT ();
PRINT ( "REPLACE$(mystring,\"string\", \"Number\"" );
PRINT ( REPLACE$(mystring,"string","Number") );
PRINT ();
PRINT ( "VAL(\"123\") + 10" );
PRINT ( STR$(VAL("123") + 10) );
PRINT ();
PRINT ( "LOADFILE$()" );
DIM AS CSTRING fileContents, fname = "demo.cpp";
fileContents = LOADFILE$(fname);
// PRINT ( "Printing contents of \"" + fname + "\"" );
// PRINT (fileContents);
PRINT ();
PRINT ( "SAVEFILE()" );
SAVEFILE(fileContents,"output.txt");
PRINT ( "Contents saved to 'output.txt'");
ENDMAIN