annotate src/libst.h @ 5655:b7ae5f44b950

Remove some redundant functions, change others to labels, lisp/ lisp/ChangeLog addition: 2012-05-05 Aidan Kehoe <kehoea@parhasard.net> Remove some redundant functions; turn other utility functions into labels, avoiding visibility in the global namespace, and reducing the size of the dumped binary. * auto-save.el (auto-save-unhex): Removed. * auto-save.el (auto-save-unescape-name): Use #'string-to-number instead of #'auto-save-unhex. * files.el (save-some-buffers): * files.el (save-some-buffers-1): Changed to a label. * files.el (not-modified): * gui.el (make-gui-button): * gui.el (gui-button-action): Changed to a label. * gui.el (insert-gui-button): * indent.el (indent-for-tab-command): * indent.el (insert-tab): Changed to a label. * indent.el (indent-rigidly): * isearch-mode.el: * isearch-mode.el (isearch-ring-adjust): * isearch-mode.el (isearch-ring-adjust1): Changed to a label. * isearch-mode.el (isearch-pre-command-hook): * isearch-mode.el (isearch-maybe-frob-keyboard-macros): Changed to a label. * isearch-mode.el (isearch-highlight): * isearch-mode.el (isearch-make-extent): Changed to a label. * itimer.el: * itimer.el (itimer-decrement): Removed, replaced uses with decf. * itimer.el (itimer-increment): Removed, replaced uses with incf. * itimer.el (itimer-signum): Removed, replaced uses with minusp, plusp. * itimer.el (itimer-name): * itimer.el (check-itimer): Removed, replaced with #'check-type calls. * itimer.el (itimer-value): * itimer.el (check-itimer-coerce-string): Removed. * itimer.el (itimer-restart): * itimer.el (itimer-function): * itimer.el (check-nonnegative-number): Removed. * itimer.el (itimer-uses-arguments): * itimer.el (check-string): Removed. * itimer.el (itimer-function-arguments): * itimer.el (itimer-recorded-run-time): * itimer.el (set-itimer-name): * itimer.el (set-itimer-value): * itimer.el (set-itimer-value-internal): * itimer.el (set-itimer-restart): * itimer.el (set-itimer-function): * itimer.el (set-itimer-is-idle): * itimer.el (set-itimer-recorded-run-time): * itimer.el (get-itimer): * itimer.el (delete-itimer): * itimer.el (start-itimer): * itimer.el (activate-itimer): * itimer.el (itimer-edit-set-field): * itimer.el (itimer-edit-next-field): * itimer.el (itimer-edit-previous-field): Use incf, decf, plusp, minusp and the more general argument type checking macros. * lib-complete.el: * lib-complete.el (lib-complete:better-root): Changed to a label. * lib-complete.el (lib-complete:get-completion-table): Changed to a label. * lib-complete.el (read-library-internal): Include labels. * lib-complete.el (lib-complete:cache-completions): Changed to a label. * minibuf.el (read-buffer): Use #'set-difference, don't reinvent it. * newcomment.el (comment-padright): Use a label instead of repeating a lambda expression. * packages.el (package-get-key): * packages.el (package-get-key-1): Removed, use #'getf instead. * simple.el (kill-backward-chars): Removed; this isn't used. * simple.el (what-cursor-position): (lambda (arg) (format "%S" arg) -> #'prin1-to-string. * simple.el (debug-print-1): Renamed to #'debug-print. * simple.el (debug-print): Removed, #'debug-print-1 was equivalent. * subr.el (integer-to-bit-vector): check-nonnegative-number no longer available. * widget.el (define-widget): * widget.el (define-widget-keywords): Removed, this was long obsolete.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 05 May 2012 18:42:00 +0100
parents 74fd4e045ea6
children 697ef44129c6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* libst.h - include file for portable sound tools library
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 **
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ** Copyright (C) 1989 by Jef Poskanzer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 **
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ** Permission to use, copy, modify, and distribute this software and its
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 ** documentation for any purpose and without fee is hereby granted, provided
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 ** that the above copyright notice appear in all copies and that both that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 ** copyright notice and this permission notice appear in supporting
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ** documentation. This software is provided "as is" without express or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ** implied warranty.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
15 #ifndef INCLUDED_libst_h_
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
16 #define INCLUDED_libst_h_
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
17
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 #define SAMPLES_PER_SECOND 8192
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 #define MINLIN -32768
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 #define MAXLIN 32767
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 #define LINCLIP(x) do { if ( x < MINLIN ) x = MINLIN ; else if ( x > MAXLIN ) x = MAXLIN; } while ( 0 )
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 unsigned char st_linear_to_ulaw( /* int sample */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 int st_ulaw_to_linear_slow( /* unsigned char ulawbyte */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 ** This macro converts from ulaw to 16 bit linear, faster.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 **
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ** Jef Poskanzer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 ** 23 October 1989
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 **
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 ** Input: 8 bit ulaw sample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 ** Output: signed 16 bit linear sample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 #define st_ulaw_to_linear(ulawbyte) ulaw_table[ulawbyte]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 static int ulaw_table[256] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 -32124, -31100, -30076, -29052, -28028, -27004, -25980, -24956,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 -23932, -22908, -21884, -20860, -19836, -18812, -17788, -16764,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 -15996, -15484, -14972, -14460, -13948, -13436, -12924, -12412,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 -11900, -11388, -10876, -10364, -9852, -9340, -8828, -8316,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 -7932, -7676, -7420, -7164, -6908, -6652, -6396, -6140,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 -5884, -5628, -5372, -5116, -4860, -4604, -4348, -4092,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 -3900, -3772, -3644, -3516, -3388, -3260, -3132, -3004,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 -2876, -2748, -2620, -2492, -2364, -2236, -2108, -1980,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 -1884, -1820, -1756, -1692, -1628, -1564, -1500, -1436,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 -1372, -1308, -1244, -1180, -1116, -1052, -988, -924,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 -876, -844, -812, -780, -748, -716, -684, -652,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 -620, -588, -556, -524, -492, -460, -428, -396,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 -372, -356, -340, -324, -308, -292, -276, -260,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 -244, -228, -212, -196, -180, -164, -148, -132,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 -120, -112, -104, -96, -88, -80, -72, -64,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 -56, -48, -40, -32, -24, -16, -8, 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 32124, 31100, 30076, 29052, 28028, 27004, 25980, 24956,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 23932, 22908, 21884, 20860, 19836, 18812, 17788, 16764,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 15996, 15484, 14972, 14460, 13948, 13436, 12924, 12412,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 11900, 11388, 10876, 10364, 9852, 9340, 8828, 8316,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 7932, 7676, 7420, 7164, 6908, 6652, 6396, 6140,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 5884, 5628, 5372, 5116, 4860, 4604, 4348, 4092,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 3900, 3772, 3644, 3516, 3388, 3260, 3132, 3004,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 2876, 2748, 2620, 2492, 2364, 2236, 2108, 1980,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 1884, 1820, 1756, 1692, 1628, 1564, 1500, 1436,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 1372, 1308, 1244, 1180, 1116, 1052, 988, 924,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 876, 844, 812, 780, 748, 716, 684, 652,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 620, 588, 556, 524, 492, 460, 428, 396,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 372, 356, 340, 324, 308, 292, 276, 260,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 244, 228, 212, 196, 180, 164, 148, 132,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 120, 112, 104, 96, 88, 80, 72, 64,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 56, 48, 40, 32, 24, 16, 8, 0 };
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
71
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 0
diff changeset
72 #endif /* INCLUDED_libst_h_ */