1 #include "EXTERN.h" 2 #include "perl.h" 3 #include "XSUB.h" 4 5 #include "Mix.h" 6 7 static int not_here(char * s)8not_here(char *s) 9 { 10 croak("%s not implemented on this architecture", s); 11 return -1; 12 } 13 14 static char * constant(char * name,int arg)15constant(char *name, int arg) 16 { 17 errno = 0; 18 switch (*name) { 19 case 'A': 20 break; 21 case 'B': 22 break; 23 case 'C': 24 break; 25 case 'D': 26 break; 27 case 'E': 28 break; 29 case 'F': 30 break; 31 case 'G': 32 break; 33 case 'H': 34 break; 35 case 'I': 36 break; 37 case 'J': 38 break; 39 case 'K': 40 break; 41 case 'L': 42 break; 43 case 'M': 44 if (strEQ(name, "MIXER")) 45 #ifdef MIXER 46 return MIXER; 47 #else 48 goto not_there; 49 #endif 50 break; 51 case 'N': 52 break; 53 case 'O': 54 break; 55 case 'P': 56 break; 57 case 'Q': 58 break; 59 case 'R': 60 break; 61 case 'S': 62 break; 63 case 'T': 64 break; 65 case 'U': 66 break; 67 case 'V': 68 break; 69 case 'W': 70 break; 71 case 'X': 72 break; 73 case 'Y': 74 break; 75 case 'Z': 76 break; 77 } 78 errno = EINVAL; 79 return 0; 80 81 not_there: 82 errno = ENOENT; 83 return 0; 84 } 85 86 87 MODULE = Audio::Mixer PACKAGE = Audio::Mixer 88 89 90 char * 91 constant(name,arg) 92 char * name 93 int arg 94 95 96 int 97 get_param_val(cntrl) 98 char * cntrl 99 OUTPUT: 100 RETVAL 101 102 int 103 set_param_val(cntrl, lcval, rcval) 104 char * cntrl 105 int lcval 106 int rcval 107 OUTPUT: 108 RETVAL 109 110 int 111 init_mixer() 112 OUTPUT: 113 RETVAL 114 115 int 116 close_mixer() 117 OUTPUT: 118 RETVAL 119 120 int 121 get_params_num() 122 OUTPUT: 123 RETVAL 124 125 char * 126 get_params_list() 127 OUTPUT: 128 RETVAL 129 130 int 131 set_mixer_dev(fname) 132 char * fname 133 OUTPUT: 134 RETVAL 135 136 137 char * 138 get_source() 139 OUTPUT: 140 RETVAL 141 142 int 143 set_source(cntrl) 144 char * cntrl 145 OUTPUT: 146 RETVAL 147 148