aliases.alisp 687 B

1234567891011121314151617181920212223242526272829
  1. (setq snd_card_aliases_array
  2. (
  3. ("YMF724" . "YMF744")
  4. ("YMF724F" . "YMF744")
  5. ("YMF740" . "YMF744")
  6. ("YMF740C" . "YMF744")
  7. ("YMF754" . "YMF744")
  8. ("CMIPCI" . "CMI8338")
  9. ("CMI8738" . "CMI8338")
  10. ("CMI8738-MC4" . "CMI8738-MC6")
  11. ("E-mu APS" . "EMU10K1")
  12. ("GUS Max" . "GUS")
  13. ("GUS ACE" . "GUS")
  14. ("GUS Extreme" . "GUS")
  15. ("AMD InterWave" . "GUS")
  16. ("Dynasonic 3-D" . "GUS")
  17. ("InterWave STB" . "GUS")
  18. )
  19. )
  20. (defun snd_card_alias (cardname)
  21. (setq r (assq cardname snd_card_aliases_array))
  22. (setq r (if (null r) cardname r))
  23. (unsetq r)
  24. )
  25. (defun snd_card_alias_unset ()
  26. (unsetq snd_card_aliases_array snd_card_alias)
  27. )