diff options
Diffstat (limited to 'mdk-stage1/slang/slcompat.c')
-rw-r--r-- | mdk-stage1/slang/slcompat.c | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/mdk-stage1/slang/slcompat.c b/mdk-stage1/slang/slcompat.c new file mode 100644 index 000000000..5aa122483 --- /dev/null +++ b/mdk-stage1/slang/slcompat.c @@ -0,0 +1,34 @@ +/* These functions are provided for backward compatibility and are obsolete. + * Copyright (c) 1992, 1999, 2001 John E. Davis + * This file is part of the S-Lang library. + * + * You may distribute under the terms of either the GNU General Public + * License or the Perl Artistic License. + */ + +#include "slinclud.h" + +#include "slang.h" +#include "_slang.h" + +/* 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; +} + +int SLang_init_slfile (void) +{ + if ((-1 == SLang_init_stdio ()) + || (-1 == SLang_init_posix_dir ()) + || (-1 == SLdefine_for_ifdef("__SLFILE__"))) + return -1; + + return 0; +} + |