X-Git-Url: http://git.kpe.io/?p=ctsim.git;a=blobdiff_plain;f=tools%2Fctsimtext.cpp;h=5a569c4d70b74429829826746587cd5e9375219c;hp=cd02ac68fb8569aeb8ed8e2de5db45259d4814f3;hb=f13a8c004b8f182b42d9e4df2bcd7c7f030bf1ad;hpb=da7c413d9b557a45c17a5af5d13de0825507a22d diff --git a/tools/ctsimtext.cpp b/tools/ctsimtext.cpp index cd02ac6..5a569c4 100644 --- a/tools/ctsimtext.cpp +++ b/tools/ctsimtext.cpp @@ -7,9 +7,7 @@ ** Date Started: Jan 2001 ** ** This is part of the CTSim program -** Copyright (C) 1983-2000 Kevin Rosenberg -** -** $Id: ctsimtext.cpp,v 1.3 2001/01/09 20:38:53 kevin Exp $ +** Copyright (C) 1983-2009 Kevin Rosenberg ** ** 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 @@ -27,19 +25,28 @@ #include "ct.h" -#ifdef HAVE_READLINE +#ifdef HAVE_READLINE_H +extern "C" { #include #include +}; +#elif defined(HAVE_READLINE_READLINE_H) +extern "C" { +#include +#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.3 2001/01/09 20:38:53 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[]); @@ -47,63 +54,117 @@ 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); - -void +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 << " ifinfo Image file information\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 || 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::string strInput; + std::cout << "CTSim Text Shell"; +#ifdef VERSION + std::cout << ", Version " << VERSION; +#endif + std::cout << " (Type \"quit\" to end)\n\n"; + while (1) { - std::cout << "CTSimText Interactive mode\nType quit to end"; #ifdef HAVE_READLINE - char* pszInput = readline (szPrompt); -#else + char* pszInputLine = readline (szPrompt); + if (! pszInputLine) + break; + if (*pszInputLine != EOS) + add_history (pszInputLine); + +#else // DONT_HAVE_READLINE + + static const int s_MaxLineLength = 1024; + char* pszInputLine = new char [s_MaxLineLength+1]; std::cout << szPrompt; - std::cin >> strInput; - char* pszInput = new char [strInput.length() + 1]; - strncpy (pszInput, strInput.c_str(), sizeof(pszInput)); + std::cin.getline (pszInputLine, s_MaxLineLength); + +#ifdef DEBUG + std::cout << "#" << pszInputLine << "#\n"; #endif - if (strncasecmp (pszInput, "quit", 4) == 0) { - delete pszInput; + + std::cout << std::flush; + std::cout << "\n"; +#endif // DONT_HAVE_READLINE + + if (strncasecmp (pszInputLine, "quit", 4) == 0) break; - } - convertStringToArgcv (pszInput, &argc, &argv); - delete pszInput; + + convertStringToArgcv (pszInputLine, &argc, &argv); +#ifdef DEBUG + for (int i = 0; i < argc; i++) + std::cout << "Token " << i << ": " << argv[i] << "\n"; +#endif iReturn = processCommand (argc, argv); + + delete pszInputLine; } } @@ -123,7 +184,7 @@ convertStringToArgcv (char* pszLine, int* piArgc, char*** pppArgv) bool bInToken = false; while (*pCurrentPos) { - if (iswhite (*pCurrentPos)) { + if (isspace (*pCurrentPos)) { if (! bInToken) *pCurrentPos = 0; else if (bInSingleQuote || bInDoubleQuote) @@ -133,9 +194,10 @@ convertStringToArgcv (char* pszLine, int* piArgc, char*** pppArgv) bInToken = false; } } - else if (*pCurrentPos = '\"') { + else if (*pCurrentPos == '\"') { if (bInSingleQuote) { bInSingleQuote = false; + *pCurrentPos = 0; } else { bInSingleQuote = true; if (! bInToken) { @@ -144,9 +206,10 @@ convertStringToArgcv (char* pszLine, int* piArgc, char*** pppArgv) vecpszToken.push_back (pCurrentPos+1); } } - } else if (*pCurrentPos = '\'') { + } else if (*pCurrentPos == '\'') { if (bInDoubleQuote) { bInDoubleQuote = false; + *pCurrentPos = 0; } else { bInDoubleQuote = true; if (! bInToken) { @@ -165,54 +228,102 @@ convertStringToArgcv (char* pszLine, int* piArgc, char*** pppArgv) } *piArgc = nTokens; - pppArgv = new char** [nTokens]; - for (unsigned int iToken = 0; iToken < vecpszToken.size(); iToken++) - (*pppArgv)[iToken] = vecpszToken[iToken]; + if (nTokens > 0) { + *pppArgv = new char* [nTokens]; + for (unsigned int iToken = 0; iToken < vecpszToken.size(); iToken++) + (*pppArgv)[iToken] = vecpszToken[iToken]; + } else + *pppArgv = NULL; } -static int +static int processCommand (int argc, char* const argv[]) { - const char* const pszFunction = argv[0]; - - if (strcasecmp (pszFunction, "if1") == 0) - return if1_main (argc, argv); - else if (strcasecmp (pszFunction, "if2") == 0) - return if2_main (argc, argv); - else if (strcasecmp (pszFunction, "ifexport") == 0) - return ifexport_main (argc, argv); - else if (strcasecmp (pszFunction, "ifinfo") == 0) - return ifinfo_main (argc, argv); - else if (strcasecmp (pszFunction, "phm2if") == 0) - return phm2if_main (argc, argv); - else if (strcasecmp (pszFunction, "phm2pj") == 0) - return phm2pj_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 { - std::cout << "Unknown function name" << pszFunction << "\n\n"; - ctsimtext_usage (argv[0]); + if (argc < 1) return 1; + + const char* const pszFunction = fileBasename (argv[0]); + + try { + if (strcasecmp (pszFunction, "if1") == 0) + return if1_main (argc, argv); + else if (strcasecmp (pszFunction, "if2") == 0) + return if2_main (argc, argv); + else if (strcasecmp (pszFunction, "ifexport") == 0) + return ifexport_main (argc, argv); + else if (strcasecmp (pszFunction, "ifinfo") == 0) + return ifinfo_main (argc, argv); + else if (strcasecmp (pszFunction, "phm2if") == 0) + 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) + interactive_usage(); + else + ctsimtext_usage (s_szProgramName); + return 1; + } + } catch (std::exception e) { + std::cerr << "Exception: " << e.what() << std::endl; + } catch (...) { + std::cerr << "Unknown exception caught\n"; } + + return 1; } -int +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; - try { - retval = ctsimtext_main(argc, argv); - } catch (exception e) { - std::cerr << "Exception: " << e.what() << std::endl; - } catch (...) { - std::cerr << "Unknown exception\n"; + 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 - return (retval); -} + int 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; +}