X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tools%2Fctsimtext.cpp;h=be55b6ac8bcb36401cf29cb34d94935eb78c91ea;hb=d6553a81511f34757633399daec36cbe6ebd86ba;hp=af29a13f01ff1575b0070e214cbe2b8a619b1761;hpb=cb88bca6d3cd7c1bf25c84c4f66e17f978c50f70;p=ctsim.git diff --git a/tools/ctsimtext.cpp b/tools/ctsimtext.cpp index af29a13..be55b6a 100644 --- a/tools/ctsimtext.cpp +++ b/tools/ctsimtext.cpp @@ -9,7 +9,7 @@ ** This is part of the CTSim program ** Copyright (C) 1983-2000 Kevin Rosenberg ** -** $Id: ctsimtext.cpp,v 1.16 2001/01/16 23:48:45 kevin Exp $ +** $Id$ ** ** This program is free software; you can redistribute it and/or modify ** it under the terms of the GNU General Public License (version 2) as @@ -38,16 +38,17 @@ extern "C" { #include }; #endif - +#include // Master shell for all command-line tools // If called as ctsimtext, program will look to next token on command-line as the function name // If linked to ctsimtext, but executed as another name, eg pjrec, then program will use that // linked name as name of function. -static const char* const g_szIdStr = "$Id: ctsimtext.cpp,v 1.16 2001/01/16 23:48:45 kevin Exp $"; +static const char* const g_szIdStr = "$Id$"; static const char* const s_szProgramName = "ctsimtext"; static const char* const s_szProgramName2 = "ctsimtext.exe"; +static const char* const s_szProgramName3 = "ctsimtext-lam"; extern int if1_main (int argc, char* const argv[]); extern int if2_main (int argc, char* const argv[]); @@ -55,9 +56,12 @@ extern int ifexport_main (int argc, char* const argv[]); extern int ifinfo_main (int argc, char* const argv[]); extern int phm2if_main (int argc, char* const argv[]); extern int phm2pj_main (int argc, char* const argv[]); +extern int phm2helix_main (int argc, char* const argv[]); +extern int pjHinterp_main (int argc, char* const argv[]); extern int pj2if_main (int argc, char* const argv[]); extern int pjinfo_main (int argc, char* const argv[]); extern int pjrec_main (int argc, char* const argv[]); +extern int linogram_main (int argc, char* const argv[]); static int processCommand (int argc, char* const argv[]); static void convertStringToArgcv (char* szLine, int* piArgc, char*** pppArgv); @@ -67,7 +71,11 @@ void ctsimtext_usage (const char *program) { std::cout << "usage: " << fileBasename(program) << " ctsim-function-name ctstim-function-parameters...\n"; - std::cout << "CTSim text shell\n\n"; + std::cout << "CTSim text shell"; +#ifdef VERSION + std::cout << ", Version " < 1 && (strcmp(s_szProgramName, fileBasename (argv[0])) == 0 || strcmp(s_szProgramName2, fileBasename (argv[0])) == 0)) { + + if (argc > 1 && (strcmp(s_szProgramName, fileBasename (argv[0])) == 0 || strcmp(s_szProgramName2, fileBasename (argv[0])) == 0 || strcmp(s_szProgramName3, fileBasename (argv[0])) == 0)) { argv++; argc--; iReturn = processCommand (argc, argv); - } else if (argc > 1){ + } else if (argc >= 1 && ! (strcmp(s_szProgramName, fileBasename (argv[0])) == 0 || strcmp(s_szProgramName2, fileBasename (argv[0])) == 0 || strcmp(s_szProgramName3, fileBasename (argv[0])) == 0)) { iReturn = processCommand (argc, argv); } else { s_bInteractive = true; char szPrompt[] = "CTSim> "; - std::cout << "CTSim Text Shell (Type \"quit\" to end)\n\n"; + std::cout << "CTSim Text Shell"; +#ifdef VERSION + std::cout << ", Version " << VERSION; +#endif + std::cout << " (Type \"quit\" to end)\n\n"; while (1) { #ifdef HAVE_READLINE @@ -143,7 +161,7 @@ ctsimtext_main (int argc, char * argv[]) convertStringToArgcv (pszInputLine, &argc, &argv); #ifdef DEBUG - for (unsigned int i = 0; i < argc; i++) + for (int i = 0; i < argc; i++) std::cout << "Token " << i << ": " << argv[i] << "\n"; #endif iReturn = processCommand (argc, argv); @@ -227,7 +245,7 @@ processCommand (int argc, char* const argv[]) return 1; const char* const pszFunction = fileBasename (argv[0]); - + try { if (strcasecmp (pszFunction, "if1") == 0) return if1_main (argc, argv); @@ -241,12 +259,18 @@ processCommand (int argc, char* const argv[]) return phm2if_main (argc, argv); else if (strcasecmp (pszFunction, "phm2pj") == 0) return phm2pj_main (argc, argv); + else if (strcasecmp (pszFunction, "phm2helix") == 0) + return phm2helix_main (argc, argv); + else if (strcasecmp (pszFunction, "pjHinterp") == 0) + return pjHinterp_main (argc, argv); else if (strcasecmp (pszFunction, "pj2if") == 0) return pj2if_main (argc, argv); else if (strcasecmp (pszFunction, "pjinfo") == 0) return pjinfo_main (argc, argv); else if (strcasecmp (pszFunction, "pjrec") == 0) return pjrec_main (argc, argv); + else if (strcasecmp (pszFunction, "linogram") == 0) + return linogram_main (argc, argv); else { std::cout << "Unknown function name: " << pszFunction << "\n"; if (s_bInteractive) @@ -255,7 +279,7 @@ processCommand (int argc, char* const argv[]) ctsimtext_usage (s_szProgramName); return 1; } - } catch (exception e) { + } catch (std::exception e) { std::cerr << "Exception: " << e.what() << std::endl; } catch (...) { std::cerr << "Unknown exception caught\n"; @@ -267,10 +291,41 @@ processCommand (int argc, char* const argv[]) int main (int argc, char* argv[]) { - int retval = 1; +#if defined(HAVE_FFTW) && defined(HAVE_GETENV) + const char* const pszHome = getenv("HOME"); + char* pszWisdom = NULL; + + if (pszHome) { + const char szFileBase[] = ".fftw3-wisdom"; + int nHome = strlen(pszHome); + int nBase = strlen(szFileBase); + int len = nHome + nBase + 1; + pszWisdom = new char [ len + 1 ]; + strcpy (pszWisdom, pszHome); + pszWisdom[nHome] = '/'; + strcpy(pszWisdom+nHome+1,szFileBase); + pszWisdom[nHome+nBase+2] = 0; + + FILE *wisdom = fopen(pszWisdom,"r"); + if (wisdom) { + fftw_import_wisdom_from_file(wisdom); + fclose(wisdom); + } + } +#endif + + int retval = ctsimtext_main(argc, argv); - retval = ctsimtext_main(argc, argv); +#if defined(HAVE_FFTW) && defined(HAVE_GETENV) + if (pszWisdom) { + FILE* wisdom = fopen(pszWisdom,"w+"); + if (wisdom) { + fftw_export_wisdom_to_file(wisdom); + fclose(wisdom); + delete [] pszWisdom; + } + } +#endif return retval; } -