vim: src/sound.c annotate

annotate src/sound.c @ 17642:fe637f192d80 v8.1.1818

patch 8.1.1818: unused variable commit https://github.com/vim/vim/commit/b4a88a0441a65a0c9411c294825a08ca703f541e Author: Bram Moolenaar <Bram@vim.org> Date: Mon Aug 5 20:18:14 2019 +0200 patch 8.1.1818: unused variable Problem: Unused variable. Solution: Remove the variable. (Mike Williams)

author	Bram Moolenaar <Bram@vim.org>
date	Mon, 05 Aug 2019 20:30:06 +0200
parents	c08a3c552c1d
children	10696f279e20

rev	line source
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * sound.c: functions related making noise
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	16 #if defined(FEAT_SOUND) \|\| defined(PROTO)
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	17
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 static long sound_id = 0;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	19
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 typedef struct soundcb_S soundcb_T;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	21
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 struct soundcb_S {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 callback_T snd_callback;
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	24 #ifdef MSWIN
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	25 MCIDEVICEID snd_device_id;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	26 long snd_id;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	27 #endif
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 soundcb_T *snd_next;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 };
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	30
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 static soundcb_T *first_callback = NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	32
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 static soundcb_T *
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 get_sound_callback(typval_T *arg)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 callback_T callback;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 soundcb_T *soundcb;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	38
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 if (arg->v_type == VAR_UNKNOWN)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 return NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 callback = get_callback(arg);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 if (callback.cb_name == NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 return NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	44
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 soundcb = ALLOC_ONE(soundcb_T);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 if (soundcb == NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 free_callback(&callback);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 else
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 soundcb->snd_next = first_callback;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 first_callback = soundcb;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 set_callback(&soundcb->snd_callback, &callback);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 return soundcb;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	56
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 /*
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 * Delete "soundcb" from the list of pending callbacks.
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 */
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 static void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 delete_sound_callback(soundcb_T *soundcb)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 soundcb_T *p;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 soundcb_T *prev = NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	65
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 for (p = first_callback; p != NULL; prev = p, p = p->snd_next)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 if (p == soundcb)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 if (prev == NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 first_callback = p->snd_next;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 else
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 prev->snd_next = p->snd_next;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 free_callback(&p->snd_callback);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 vim_free(p);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 break;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	78
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	79 #if defined(HAVE_CANBERRA) \|\| defined(PROTO)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	80
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	81 /*
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	82 * Sound implementation for Linux/Unix/Mac using libcanberra.
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	83 */
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	84 # include <canberra.h>
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	85
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	86 static ca_context *context = NULL;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	87
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 static void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 sound_callback(
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 ca_context *c UNUSED,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 uint32_t id,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 int error_code,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 void *userdata)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 soundcb_T soundcb = (soundcb_T )userdata;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 typval_T argv[3];
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 typval_T rettv;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	98
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 argv[0].v_type = VAR_NUMBER;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 argv[0].vval.v_number = id;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 argv[1].v_type = VAR_NUMBER;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 argv[1].vval.v_number = error_code == CA_SUCCESS ? 0
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 : error_code == CA_ERROR_CANCELED
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 \|\| error_code == CA_ERROR_DESTROYED
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 ? 1 : 2;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 argv[2].v_type = VAR_UNKNOWN;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	107
17610 c08a3c552c1d patch 8.1.1802: missing change to call_callback() Bram Moolenaar <Bram@vim.org> parents: 17131 diff changeset	108 call_callback(&soundcb->snd_callback, -1, &rettv, 2, argv);
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 clear_tv(&rettv);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	110
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 delete_sound_callback(soundcb);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 redraw_after_callback(TRUE);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	114
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 static void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 sound_play_common(typval_T argvars, typval_T rettv, int playfile)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 if (context == NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 ca_context_create(&context);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 if (context != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 soundcb_T *soundcb = get_sound_callback(&argvars[1]);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 int res = CA_ERROR_INVALID;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	124
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 ++sound_id;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 if (soundcb == NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 res = ca_context_play(context, sound_id,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 playfile ? CA_PROP_MEDIA_FILENAME : CA_PROP_EVENT_ID,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 tv_get_string(&argvars[0]),
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 CA_PROP_CANBERRA_CACHE_CONTROL, "volatile",
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 NULL);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 else
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 static ca_proplist *proplist = NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	137
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 ca_proplist_create(&proplist);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 if (proplist != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 if (playfile)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 ca_proplist_sets(proplist, CA_PROP_MEDIA_FILENAME,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 (char *)tv_get_string(&argvars[0]));
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 else
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 ca_proplist_sets(proplist, CA_PROP_EVENT_ID,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 (char *)tv_get_string(&argvars[0]));
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 ca_proplist_sets(proplist, CA_PROP_CANBERRA_CACHE_CONTROL,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 "volatile");
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 res = ca_context_play_full(context, sound_id, proplist,
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 sound_callback, soundcb);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 if (res != CA_SUCCESS)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 delete_sound_callback(soundcb);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	153
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	154 ca_proplist_destroy(proplist);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 rettv->vval.v_number = res == CA_SUCCESS ? sound_id : 0;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	160
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 f_sound_playevent(typval_T argvars, typval_T rettv)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 sound_play_common(argvars, rettv, FALSE);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	166
17026 905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	167 /*
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	168 * implementation of sound_playfile({path} [, {callback}])
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	169 */
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 f_sound_playfile(typval_T argvars, typval_T rettv)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 sound_play_common(argvars, rettv, TRUE);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	175
17026 905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	176 /*
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	177 * implementation of sound_stop({id})
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	178 */
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 f_sound_stop(typval_T argvars, typval_T rettv UNUSED)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 if (context != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 ca_context_cancel(context, tv_get_number(&argvars[0]));
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	185
17026 905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	186 /*
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	187 * implementation of sound_clear()
905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	188 */
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 void
17026 905e1b154058 patch 8.1.1513: all popup functionality is in functions, except :popupclear Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	190 f_sound_clear(typval_T argvars UNUSED, typval_T rettv UNUSED)
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 if (context != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 ca_context_destroy(context);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 context = NULL;
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 }
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	198
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	199 # if defined(EXITFREE) \|\| defined(PROTO)
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 void
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 sound_free(void)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	202 {
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 if (context != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 ca_context_destroy(context);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 while (first_callback != NULL)
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 delete_sound_callback(first_callback);
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 }
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	208 # endif
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	209
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	210 #elif defined(MSWIN)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	211
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	212 /*
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	213 * Sound implementation for MS-Windows.
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	214 */
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	215
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	216 static HWND g_hWndSound = NULL;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	217
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	218 static LRESULT CALLBACK
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	219 sound_wndproc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	220 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	221 soundcb_T *p;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	222
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	223 switch (message)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	224 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	225 case MM_MCINOTIFY:
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	226 for (p = first_callback; p != NULL; p = p->snd_next)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	227 if (p->snd_device_id == (MCIDEVICEID) lParam)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	228 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	229 typval_T argv[3];
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	230 typval_T rettv;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	231 char buf[32];
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	232
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	233 vim_snprintf(buf, sizeof(buf), "close sound%06ld",
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	234 p->snd_id);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	235 mciSendString(buf, NULL, 0, 0);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	236
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	237 argv[0].v_type = VAR_NUMBER;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	238 argv[0].vval.v_number = p->snd_id;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	239 argv[1].v_type = VAR_NUMBER;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	240 argv[1].vval.v_number =
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	241 wParam == MCI_NOTIFY_SUCCESSFUL ? 0
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	242 : wParam == MCI_NOTIFY_ABORTED ? 1 : 2;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	243 argv[2].v_type = VAR_UNKNOWN;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	244
17610 c08a3c552c1d patch 8.1.1802: missing change to call_callback() Bram Moolenaar <Bram@vim.org> parents: 17131 diff changeset	245 call_callback(&p->snd_callback, -1, &rettv, 2, argv);
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	246 clear_tv(&rettv);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	247
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	248 delete_sound_callback(p);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	249 redraw_after_callback(TRUE);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	250
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	251 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	252 break;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	253 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	254
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	255 return DefWindowProc(hwnd, message, wParam, lParam);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	256 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	257
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	258 static HWND
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	259 sound_window()
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	260 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	261 if (g_hWndSound == NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	262 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	263 LPCSTR clazz = "VimSound";
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	264 WNDCLASS wndclass = {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	265 0, sound_wndproc, 0, 0, g_hinst, NULL, 0, 0, NULL, clazz };
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	266 RegisterClass(&wndclass);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	267 g_hWndSound = CreateWindow(clazz, NULL, 0, 0, 0, 0, 0,
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	268 HWND_MESSAGE, NULL, g_hinst, NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	269 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	270
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	271 return g_hWndSound;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	272 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	273
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	274 void
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	275 f_sound_playevent(typval_T argvars, typval_T rettv)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	276 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	277 WCHAR *wp;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	278
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	279 rettv->v_type = VAR_NUMBER;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	280 rettv->vval.v_number = 0;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	281
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	282 wp = enc_to_utf16(tv_get_string(&argvars[0]), NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	283 if (wp == NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	284 return;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	285
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	286 PlaySoundW(wp, NULL, SND_ASYNC \| SND_ALIAS);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	287 free(wp);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	288
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	289 rettv->vval.v_number = ++sound_id;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	290 }
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: diff changeset	291
17131 be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	292 void
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	293 f_sound_playfile(typval_T argvars, typval_T rettv)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	294 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	295 long newid = sound_id + 1;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	296 size_t len;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	297 char_u p, esc;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	298 WCHAR *wp;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	299 soundcb_T *soundcb;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	300 char buf[32];
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	301 MCIERROR err;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	302
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	303 rettv->v_type = VAR_NUMBER;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	304 rettv->vval.v_number = 0;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	305
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	306 esc = vim_strsave_shellescape(tv_get_string(&argvars[0]), FALSE, FALSE);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	307
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	308 len = STRLEN(esc) + 5 + 18 + 1;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	309 p = alloc(len);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	310 if (p == NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	311 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	312 free(esc);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	313 return;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	314 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	315 vim_snprintf((char *)p, len, "open %s alias sound%06ld", esc, newid);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	316 free(esc);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	317
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	318 wp = enc_to_utf16((char_u *)p, NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	319 free(p);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	320 if (wp == NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	321 return;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	322
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	323 err = mciSendStringW(wp, NULL, 0, sound_window());
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	324 free(wp);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	325 if (err != 0)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	326 return;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	327
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	328 vim_snprintf(buf, sizeof(buf), "play sound%06ld notify", newid);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	329 err = mciSendString(buf, NULL, 0, sound_window());
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	330 if (err != 0)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	331 goto failure;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	332
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	333 sound_id = newid;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	334 rettv->vval.v_number = sound_id;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	335
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	336 soundcb = get_sound_callback(&argvars[1]);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	337 if (soundcb != NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	338 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	339 vim_snprintf(buf, sizeof(buf), "sound%06ld", newid);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	340 soundcb->snd_id = newid;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	341 soundcb->snd_device_id = mciGetDeviceID(buf);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	342 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	343 return;
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	344
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	345 failure:
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	346 vim_snprintf(buf, sizeof(buf), "close sound%06ld", newid);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	347 mciSendString(buf, NULL, 0, NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	348 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	349
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	350 void
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	351 f_sound_stop(typval_T argvars, typval_T rettv UNUSED)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	352 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	353 long id = tv_get_number(&argvars[0]);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	354 char buf[32];
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	355
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	356 vim_snprintf(buf, sizeof(buf), "stop sound%06ld", id);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	357 mciSendString(buf, NULL, 0, NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	358 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	359
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	360 void
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	361 f_sound_clear(typval_T argvars UNUSED, typval_T rettv UNUSED)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	362 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	363 PlaySound(NULL, NULL, 0);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	364 mciSendString("close all", NULL, 0, NULL);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	365 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	366
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	367 # if defined(EXITFREE)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	368 void
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	369 sound_free(void)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	370 {
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	371 CloseWindow(g_hWndSound);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	372
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	373 while (first_callback != NULL)
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	374 delete_sound_callback(first_callback);
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	375 }
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	376 # endif
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	377
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	378 #endif // MSWIN
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	379
be5a5cfc991a patch 8.1.1565: MS-Windows: no sound support Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	380 #endif // FEAT_SOUND

Mercurial > vim

annotate src/sound.c @ 17642:fe637f192d80 v8.1.1818