| 1 |
|
|---|
| 2 | /*
|
|---|
| 3 | * Copyright © 2001 Novell, Inc. All Rights Reserved.
|
|---|
| 4 | *
|
|---|
| 5 | * You may distribute under the terms of either the GNU General Public
|
|---|
| 6 | * License or the Artistic License, as specified in the README file.
|
|---|
| 7 | *
|
|---|
| 8 | */
|
|---|
| 9 |
|
|---|
| 10 | /*
|
|---|
| 11 | * FILENAME : interface.c
|
|---|
| 12 | * DESCRIPTION : Perl parsing and running functions.
|
|---|
| 13 | * Author : SGP
|
|---|
| 14 | * Date : January 2001.
|
|---|
| 15 | *
|
|---|
| 16 | */
|
|---|
| 17 |
|
|---|
| 18 |
|
|---|
| 19 |
|
|---|
| 20 | #include "interface.h"
|
|---|
| 21 |
|
|---|
| 22 | #include "win32ish.h" // For "BOOL", "TRUE" and "FALSE"
|
|---|
| 23 |
|
|---|
| 24 |
|
|---|
| 25 | static void xs_init(pTHX);
|
|---|
| 26 | //static void xs_init(pTHXo); //(J)
|
|---|
| 27 |
|
|---|
| 28 | EXTERN_C int RunPerl(int argc, char **argv, char **env);
|
|---|
| 29 | EXTERN_C void Perl_nw5_init(int *argcp, char ***argvp);
|
|---|
| 30 | EXTERN_C void boot_DynaLoader (pTHX_ CV* cv); // (J) pTHXo_
|
|---|
| 31 |
|
|---|
| 32 | EXTERN_C BOOL Remove_Thread_Ctx(void);
|
|---|
| 33 |
|
|---|
| 34 |
|
|---|
| 35 | ClsPerlHost::ClsPerlHost()
|
|---|
| 36 | {
|
|---|
|
|---|
