#include "G__ci.h" /* G__atpause is defined in G__ci.h */
+
+#if (!defined(G__CINTVERSION)) || (G__CINTVERSION < 501438)
+#error You need at least cint 5.14.38 to compile GiNaC-cint. Download it via http from root.cern.ch/root/Cint.html or via ftp from ftpthep.physik.uni-mainz.de/pub/cint
+#endif // (!defined(G__CINTVERSION)) || (G__CINTVERSION < 501438)
+
#include <iostream>
#include <fstream>
#include <string>
void cleanup(void);
void sigterm_handler(int n);
void initialize(void);
+void initialize_cint(void);
+void restart(void);
+bool is_command(string const & command, string & preprocessed,
+ string const & comparevalue, bool substr=false);
bool readlines(istream * is, string & allcommands);
bool readfile(string const & filename, string & allcommands);
void savefile(string const & filename, string const & allcommands);
typedef list<char *> cplist;
cplist filenames;
+bool redirect_output=false;
G__value exec_tempfile(string const & command)
{
exec_tempfile(string()+"LLLAST=LLAST;\n"
+"LLAST=LAST;\n"
+"LAST="+varname+";\n"
- +"cout << \""+varname+" = \" << "+varname+" << endl << endl;");
+ +"if (ginac_cint_internal_redirect_output&&"
+ +" ginac_cint_internal_fout.good()) {"
+ +" ginac_cint_internal_fout << \""+varname+" = \" << "+varname+" << endl << endl;"
+ +"} else {"
+ +" cout << \""+varname+" = \" << "+varname+" << endl << endl;"
+ +"}");
} else if (TYPES_EQUAL(retval,ref_symbol)||
TYPES_EQUAL(retval,ref_constant)||
TYPES_EQUAL(retval,ref_function)||
TYPES_EQUAL(retval,ref_power)||
TYPES_EQUAL(retval,ref_numeric)) {
if (!basic_type_warning_already_displayed) {
- cout << endl
+ cout << endl
<<"WARNING: The return value of the last expression you entered was a symbol," << endl
<< "constant, function, power or numeric, which cannot be safely displayed." << endl
<< "To force the output, cast it explicitly to type 'ex' or use 'cout'," << endl
void helpmessage(void)
{
cout << "GiNaC-cint recognizes some special commands which start with a dot:" << endl << endl
- << " .q, .quit, .exit, .bye quit GiNaC-cint" << endl
- << " .help the text you are currently reading" << endl
- << " .function define the body of a function (necessary due to a" << endl
- << " cint limitation)" << endl
<< " .cint switch to cint interactive mode (see cint" << endl
<< " documentation for further details)" << endl
+ << " .function define the body of a function (necessary due to a" << endl
+ << " cint limitation)" << endl
+ << " .help the text you are currently reading" << endl
+ << " .q, .quit, .exit, .bye quit GiNaC-cint" << endl
<< " .read filename read a file from disk and execute it in GiNaC-cint" << endl
<< " (recursive call is possible)" << endl
- << " .save filename save the commands you have entered so far in a file" << endl << endl
+ << " .redirect [filename] redirect 'OutXY = ...' output to a file" << endl
+ << " (.redirect alone redirects output back to console)" << endl
+ << " .restart restart GiNaC-cint (does not re-read command line" << endl
+ << " files)" << endl
+ << " .save filename save the commands you have entered so far in a file" << endl
+ << " .silent suppress 'OutXY = ...' output (variables are still" << endl
+ << " accessible)" << endl
+ << " .> [filename] same as .redirect [filename]" << endl << endl
+ << "Instead of '.cmd' you can also write '//GiNaC-cint.cmd' to be compatible with" << endl
+ << "programs that will be compiled later." << endl
<< "Additionally you can exit GiNaC-cint with quit; exit; or bye;" << endl
<< endl;
}
// "preprocess" the line entered to be able to decide if the command shall be
// executed directly or more input is needed or this is a special command
- // all whitespace will be removed
+ // ALL whitespace will be removed
// all comments (/* */ and //) will be removed
// open and close braces ( { and } ) outside strings will be counted
atexit(cleanup);
signal(SIGTERM,sigterm_handler);
-
+ initialize_cint();
+}
+
+void initialize_cint(void)
+{
G__init_cint("cint"); /* initialize cint */
// no longer needed as of cint 5.14.31
#endif // ndef NO_NAMESPACE_GINAC
exec_tempfile("ex LAST,LLAST,LLLAST;\n");
+ exec_tempfile("bool ginac_cint_internal_redirect_output=false;\n");
+ exec_tempfile("ofstream ginac_cint_internal_fout;\n");
}
+void restart(void)
+{
+ cout << "Restarting GiNaC-cint." << endl;
+ G__scratch_all();
+ initialize_cint();
+}
+
+void redirect(string const & filename)
+{
+ if (filename=="") {
+ cout << "Redirecting output back to console..." << endl;
+ exec_tempfile( string()
+ +"ginac_cint_internal_redirect_output=false;\n"
+ +"ginac_cint_internal_fout.close();");
+ } else {
+ cout << "Redirecting output to " << filename << "..." << endl;
+ exec_tempfile( string()
+ +"ginac_cint_internal_redirect_output=true;\n"
+ +"ginac_cint_internal_fout.open(\""+filename+"\");\n");
+ }
+}
+
+bool is_command(string const & command, string & preprocessed,
+ string const & comparevalue, bool substr)
+{
+ bool single_quote=false;
+ bool double_quote=false;
+ bool comment=false;
+ unsigned open_braces=0;
+ if ((preprocessed=="."+comparevalue)||
+ substr&&(preprocessed.substr(0,comparevalue.length()+1)==
+ "."+comparevalue)) {
+ return true;
+ }
+ if ((command=="//GiNaC-cint."+comparevalue+"\n")||
+ substr&&(command.substr(0,comparevalue.length()+13)==
+ "//GiNaC-cint."+comparevalue)) {
+ preprocessed = preprocess(command.substr(12).c_str(),comment,
+ single_quote,double_quote,open_braces);
+ return true;
+ }
+ return false;
+}
+
bool readlines(istream * is, string & allcommands)
{
char const * line;
if ((preprocessed=="quit;")||
(preprocessed=="exit;")||
(preprocessed=="bye;")||
- (preprocessed==".q")||
- (preprocessed==".quit")||
- (preprocessed==".exit")||
- (preprocessed==".bye")) {
+ (is_command(command,preprocessed,"quit"))||
+ (is_command(command,preprocessed,"exit"))||
+ (is_command(command,preprocessed,"bye"))||
+ (is_command(command,preprocessed,"q"))) {
quit = true;
- } else if (preprocessed==".function") {
+ } else if (is_command(command,preprocessed,"function")) {
cout << "next expression can be a function definition" << endl;
next_command_is_function=true;
- } else if (preprocessed==".cint") {
+ } else if (is_command(command,preprocessed,"cint")) {
cout << endl << "switching to cint interactive mode" << endl;
cout << "'h' for help, 'q' to quit, '{ statements }' or 'p [expression]' to evaluate" << endl;
G__pause();
cout << "back from cint" << endl;
- } else if (preprocessed==".help") {
+ } else if (is_command(command,preprocessed,"help")) {
helpmessage();
- } else if (preprocessed.substr(0,5)==".read") {
+ } else if (is_command(command,preprocessed,"read",true)) {
quit=readfile(preprocessed.substr(5),allcommands);
- } else if (preprocessed.substr(0,5)==".save") {
- command = "// "+command; // we do not want the .save command itself in saved files
+ } else if (is_command(command,preprocessed,"save",true)) {
+ command = "/* "+command+" */"; // we do not want the .save command itself in saved files
savefile(preprocessed.substr(5),allcommands);
+ } else if (is_command(command,preprocessed,"restart")) {
+ restart();
+ } else if (is_command(command,preprocessed,"redirect",true)) {
+ redirect(preprocessed.substr(9));
+ } else if (is_command(command,preprocessed,">",true)) {
+ redirect(preprocessed.substr(2));
+ } else if (is_command(command,preprocessed,"silent")) {
+ redirect("/dev/null");
/* test for more special commands
} else if (preprocessed==".xyz") {
cout << "special command (TBD): " << command << endl;
*/
+ } else if (command.substr(0,2)=="#!") {
+ // ignore lines which indicate that this file is executed as a script
} else {
// cout << "now processing: " << command << endl;
if (next_command_is_function) {
git://www.ginac.de / ginac.git / blobdiff