| Andrew MacIntyre | 41d97d6 | 2002-02-17 05:23:30 +0000 | [diff] [blame] | 1 | /* OS/2 PM main program - creates a hidden window, and starts Python |
| 2 | * interpreter in a separate thread, so that Python scripts can be |
| 3 | * run in PM process space without a console Window. The interpreter |
| 4 | * is incorporated by linking in the Python DLL. |
| 5 | * |
| 6 | * As it stands, I don't think this is adequate for supporting Python |
| 7 | * GUI modules, as the Python thread doesn't have its own message |
| 8 | * queue - which is required of threads that want to create/use |
| 9 | * PM windows. |
| 10 | * |
| 11 | * This code owes a lot to "OS/2 Presentation Manager Programming", by |
| 12 | * Charles Petzold. |
| 13 | * |
| 14 | * Andrew MacIntyre <andymac@bullseye.apana.org.au>, August 2001. |
| 15 | * Released under the terms of the Python 2.1.1 licence - see the LICENCE |
| 16 | * file in the Python v2.1.1 (or later) source distribution. |
| 17 | * Copyright assigned to the Python Software Foundation, 2001. |
| 18 | */ |
| 19 | |
| 20 | #define INCL_DOS |
| 21 | #define INCL_WIN |
| 22 | #include <os2.h> |
| 23 | #include <process.h> |
| 24 | |
| 25 | #include "Python.h" |
| 26 | |
| 27 | /* use structure to pass command line to Python thread */ |
| 28 | typedef struct |
| 29 | { |
| 30 | int argc; |
| 31 | char **argv; |
| 32 | HWND Frame; |
| 33 | int running; |
| 34 | } arglist; |
| 35 | |
| 36 | /* make this a global to simplify access. |
| 37 | * it should only be set from the Python thread, or by the code that |
| 38 | * initiates the Python thread when the thread cannot be created. |
| 39 | */ |
| 40 | int PythonRC; |
| 41 | |
| 42 | extern DL_EXPORT(int) Py_Main(int, char **); |
| 43 | void PythonThread(void *); |
| 44 | |
| 45 | int |
| 46 | main(int argc, char **argv) |
| 47 | { |
| 48 | ULONG FrameFlags = FCF_TITLEBAR | |
| 49 | FCF_SYSMENU | |
| 50 | FCF_SIZEBORDER | |
| 51 | FCF_HIDEBUTTON | |
| 52 | FCF_SHELLPOSITION | |
| 53 | FCF_TASKLIST; |
| 54 | HAB hab; |
| 55 | HMQ hmq; |
| 56 | HWND Client; |
| 57 | QMSG qmsg; |
| 58 | arglist args; |
| 59 | int python_tid; |
| 60 | |
| 61 | /* init PM and create message queue */ |
| 62 | hab = WinInitialize(0); |
| 63 | hmq = WinCreateMsgQueue(hab, 0); |
| 64 | |
| 65 | /* create a (hidden) Window to house the window procedure */ |
| 66 | args.Frame = WinCreateStdWindow(HWND_DESKTOP, |
| 67 | 0, |
| 68 | &FrameFlags, |
| 69 | NULL, |
| 70 | "PythonPM", |
| 71 | 0L, |
| 72 | 0, |
| 73 | 0, |
| 74 | &Client); |
| 75 | |
| 76 | /* run Python interpreter in a thread */ |
| 77 | args.argc = argc; |
| 78 | args.argv = argv; |
| 79 | args.running = 0; |
| 80 | if (-1 == (python_tid = _beginthread(PythonThread, NULL, 1024 * 1024, &args))) |
| 81 | { |
| 82 | /* couldn't start thread */ |
| 83 | WinAlarm(HWND_DESKTOP, WA_ERROR); |
| 84 | PythonRC = 1; |
| 85 | } |
| 86 | else |
| 87 | { |
| 88 | /* process PM messages, until Python exits */ |
| 89 | while (WinGetMsg(hab, &qmsg, NULLHANDLE, 0, 0)) |
| 90 | WinDispatchMsg(hab, &qmsg); |
| 91 | if (args.running > 0) |
| 92 | DosKillThread(python_tid); |
| 93 | } |
| 94 | |
| 95 | /* destroy window, shutdown message queue and PM */ |
| 96 | WinDestroyWindow(args.Frame); |
| 97 | WinDestroyMsgQueue(hmq); |
| 98 | WinTerminate(hab); |
| 99 | |
| 100 | return PythonRC; |
| 101 | } |
| 102 | |
| 103 | void PythonThread(void *argl) |
| 104 | { |
| 105 | HAB hab; |
| 106 | arglist *args; |
| 107 | |
| 108 | /* PM initialisation */ |
| 109 | hab = WinInitialize(0); |
| 110 | |
| 111 | /* start Python */ |
| 112 | args = (arglist *)argl; |
| 113 | args->running = 1; |
| 114 | PythonRC = Py_Main(args->argc, args->argv); |
| 115 | |
| 116 | /* enter a critical section and send the termination message */ |
| 117 | DosEnterCritSec(); |
| 118 | args->running = 0; |
| 119 | WinPostMsg(args->Frame, WM_QUIT, NULL, NULL); |
| 120 | |
| 121 | /* shutdown PM and terminate thread */ |
| 122 | WinTerminate(hab); |
| 123 | _endthread(); |
| 124 | } |