int main (int argc, char **argv)
{
char buf[1024];
int i;
SLprep_Type *pt;
if (isatty (0))
usage ();
if (NULL == (pt = SLprep_new ()))
return 1;
if ((-1 == SLprep_set_prefix (pt, "!"))
|| (-1 == SLprep_set_comment (pt, "#", ""))
|| (-1 == SLprep_set_flags (pt, SLPREP_BLANK_LINES_OK | SLPREP_COMMENT_LINES_OK)))
{
SLprep_delete (pt);
return 1;
}
for (i = 1; i < argc; i++)
SLdefine_for_ifdef (argv[i]);
while (NULL != fgets (buf, sizeof (buf) - 1, stdin))
{
if (SLprep_line_ok (buf, pt))
{
fputs (buf, stdout);
}
}
SLprep_delete (pt);
return 0;
}
int main (int argc, char *argv[])
{
int i;
char buf[1024];
SLPreprocess_Type pt;
SLprep_open_prep (&pt);
SLdefine_for_ifdef ("UNIX");
/* super cheap getopts */
for (i = 1; i < argc; i++)
{
char *p = argv[i];
if (*p++ != '-') break;
if (*p == '-') break;
if (*p == 'D')
{
SLdefine_for_ifdef (p + 1);
continue;
}
while (*p) {
switch (*p) {
case 'B': pt.flags |= (SLPREP_BLANK_LINES_OK); break;
case 'C': pt.flags |= (SLPREP_COMMENT_LINES_OK); break;
case 'c': if (p[1]) pt.comment_char = *++p; break;
case 'p': if (p[1]) pt.preprocess_char = *++p; break;
default:
fprintf (stderr, "unknown flag '%c'\n", *p);
break;
}
p++;
}
}
while (NULL != fgets (buf, sizeof (buf) - 1, stdin))
{
if (SLprep_line_ok (buf, &pt))
fputs (buf, stdout);
}
SLprep_close_prep (&pt);
return 0;
}
/* Compatibility */
int SLang_init_slfile (void)
{
if ((-1 == SLang_init_stdio ())
|| (-1 == SLang_init_posix_dir ())
|| (-1 == SLdefine_for_ifdef("__SLFILE__")))
return -1;
return 0;
}
/* Compatibility */
int SLang_init_slunix (void)
{
if ((-1 == SLang_init_posix_dir ())
|| (-1 == SLang_init_posix_process ())
|| (-1 == SLdefine_for_ifdef ("__SLUNIX__")))
return -1;
return 0;
}
static int init_optional_modules (char *ns_name) /*{{{*/
{
(void) ns_name;
#ifdef INIT_XSPEC_MODULE
if (-1 == init_xspec_module_ns (Isis_Public_Namespace_Name))
return isis_trace_return(-1);
(void) SLdefine_for_ifdef ("__XSPEC_IS_STATIC__");
#endif
return 0;
}
int SLang_init_slang (void) /*{{{*/
{
char name[3];
unsigned int i;
SLFUTURE_CONST char **s;
static SLFUTURE_CONST char *sys_defines [] =
{
#if defined(__os2__)
"OS2",
#endif
#if defined(__MSDOS__)
"MSDOS",
#endif
#if defined(__WIN16__)
"WIN16",
#endif
#if defined (__WIN32__)
"WIN32",
#endif
#if defined(__NT__)
"NT",
#endif
#if defined (VMS)
"VMS",
#endif
#ifdef REAL_UNIX_SYSTEM
"UNIX",
#endif
#if SLANG_HAS_FLOAT
"SLANG_DOUBLE_TYPE",
#endif
NULL
};
if (-1 == _pSLerr_init ())
return -1;
if (-1 == _pSLregister_types ()) return -1;
if ((-1 == SLadd_intrin_fun_table(SLang_Basic_Table, NULL))
|| (-1 == SLadd_intrin_var_table (Intrin_Vars, NULL))
|| (-1 == _pSLang_init_slstrops ())
|| (-1 == _pSLang_init_sltime ())
|| (-1 == _pSLang_init_sllist ())
|| (-1 == _pSLstruct_init ())
#if SLANG_HAS_ASSOC_ARRAYS
|| (-1 == SLang_init_slassoc ())
#endif
#if SLANG_HAS_BOSEOS
|| (-1 == _pSLang_init_boseos ())
#endif
|| (-1 == _pSLang_init_exceptions ())
)
return -1;
/* More nonsense for the windoze loader */
if ((-1 == SLadd_intrinsic_variable ("_NARGS", &SLang_Num_Function_Args, SLANG_INT_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_traceback", &SLang_Traceback, SLANG_INT_TYPE, 0))
|| (-1 == SLadd_intrinsic_variable ("_slang_version", &SLang_Version, SLANG_INT_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_slang_version_string", &SLang_Version_String, SLANG_STRING_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_slang_doc_dir", &SLang_Doc_Dir, SLANG_STRING_TYPE, 1)))
return -1;
SLadd_global_variable (SLANG_SYSTEM_NAME);
s = sys_defines;
while (*s != NULL)
{
if (-1 == SLdefine_for_ifdef (*s)) return -1;
s++;
}
/* give temp global variables $0 --> $9 */
name[2] = 0; name[0] = '$';
for (i = 0; i < 10; i++)
{
name[1] = (char) (i + '0');
SLadd_global_variable (name);
}
SLang_init_case_tables ();
/* Now add a couple of macros */
SLang_load_string (".(_NARGS 1 - Sprintf error)verror");
SLang_load_string (".(_NARGS 1 - Sprintf message)vmessage");
#if SLANG_HAS_SIGNALS
if (-1 == SLang_add_interrupt_hook (_pSLang_check_signals_hook, NULL))
return -1;
#endif
if ((SLang_Doc_Dir != NULL)
&& (*SLang_Doc_Dir != 0))
{
char *docfile = SLpath_dircat (SLang_Doc_Dir, "slangfun.txt");
/* NULL ok */
(void) add_doc_file (docfile);
SLfree (docfile);
}
if (_pSLang_Error)
return -1;
return 0;
}
