You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.3 KiB
56 lines
1.3 KiB
15 years ago
|
#include <kshell.h>
|
||
|
|
||
|
#include <iostream>
|
||
|
|
||
|
static QCString
|
||
15 years ago
|
ps(const TQString &s)
|
||
15 years ago
|
{
|
||
|
if (s.isNull())
|
||
|
return "(null)";
|
||
|
else
|
||
|
return s.local8Bit();
|
||
|
}
|
||
|
|
||
|
static void
|
||
|
tx(const char *t)
|
||
|
{
|
||
|
std::cout << t << " -> " << ps(KShell::tildeExpand(t)) << std::endl;
|
||
|
}
|
||
|
|
||
|
static void
|
||
|
sj(const char *t, int flg)
|
||
|
{
|
||
|
int err;
|
||
|
std::cout << t << " (" << flg << ") -> " << ps(KShell::joinArgsDQ(KShell::splitArgs(t, flg, &err))) << " (" << err << ")" << std::endl;
|
||
|
}
|
||
|
|
||
|
int main()
|
||
|
{
|
||
|
#if 1
|
||
|
tx("~");
|
||
|
tx("~/sulli");
|
||
|
tx("~root");
|
||
|
tx("~root/sulli");
|
||
|
tx("~sulli");
|
||
|
#endif
|
||
|
#if 1
|
||
15 years ago
|
TQStringList lst;
|
||
15 years ago
|
lst << "this" << "is" << "text";
|
||
|
std::cout << KShell::joinArgs(lst).latin1() << std::endl;
|
||
|
#endif
|
||
|
#if 1
|
||
|
sj("\"~sulli\" 'text' 'jo'\"jo\" $'crap' $'\\\\\\'\\ca\\e\\x21' ha\\ lo ", KShell::NoOptions);
|
||
|
sj("\"~sulli\" 'text'", KShell::TildeExpand);
|
||
|
sj("~\"sulli\" 'text'", KShell::TildeExpand);
|
||
|
sj("~/\"sulli\" 'text'", KShell::TildeExpand);
|
||
|
sj("~ 'text' ~", KShell::TildeExpand);
|
||
|
sj("~sulli ~root", KShell::TildeExpand);
|
||
|
#endif
|
||
|
sj("say \" error", KShell::NoOptions);
|
||
|
sj("say `echo no error`", KShell::NoOptions);
|
||
|
sj("say \" still error", KShell::AbortOnMeta);
|
||
|
sj("say `echo meta error`", KShell::AbortOnMeta);
|
||
|
sj("BLA=say echo meta", KShell::AbortOnMeta);
|
||
|
sj("B\"L\"A=say FOO=bar echo meta", KShell::AbortOnMeta);
|
||
|
}
|