Guido van Rossum | 4c04be6 | 1997-07-19 19:25:33 +0000 | [diff] [blame] | 1 | /* Minimal main program -- everything is loaded from the library */ |
| 2 | |
Guido van Rossum | be10c20 | 1998-08-08 20:01:22 +0000 | [diff] [blame] | 3 | #include "Python.h" |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 4 | #include <locale.h> |
Guido van Rossum | be10c20 | 1998-08-08 20:01:22 +0000 | [diff] [blame] | 5 | |
Tim Peters | 4643bd9 | 2002-12-28 21:56:08 +0000 | [diff] [blame] | 6 | #ifdef __FreeBSD__ |
| 7 | #include <floatingpoint.h> |
| 8 | #endif |
| 9 | |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 10 | #ifdef MS_WINDOWS |
| 11 | int |
| 12 | wmain(int argc, wchar_t **argv) |
| 13 | { |
| 14 | return Py_Main(argc, argv); |
| 15 | } |
| 16 | #else |
Guido van Rossum | 7c14103 | 1997-08-15 02:52:08 +0000 | [diff] [blame] | 17 | int |
Fredrik Lundh | faa209d6 | 2000-07-09 20:35:15 +0000 | [diff] [blame] | 18 | main(int argc, char **argv) |
Guido van Rossum | 4c04be6 | 1997-07-19 19:25:33 +0000 | [diff] [blame] | 19 | { |
Benjamin Peterson | 08a8f5f | 2008-10-19 14:15:00 +0000 | [diff] [blame] | 20 | wchar_t **argv_copy = (wchar_t **)PyMem_Malloc(sizeof(wchar_t*)*argc); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 21 | /* We need a second copies, as Python might modify the first one. */ |
Benjamin Peterson | 08a8f5f | 2008-10-19 14:15:00 +0000 | [diff] [blame] | 22 | wchar_t **argv_copy2 = (wchar_t **)PyMem_Malloc(sizeof(wchar_t*)*argc); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 23 | int i, res; |
| 24 | char *oldloc; |
Tim Peters | 4643bd9 | 2002-12-28 21:56:08 +0000 | [diff] [blame] | 25 | /* 754 requires that FP exceptions run in "no stop" mode by default, |
| 26 | * and until C vendors implement C99's ways to control FP exceptions, |
| 27 | * Python requires non-stop mode. Alas, some platforms enable FP |
| 28 | * exceptions by default. Here we disable them. |
| 29 | */ |
| 30 | #ifdef __FreeBSD__ |
| 31 | fp_except_t m; |
| 32 | |
| 33 | m = fpgetmask(); |
| 34 | fpsetmask(m & ~FP_X_OFL); |
| 35 | #endif |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 36 | if (!argv_copy || !argv_copy2) { |
Amaury Forgeot d'Arc | d0ca955 | 2008-10-07 21:06:18 +0000 | [diff] [blame] | 37 | fprintf(stderr, "out of memory\n"); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 38 | return 1; |
| 39 | } |
Georg Brandl | 26338d1 | 2009-02-27 17:52:38 +0000 | [diff] [blame] | 40 | oldloc = strdup(setlocale(LC_ALL, NULL)); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 41 | setlocale(LC_ALL, ""); |
| 42 | for (i = 0; i < argc; i++) { |
Antoine Pitrou | fff9530 | 2008-09-03 18:58:51 +0000 | [diff] [blame] | 43 | #ifdef HAVE_BROKEN_MBSTOWCS |
| 44 | /* Some platforms have a broken implementation of |
| 45 | * mbstowcs which does not count the characters that |
| 46 | * would result from conversion. Use an upper bound. |
| 47 | */ |
| 48 | size_t argsize = strlen(argv[i]); |
| 49 | #else |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 50 | size_t argsize = mbstowcs(NULL, argv[i], 0); |
Antoine Pitrou | fff9530 | 2008-09-03 18:58:51 +0000 | [diff] [blame] | 51 | #endif |
| 52 | size_t count; |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 53 | if (argsize == (size_t)-1) { |
Amaury Forgeot d'Arc | d0ca955 | 2008-10-07 21:06:18 +0000 | [diff] [blame] | 54 | fprintf(stderr, "Could not convert argument %d to string\n", i); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 55 | return 1; |
| 56 | } |
Benjamin Peterson | 08a8f5f | 2008-10-19 14:15:00 +0000 | [diff] [blame] | 57 | argv_copy[i] = (wchar_t *)PyMem_Malloc((argsize+1)*sizeof(wchar_t)); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 58 | argv_copy2[i] = argv_copy[i]; |
| 59 | if (!argv_copy[i]) { |
Amaury Forgeot d'Arc | d0ca955 | 2008-10-07 21:06:18 +0000 | [diff] [blame] | 60 | fprintf(stderr, "out of memory\n"); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 61 | return 1; |
| 62 | } |
Antoine Pitrou | fff9530 | 2008-09-03 18:58:51 +0000 | [diff] [blame] | 63 | count = mbstowcs(argv_copy[i], argv[i], argsize+1); |
| 64 | if (count == (size_t)-1) { |
Amaury Forgeot d'Arc | d0ca955 | 2008-10-07 21:06:18 +0000 | [diff] [blame] | 65 | fprintf(stderr, "Could not convert argument %d to string\n", i); |
Antoine Pitrou | fff9530 | 2008-09-03 18:58:51 +0000 | [diff] [blame] | 66 | return 1; |
| 67 | } |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 68 | } |
| 69 | setlocale(LC_ALL, oldloc); |
Georg Brandl | 26338d1 | 2009-02-27 17:52:38 +0000 | [diff] [blame] | 70 | free(oldloc); |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 71 | res = Py_Main(argc, argv_copy); |
| 72 | for (i = 0; i < argc; i++) { |
| 73 | PyMem_Free(argv_copy2[i]); |
| 74 | } |
| 75 | PyMem_Free(argv_copy); |
| 76 | PyMem_Free(argv_copy2); |
| 77 | return res; |
Guido van Rossum | 4c04be6 | 1997-07-19 19:25:33 +0000 | [diff] [blame] | 78 | } |
Martin v. Löwis | 790465f | 2008-04-05 20:41:37 +0000 | [diff] [blame] | 79 | #endif |