mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-09-27 02:39:58 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 13

cosmetics: copyright, comments

Browse source
This commit is contained in:
Guido van Rossum 1995-01-22 18:36:13 +00:00
parent f8de0685c9
commit b340466af9
2 changed files with 66 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

37
Mac/Include/macglue.h
View file

@ -1,12 +1,41 @@
#include <Files.h> /***********************************************************
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
The Netherlands.
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 appear in all copies and that
both that copyright notice and this permission notice appear in
supporting documentation, and that the names of Stichting Mathematisch
Centrum or CWI not be used in advertising or publicity pertaining to
distribution of the software without specific, written prior permission.
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM 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.
******************************************************************/
#include <Types.h> #include <Types.h>
#include <Resources.h> #include <Files.h>
char *macstrerror Py_PROTO((int)); /* strerror with mac errors */ char *macstrerror Py_PROTO((int)); /* strerror with mac errors */
PyObject *PyErr_Mac Py_PROTO((PyObject *, int)); /* Exception with a mac error */ PyObject *PyErr_Mac Py_PROTO((PyObject *, int)); /* Exception with a mac error */
int PyMac_Idle Py_PROTO((void)); /* Idle routine */ int PyMac_Idle Py_PROTO((void)); /* Idle routine */
int PyMac_GetOSType Py_PROTO((PyObject *, ResType *)); /* argument parser for OSType */
int PyMac_GetOSType Py_PROTO((PyObject *, OSType *)); /* argument parser for OSType */
PyObject *PyMac_BuildOSType Py_PROTO((OSType)); /* Convert OSType to PyObject */
int PyMac_GetStr255 Py_PROTO((PyObject *, Str255)); /* argument parser for Str255 */ int PyMac_GetStr255 Py_PROTO((PyObject *, Str255)); /* argument parser for Str255 */
PyObject *PyMac_BuildStr255 Py_PROTO((Str255)); /* Convert Str255 to PyObject */
int PyMac_GetFSSpec Py_PROTO((PyObject *, FSSpec *)); /* argument parser for FSSpec */ int PyMac_GetFSSpec Py_PROTO((PyObject *, FSSpec *)); /* argument parser for FSSpec */
PyObject *PyMac_BuildFSSpec Py_PROTO((FSSpec *)); /* Convert FSSpec to PyObject */ PyObject *PyMac_BuildFSSpec Py_PROTO((FSSpec *)); /* Convert FSSpec to PyObject */
PyObject *PyMac_BuildOSType Py_PROTO((OSType)); /* Convert OSType to PyObject */

48
Mac/Python/macglue.c
View file

@ -1,13 +1,26 @@
/* /***********************************************************
** macglue - A couple of mac-specific routines often needed. Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
** The Netherlands.
** Jack Jansen, CWI, 1994.
** Some routines by Guido, moved here from macosmodule.c All Rights Reserved
** (since they are useable by other modules as well).
*/ Permission to use, copy, modify, and distribute this software and its
#ifdef HAVE_CONFIG_H documentation for any purpose and without fee is hereby granted,
#include "config.h" provided that the above copyright notice appear in all copies and that
#endif both that copyright notice and this permission notice appear in
supporting documentation, and that the names of Stichting Mathematisch
Centrum or CWI not be used in advertising or publicity pertaining to
distribution of the software without specific, written prior permission.
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM 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.
******************************************************************/
#include "Python.h" #include "Python.h"
#include "macglue.h" #include "macglue.h"
@ -19,7 +32,7 @@
#include <Windows.h> #include <Windows.h>
#include <Desk.h> #include <Desk.h>
/* We should include Errors.h here, but it has a name conflict /* XXX We should include Errors.h here, but it has a name conflict
** with the python errors.h. */ ** with the python errors.h. */
#define fnfErr -43 #define fnfErr -43
@ -117,7 +130,7 @@ PyMac_GetOSType(PyObject *v, ResType *pr)
return 1; return 1;
} }
/* Convert a Str255 argument */ /* Convert a Python string to a Str255 */
int int
PyMac_GetStr255(PyObject *v, Str255 pbuf) PyMac_GetStr255(PyObject *v, Str255 pbuf)
{ {
@ -167,9 +180,7 @@ PyMac_GetFSSpec(PyObject *v, FSSpec *fs)
return 1; return 1;
} }
/* /* Return a Python object that describes an FSSpec */
** Return a python object that describes an FSSpec
*/
PyObject * PyObject *
PyMac_BuildFSSpec(FSSpec *fs) PyMac_BuildFSSpec(FSSpec *fs)
{ {
@ -182,3 +193,10 @@ PyMac_BuildOSType(OSType t)
{ {
return PyString_FromStringAndSize((char *)&t, 4); return PyString_FromStringAndSize((char *)&t, 4);
} }
/* Convert a Str255 to a Python string */
PyObject *
PyMac_BuildStr255(Str255 s)
{
return PyString_FromStringAndSize((char *)&s[1], (int)s[0]);
}