mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-01 03:53:33 +00:00
9b29358511
Status lines for Emacs and Vim have been added to Python sources so they'll be easier to edit using Python's preferred coding style. Some DNS helper functions have been broken up into multiple files. It's nice to have one function per file whenever possible, since that way we don't need -ffunction-sections. Another reason it's good to have small source files, is because the build will be enforcing resource limits on compilation and testing soon.
128 lines
4.2 KiB
C
128 lines
4.2 KiB
C
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:4;tab-width:8;coding:utf-8 -*-│
|
|
│vi: set net ft=c ts=4 sts=4 sw=4 fenc=utf-8 :vi│
|
|
╞══════════════════════════════════════════════════════════════════════════════╡
|
|
│ Python 3 │
|
|
│ https://docs.python.org/3/license.html │
|
|
╚─────────────────────────────────────────────────────────────────────────────*/
|
|
#include "libc/stdio/stdio.h"
|
|
#include "libc/str/str.h"
|
|
#include "third_party/python/Include/pygetopt.h"
|
|
/* clang-format off */
|
|
|
|
/*---------------------------------------------------------------------------*
|
|
* <RCS keywords>
|
|
*
|
|
* C++ Library
|
|
*
|
|
* Copyright 1992-1994, David Gottner
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software and its
|
|
* documentation for any purpose and without fee is hereby granted,
|
|
* provided that the above copyright notice, this permission notice and
|
|
* the following disclaimer notice appear unmodified in all copies.
|
|
*
|
|
* I DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL I
|
|
* BE LIABLE FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY
|
|
* DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER
|
|
* IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
* OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
*
|
|
* Nevertheless, I would like to know about bugs in this library or
|
|
* suggestions for improvment. Send bug reports and feedback to
|
|
* davegottner@delphi.com.
|
|
*---------------------------------------------------------------------------*/
|
|
|
|
/* Modified to support --help and --version, as well as /? on Windows
|
|
* by Georg Brandl. */
|
|
|
|
int _PyOS_opterr = 1; /* generate error messages */
|
|
int _PyOS_optind = 1; /* index into argv array */
|
|
wchar_t *_PyOS_optarg = NULL; /* optional argument */
|
|
|
|
static wchar_t *opt_ptr = L"";
|
|
|
|
void _PyOS_ResetGetOpt(void)
|
|
{
|
|
_PyOS_opterr = 1;
|
|
_PyOS_optind = 1;
|
|
_PyOS_optarg = NULL;
|
|
opt_ptr = L"";
|
|
}
|
|
|
|
int _PyOS_GetOpt(int argc, wchar_t **argv, wchar_t *optstring)
|
|
{
|
|
wchar_t *ptr;
|
|
wchar_t option;
|
|
|
|
if (*opt_ptr == '\0') {
|
|
|
|
if (_PyOS_optind >= argc)
|
|
return -1;
|
|
#ifdef MS_WINDOWS
|
|
else if (wcscmp(argv[_PyOS_optind], L"/?") == 0) {
|
|
++_PyOS_optind;
|
|
return 'h';
|
|
}
|
|
#endif
|
|
|
|
else if (argv[_PyOS_optind][0] != L'-' ||
|
|
argv[_PyOS_optind][1] == L'\0' /* lone dash */ )
|
|
return -1;
|
|
|
|
else if (wcscmp(argv[_PyOS_optind], L"--") == 0) {
|
|
++_PyOS_optind;
|
|
return -1;
|
|
}
|
|
|
|
else if (wcscmp(argv[_PyOS_optind], L"--help") == 0) {
|
|
++_PyOS_optind;
|
|
return 'h';
|
|
}
|
|
|
|
else if (wcscmp(argv[_PyOS_optind], L"--version") == 0) {
|
|
++_PyOS_optind;
|
|
return 'V';
|
|
}
|
|
|
|
|
|
opt_ptr = &argv[_PyOS_optind++][1];
|
|
}
|
|
|
|
if ((option = *opt_ptr++) == L'\0')
|
|
return -1;
|
|
|
|
if (option == 'J') {
|
|
if (_PyOS_opterr)
|
|
fprintf(stderr, "-J is reserved for Jython\n");
|
|
return '_';
|
|
}
|
|
|
|
if ((ptr = wcschr(optstring, option)) == NULL) {
|
|
if (_PyOS_opterr)
|
|
fprintf(stderr, "Unknown option: -%c\n", (char)option);
|
|
return '_';
|
|
}
|
|
|
|
if (*(ptr + 1) == L':') {
|
|
if (*opt_ptr != L'\0') {
|
|
_PyOS_optarg = opt_ptr;
|
|
opt_ptr = L"";
|
|
}
|
|
|
|
else {
|
|
if (_PyOS_optind >= argc) {
|
|
if (_PyOS_opterr)
|
|
fprintf(stderr,
|
|
"Argument expected for the -%c option\n", (char)option);
|
|
return '_';
|
|
}
|
|
|
|
_PyOS_optarg = argv[_PyOS_optind++];
|
|
}
|
|
}
|
|
|
|
return option;
|
|
}
|