added snd_hctl_ctl() function

ordinary mixer:
  - revised Ordinary Mixer I/O type
  - sndo_mixer_open() take PCMs rather than strings to pass
    the real relationship
  - an initial version of toplevel alisp script
more alisp development:
  - renamed a* functions to A* functions (acall -> Acall etc.)
  - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)

src/conf/cards/Makefile.am

@@ -23,7 +23,18 @@ cfg_files = aliases.conf \
 	VIA8233A.conf \
 	VX222.conf \
 	VXPocket.conf \
-	VXPocket440.conf
+	VXPocket440.conf \
+\
+	aliases.alisp
 
-EXTRA_DIST = $(cfg_files)
 alsa_DATA = $(cfg_files)
+
+SI7018dir = $(datadir)/alsa/cards/SI7018
+SI7018_files = \
+	SI7018/sndoc-mixer.alisp \
+	SI7018/sndop-mixer.alisp
+SI7018_DATA = $(SI7018_files)
+
+EXTRA_DIST =
+	$(cfg_files) \
+	$(SI7018_files)

src/conf/cards/SI7018/sndoc-mixer.alisp

@@ -0,0 +1,4 @@
+(defun sndoc_mixer_open (hctl)
+  (princ "sndoc_mixer_open\n")
+  0
+)

src/conf/cards/SI7018/sndop-mixer.alisp

@@ -0,0 +1,4 @@
+(defun sndop_mixer_open (hctl)
+  (princ "sndop_mixer_open\n")
+  0
+)

src/conf/cards/aliases.alisp

@@ -0,0 +1,25 @@
+(setq snd_card_aliases_array
+  (
+    ("YMF724" . "YMF744")
+    ("YMF724F" . "YMF744")
+    ("YMF740" . "YMF744")
+    ("YMF740C" . "YMF744")
+    ("YMF754" . "YMF744")
+    ("CMIPCI" . "CMI8338")
+    ("CMI8738" . "CMI8338")
+    ("CMI8738-MC4" . "CMI8738-MC6")
+    ("E-mu APS" . "EMU10K1")
+    ("GUS Max" . "GUS")
+    ("GUS ACE" . "GUS")
+    ("GUS Extreme" . "GUS")
+    ("AMD InterWave" . "GUS")
+    ("Dynasonic 3-D" . "GUS")
+    ("InterWave STB" . "GUS")
+  )
+)
+
+(defun snd_card_alias (cardname)
+  (setq r (assq cardname snd_card_aliases_array))
+  (setq r (if (null r) cardname r))
+  (unsetq r)
+)