[Python-checkins] CVS: python/dist/src/Mac/Modules/snd _Sndmodule.c,1.6,1.6.4.1 sndscan.py,1.15,1.15.20.1 sndsupport.py,1.18,1.18.14.1

[Jack Jansen]

Update of /cvsroot/python/python/dist/src/Mac/Modules/snd
In directory usw-pr-cvs1:/tmp/cvs-serv3210/snd

Modified Files:
      Tag: release22-maint
	_Sndmodule.c sndscan.py sndsupport.py 
Log Message:
Backport of 1.7:
Added SndRecord and (classic only) SndRecordToFile.



Index: _Sndmodule.c
===================================================================
RCS file: /cvsroot/python/python/dist/src/Mac/Modules/snd/_Sndmodule.c,v
retrieving revision 1.6
retrieving revision 1.6.4.1
diff -C2 -d -r1.6 -r1.6.4.1
*** _Sndmodule.c	18 Dec 2001 15:36:25 -0000	1.6
--- _Sndmodule.c	27 Feb 2002 23:18:00 -0000	1.6.4.1
***************
*** 962,965 ****
--- 962,1011 ----
  }
  
+ static PyObject *Snd_SndRecord(PyObject *_self, PyObject *_args)
+ {
+ 	PyObject *_res = NULL;
+ 	OSErr _err;
+ 	Point corner;
+ 	OSType quality;
+ 	SndListHandle sndHandle;
+ 	if (!PyArg_ParseTuple(_args, "O&O&",
+ 	                      PyMac_GetPoint, &corner,
+ 	                      PyMac_GetOSType, &quality))
+ 		return NULL;
+ 	_err = SndRecord((ModalFilterUPP)0,
+ 	                 corner,
+ 	                 quality,
+ 	                 &sndHandle);
+ 	if (_err != noErr) return PyMac_Error(_err);
+ 	_res = Py_BuildValue("O&",
+ 	                     ResObj_New, sndHandle);
+ 	return _res;
+ }
+ 
+ #if !TARGET_API_MAC_CARBON
+ 
+ static PyObject *Snd_SndRecordToFile(PyObject *_self, PyObject *_args)
+ {
+ 	PyObject *_res = NULL;
+ 	OSErr _err;
+ 	Point corner;
+ 	OSType quality;
+ 	short fRefNum;
+ 	if (!PyArg_ParseTuple(_args, "O&O&h",
+ 	                      PyMac_GetPoint, &corner,
+ 	                      PyMac_GetOSType, &quality,
+ 	                      &fRefNum))
+ 		return NULL;
+ 	_err = SndRecordToFile((ModalFilterUPP)0,
+ 	                       corner,
+ 	                       quality,
+ 	                       fRefNum);
+ 	if (_err != noErr) return PyMac_Error(_err);
+ 	Py_INCREF(Py_None);
+ 	_res = Py_None;
+ 	return _res;
+ }
+ #endif
+ 
  static PyObject *Snd_SPBSignInDevice(PyObject *_self, PyObject *_args)
  {
***************
*** 1310,1313 ****
--- 1356,1366 ----
  	{"SPBVersion", (PyCFunction)Snd_SPBVersion, 1,
  	 "() -> (NumVersion _rv)"},
+ 	{"SndRecord", (PyCFunction)Snd_SndRecord, 1,
+ 	 "(Point corner, OSType quality) -> (SndListHandle sndHandle)"},
+ 
+ #if !TARGET_API_MAC_CARBON
+ 	{"SndRecordToFile", (PyCFunction)Snd_SndRecordToFile, 1,
+ 	 "(Point corner, OSType quality, short fRefNum) -> None"},
+ #endif
  	{"SPBSignInDevice", (PyCFunction)Snd_SPBSignInDevice, 1,
  	 "(short deviceRefNum, Str255 deviceName) -> None"},

Index: sndscan.py
===================================================================
RCS file: /cvsroot/python/python/dist/src/Mac/Modules/snd/sndscan.py,v
retrieving revision 1.15
retrieving revision 1.15.20.1
diff -C2 -d -r1.15 -r1.15.20.1
*** sndscan.py	12 Dec 2000 22:10:20 -0000	1.15
--- sndscan.py	27 Feb 2002 23:18:00 -0000	1.15.20.1
***************
*** 65,68 ****
--- 65,69 ----
  				'SndStartFilePlay',
  				'SndPauseFilePlay',
+ 				'SndRecordToFile',
  			])]
  
***************
*** 79,83 ****
  			"SoundComponentData_ptr",
  			"SoundConverter",
- 			"ModalFilterUPP",
  			]
  
--- 80,83 ----

Index: sndsupport.py
===================================================================
RCS file: /cvsroot/python/python/dist/src/Mac/Modules/snd/sndsupport.py,v
retrieving revision 1.18
retrieving revision 1.18.14.1
diff -C2 -d -r1.18 -r1.18.14.1
*** sndsupport.py	5 Sep 2001 10:28:53 -0000	1.18
--- sndsupport.py	27 Feb 2002 23:18:00 -0000	1.18.14.1
***************
*** 46,49 ****
--- 46,50 ----
  SndListHandle = OpaqueByValueType("SndListHandle", "ResObj")
  SPBPtr = OpaqueByValueType("SPBPtr", "SPBObj")
+ ModalFilterUPP = FakeType("(ModalFilterUPP)0")
  
  #