81 lines
2.0 KiB
C
81 lines
2.0 KiB
C
#include <qse/sed/stdsed.h>
|
|
#include <qse/cmn/main.h>
|
|
#include <qse/si/sio.h>
|
|
#include "sed00.h"
|
|
|
|
static void trace_exec (qse_sed_t* sed, qse_sed_tracer_op_t op, qse_sed_cmd_t* cmd)
|
|
{
|
|
qse_cstr_t h, p;
|
|
|
|
qse_sed_getspace (sed, QSE_SED_SPACE_HOLD, &h);
|
|
qse_sed_getspace (sed, QSE_SED_SPACE_PATTERN, &p);
|
|
|
|
/* print the contents of the hold space and the pattern space
|
|
* at each phase of execution */
|
|
qse_printf (QSE_T("HOLD: [%.*s] PATTERN: [%.*s]\n"), (int)h.len, h.ptr, (int)p.len, p.ptr);
|
|
}
|
|
|
|
static int sed_main (int argc, qse_char_t* argv[])
|
|
{
|
|
qse_sed_t* sed = QSE_NULL;
|
|
qse_sed_iostd_t in[2];
|
|
qse_sed_iostd_t out;
|
|
int ret = -1;
|
|
|
|
/* create the sed object */
|
|
sed = qse_sed_openstd (0, QSE_NULL);
|
|
if (sed == QSE_NULL)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: cannot open sed\n"));
|
|
goto oops;
|
|
}
|
|
|
|
/* compile the command string */
|
|
if (qse_sed_compstdstr (sed, QSE_T("s/abc/def/g; s/def/kkk/g")) <= -1)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: %s\n"), qse_sed_geterrmsg(sed));
|
|
goto oops;
|
|
}
|
|
|
|
/* arrange to use the second argument as input data */
|
|
in[0].type = QSE_SED_IOSTD_STR;
|
|
in[0].u.str.ptr = QSE_T("ABCDEFGHI abcdefghi abcdefghi\nhigh abc dom\n");
|
|
in[0].u.str.len = qse_strlen (in[0].u.str.ptr);
|
|
in[1].type = QSE_SED_IOSTD_NULL;
|
|
|
|
/* indicate that the output should be placed in a
|
|
* dynamically allocated memory chunk */
|
|
out.type = QSE_SED_IOSTD_STR;
|
|
|
|
/* squeeze in a tracing hook */
|
|
qse_sed_setopt (sed, QSE_SED_TRACER, trace_exec);
|
|
|
|
/* execute the compiled command */
|
|
if (qse_sed_execstd (sed, in, &out) <= -1)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: %s\n"), qse_sed_geterrmsg(sed));
|
|
goto oops;
|
|
}
|
|
|
|
/* access the output data produced */
|
|
qse_printf (QSE_T("%.*s\n"), (int)out.u.str.len, out.u.str.ptr);
|
|
|
|
/* free the output data */
|
|
qse_sed_freemem (sed, out.u.str.ptr);
|
|
|
|
oops:
|
|
/* destroy the sed object */
|
|
if (sed) qse_sed_close (sed);
|
|
return ret;
|
|
}
|
|
|
|
int qse_main (int argc, qse_achar_t* argv[])
|
|
{
|
|
int x;
|
|
qse_open_stdsios ();
|
|
init_sed_sample_locale ();
|
|
x = qse_run_main (argc, argv, sed_main);
|
|
qse_close_stdsios ();
|
|
return x;
|
|
}
|