//-----------------------------------------------------------------------------
int main(int argc, char **argv)
{
char ch, iname[256]="";
mgl_suppress_warn(true);
while(1)
{
ch = getopt(argc, argv, "1:2:3:4:5:6:7:8:9:hL:s:");
if(ch>='1' && ch<='9') p.AddParam(ch-'0', optarg);
else if(ch=='s')
{
setlocale(LC_CTYPE, "");
FILE *fp = fopen(optarg,"r");
if(fp)
{
wchar_t ch;
while((ch=fgetwc(fp))!=WEOF) opt.push_back(ch);
fclose(fp);
}
}
else if(ch=='L') setlocale(LC_CTYPE, optarg);
else if(ch=='h' || (ch==-1 && optind>=argc))
{
printf("mglview show plot from MGL script or MGLD file.\nCurrent version is 2.%g\n",MGL_VER2);
printf("Usage:\tmglview [parameter(s)] scriptfile\n");
printf(
"\t-1 str set str as argument $1 for script\n"
"\t... ...\n"
"\t-9 str set str as argument $9 for script\n"
"\t-s opt set MGL script for setting up the plot\n"
"\t-L loc set locale to loc\n"
"\t- get script from standard input\n"
"\t-h print this message\n" );
ch = 'h'; break;
}
else if(ch==-1 && optind<argc)
{ strncpy(iname, argv[optind][0]=='-'?"":argv[optind],256); break; }
}
if(ch=='h') return 0;
bool mgld=(*iname && iname[strlen(iname)-1]=='d');
if(!mgld)
{
str = opt + L"\n";
setlocale(LC_CTYPE, "");
FILE *fp = *iname?fopen(iname,"r"):stdin;
if(fp)
{
wchar_t ch;
while((ch=fgetwc(fp))!=WEOF) str.push_back(ch);
fclose(fp);
}
else { printf("No file for MGL script\n"); return 0; }
}
mgl_ask_func = mgl_ask_gets;
mgl_ask_func = mgl_ask_qt;
mglQT gr(mgld?NULL:show, *iname?iname:"mglview");
if(mgld)
{
gr.Setup(false);
gr.NewFrame(); setlocale(LC_NUMERIC, "C");
if(!opt.empty())
{
p.Execute(&gr,opt.c_str());
printf("Setup script: %s\n",gr.Message());
gr.ImportMGLD(iname,true);
}
else gr.ImportMGLD(iname);
setlocale(LC_NUMERIC, ""); gr.EndFrame();
gr.Update();
}
if(!mglGlobalMess.empty()) printf("%s",mglGlobalMess.c_str());
return gr.Run();
}
//-----------------------------------------------------------------------------
int main(int argc, char **argv)
{
QString lang="";
QSettings settings("udav","UDAV");
settings.setPath(QSettings::IniFormat, QSettings::UserScope, "UDAV");
settings.beginGroup("/UDAV");
pathHelp = settings.value("/helpPath", MGL_DOC_DIR).toString();
pathFont = settings.value("/userFont", "").toString();
lang = settings.value("/udavLang", "").toString();
const char *loc="";
if(lang=="en") loc = "C.UTF8";
#if WIN32
if(lang=="ru") loc = "ru_RU.cp1251";
#else
if(lang=="ru") loc = "ru_RU.utf8";
#endif
if(lang=="es") { loc = "es_ES.utf8"; lang="en"; } // TODO remove lang="en"; then Spanish translation is ready !
mgl_textdomain(argv?argv[0]:NULL,loc);
bool showHint = settings.value("/showHint", true).toBool();
mglCompleter = settings.value("/completer", true).toBool();
settings.endGroup();
mgl_suppress_warn(true);
QCoreApplication::setAttribute(Qt::AA_X11InitThreads);
#ifdef WIN32
QCoreApplication::addLibraryPath("c:/plugins/");
QCoreApplication::addLibraryPath(QFileInfo(QString::fromLocal8Bit(argv[0])).absolutePath().append("/plugins/"));
#endif
mgl_ask_func = mgl_ask_qt;
QApplication a(argc, argv);
QTranslator translator;
//QTextCodec::setCodecForCStrings(QTextCodec::codecForName("UTF-8"));
#if defined(WIN32)
if(pathHelp.isEmpty()) pathHelp = a.applicationDirPath()+"\\";
#else
if(pathHelp.isEmpty()) pathHelp=MGL_DOC_DIR;
#endif
if(!lang.isEmpty())
{
if(!translator.load("udav_"+lang, UDAV_DIR))
translator.load("udav_"+lang, pathHelp);
a.installTranslator(&translator);
}
udavLoadDefCommands();
parser.AllowSetSize(true);
MainWindow *mw = new MainWindow();
if(argc>1)
{
QTextCodec *codec = QTextCodec::codecForLocale();
mw->load(codec->toUnicode(argv[1]), true);
}
mw->show();
mw->edit->edit->setFocus();
a.connect(&a, SIGNAL(lastWindowClosed()), &a, SLOT(quit()));
if(showHint) udavShowHint(mw);
return a.exec();
}
//-----------------------------------------------------------------------------
int main(int argc, char *argv[])
{
mgl_suppress_warn(true);
mglGraph gr;
mglParse p(true);
char buf[2048], iname[256]="", oname[256]="";
std::vector<std::wstring> var;
std::wstring str;
bool none=false;
while(1)
{
int ch = getopt(argc, argv, "1:2:3:4:5:6:7:8:9:hno:L:C:A:s:S:q:v:g:");
if(ch>='1' && ch<='9') p.AddParam(ch-'0', optarg);
else if(ch=='s')
{
setlocale(LC_CTYPE, "");
FILE *fp = fopen(optarg,"r");
if(fp)
{
wchar_t ch;
while(!feof(fp) && size_t(ch=fgetwc(fp))!=WEOF) str.push_back(ch);
fclose(fp); str += L"\n";
}
}
else if(ch=='n') none = true;
else if(ch=='L') setlocale(LC_CTYPE, optarg);
else if(ch=='S') mgl_set_size_scl(atof(optarg));
else if(ch=='q') gr.SetQuality(atoi(optarg));
else if(ch=='v') p.SetVariant(atoi(optarg));
else if(ch=='g') gr.Gray(atoi(optarg));
else if(ch=='A')
{
std::wstring str;
for(size_t i=0;optarg[i];i++) str.push_back(optarg[i]);
var.push_back(str);
}
else if(ch=='C')
{
double v1,v2,dv=1,v;
int res=sscanf(optarg,"%lg:%lg:%lg",&v1,&v2,&dv);
if(res<3) dv=1;
wchar_t num[64];
for(v=v1;v<=v2;v+=dv)
{
mglprintf(num,64,L"%g",v);
var.push_back(num);
}
}
else if(ch=='h' || (ch==-1 && optind>=argc))
{
printf("mglconv convert mgl script to bitmap png file.\nCurrent version is 2.%g\n",MGL_VER2);
printf("Usage:\tmglconv [parameter(s)] scriptfile\n");
printf(
"\t-1 str set str as argument $1 for script\n"
"\t... ...\n"
"\t-9 str set str as argument $9 for script\n"
"\t-L loc set locale to loc\n"
"\t-s fname set MGL script for setting up the plot\n"
"\t-S val set scaling factor for images\n"
"\t-q val set quality for output (val=0...9)\n"
"\t-g val set gray-scale mode (val=0|1)\n"
"\t-v val set variant of arguments\n"
"\t-o name set output file name\n"
"\t-n no default output (script should save results by itself)\n"
"\t-A val add animation value val\n"
"\t-C n1:n2:dn add animation value in range [n1,n2] with step dn\n"
"\t-C n1:n2 add animation value in range [n1,n2] with step 1\n"
"\t- get script from standard input\n"
"\t-h print this message\n" );
return 0;
}
else if(ch=='o') strncpy(oname, optarg,256);
else if(ch==-1 && optind<argc)
{ strncpy(iname, argv[optind][0]=='-'?"":argv[optind],256); break; }
}
if(*oname==0) { strncpy(oname,*iname?iname:"out",250); strcat(oname,".png"); }
else none = false;
mgl_ask_func = mgl_ask_gets;
// prepare for animation
setlocale(LC_CTYPE, "");
FILE *fp = *iname?fopen(iname,"r"):stdin;
if(!fp) { printf("No file for MGL script\n"); return 0; }
wchar_t cw;
while(!feof(fp) && size_t(cw=fgetwc(fp))!=WEOF) str.push_back(cw);
if(*iname) fclose(fp);
size_t n;
for(size_t i=0;;) // collect exact values
{
n = str.find(L"##a ",i);
if (n == mnpos) break;
i = n+4; var.push_back(str.substr(i,str.find('\n',i)));
}
n = str.find(L"##c ");
if (n != mnpos)
{
double v1,v2,dv,v;
wscanf(str.c_str()+n+4,L"%lg%lg%lg",&v1,&v2,&dv);
wchar_t ss[64];
for(v=v1;v<=v2;v+=dv)
{ mglprintf(ss,64,L"%g",v); var.push_back(ss); }
}
bool gif = !strcmp(oname+strlen(oname)-4,".gif");
gr.SetSize(600,400); // specially call for "S" option
if(var.size()>1) // there is animation
{
if(gif) gr.StartGIF(oname);
for(size_t i=0;i<var.size();i++)
{
gr.NewFrame();
printf("frame %zu for $0 = \"%ls\"\n",i,var[i].c_str());
p.AddParam(0,var[i].c_str());
p.Execute(&gr,str.c_str());
if(gr.Message()[0]) printf("%s\n",gr.Message());
gr.EndFrame();
snprintf(buf,2048,"%s-%zu",oname,i); buf[2047]=0;
if(!gif) gr.WriteFrame(buf);
}
if(gif) gr.CloseGIF();
}
else
{
p.Execute(&gr,str.c_str());
if(gr.Message()[0]) printf("%s\n",gr.Message());
if(!none) gr.WriteFrame(oname);
}
if(!mglGlobalMess.empty()) printf("%s",mglGlobalMess.c_str());
if(!none || gif) printf("Write output to %s\n",oname);
return 0;
}
void MGL_EXPORT mgl_suppress_warn_(int *on) { mgl_suppress_warn(*on); }
