aboutsummaryrefslogtreecommitdiffstats
path: root/src/ccl.c
diff options
context:
space:
mode:
authorDan Nicolaescu2010-07-04 00:50:25 -0700
committerDan Nicolaescu2010-07-04 00:50:25 -0700
commit971de7fb158335fbda39525feb2d7776a26bc030 (patch)
tree605333d85f16e35bb06baffcb66ac49f4ec0dce9 /src/ccl.c
parentb8463cbfbe2c5183cf40772df2746e58b787ddeb (diff)
downloademacs-971de7fb158335fbda39525feb2d7776a26bc030.tar.gz
emacs-971de7fb158335fbda39525feb2d7776a26bc030.zip
Convert (most) functions in src to standard C.
* src/alloc.c: Convert function definitions to standard C. * src/atimer.c: * src/bidi.c: * src/bytecode.c: * src/callint.c: * src/callproc.c: * src/casefiddle.c: * src/casetab.c: * src/category.c: * src/ccl.c: * src/character.c: * src/charset.c: * src/chartab.c: * src/cmds.c: * src/coding.c: * src/composite.c: * src/data.c: * src/dbusbind.c: * src/dired.c: * src/dispnew.c: * src/doc.c: * src/doprnt.c: * src/ecrt0.c: * src/editfns.c: * src/fileio.c: * src/filelock.c: * src/filemode.c: * src/fns.c: * src/font.c: * src/fontset.c: * src/frame.c: * src/fringe.c: * src/ftfont.c: * src/ftxfont.c: * src/gtkutil.c: * src/indent.c: * src/insdel.c: * src/intervals.c: * src/keymap.c: * src/lread.c: * src/macros.c: * src/marker.c: * src/md5.c: * src/menu.c: * src/minibuf.c: * src/prefix-args.c: * src/print.c: * src/ralloc.c: * src/regex.c: * src/region-cache.c: * src/scroll.c: * src/search.c: * src/sound.c: * src/strftime.c: * src/syntax.c: * src/sysdep.c: * src/termcap.c: * src/terminal.c: * src/terminfo.c: * src/textprop.c: * src/tparam.c: * src/undo.c: * src/unexelf.c: * src/window.c: * src/xfaces.c: * src/xfns.c: * src/xfont.c: * src/xftfont.c: * src/xgselect.c: * src/xmenu.c: * src/xrdb.c: * src/xselect.c: * src/xsettings.c: * src/xsmfns.c: * src/xterm.c: Likewise.
Diffstat (limited to 'src/ccl.c')
-rw-r--r--src/ccl.c22
1 files changed, 6 insertions, 16 deletions
diff --git a/src/ccl.c b/src/ccl.c
index c33df9e56de..4ddc56a707f 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -862,11 +862,7 @@ struct ccl_prog_stack
862static struct ccl_prog_stack ccl_prog_stack_struct[256]; 862static struct ccl_prog_stack ccl_prog_stack_struct[256];
863 863
864void 864void
865ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) 865ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size, int dst_size, Lisp_Object charset_list)
866 struct ccl_program *ccl;
867 int *source, *destination;
868 int src_size, dst_size;
869 Lisp_Object charset_list;
870{ 866{
871 register int *reg = ccl->reg; 867 register int *reg = ccl->reg;
872 register int ic = ccl->ic; 868 register int ic = ccl->ic;
@@ -1795,8 +1791,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list)
1795 or nil if CCL contains invalid data. */ 1791 or nil if CCL contains invalid data. */
1796 1792
1797static Lisp_Object 1793static Lisp_Object
1798resolve_symbol_ccl_program (ccl) 1794resolve_symbol_ccl_program (Lisp_Object ccl)
1799 Lisp_Object ccl;
1800{ 1795{
1801 int i, veclen, unresolved = 0; 1796 int i, veclen, unresolved = 0;
1802 Lisp_Object result, contents, val; 1797 Lisp_Object result, contents, val;
@@ -1867,9 +1862,7 @@ resolve_symbol_ccl_program (ccl)
1867 symbols, return Qnil. */ 1862 symbols, return Qnil. */
1868 1863
1869static Lisp_Object 1864static Lisp_Object
1870ccl_get_compiled_code (ccl_prog, idx) 1865ccl_get_compiled_code (Lisp_Object ccl_prog, int *idx)
1871 Lisp_Object ccl_prog;
1872 int *idx;
1873{ 1866{
1874 Lisp_Object val, slot; 1867 Lisp_Object val, slot;
1875 1868
@@ -1910,9 +1903,7 @@ ccl_get_compiled_code (ccl_prog, idx)
1910 1903
1911 If CCL_PROG is nil, we just reset the structure pointed by CCL. */ 1904 If CCL_PROG is nil, we just reset the structure pointed by CCL. */
1912int 1905int
1913setup_ccl_program (ccl, ccl_prog) 1906setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog)
1914 struct ccl_program *ccl;
1915 Lisp_Object ccl_prog;
1916{ 1907{
1917 int i; 1908 int i;
1918 1909
@@ -1953,8 +1944,7 @@ setup_ccl_program (ccl, ccl_prog)
1953/* Check if CCL is updated or not. If not, re-setup members of CCL. */ 1944/* Check if CCL is updated or not. If not, re-setup members of CCL. */
1954 1945
1955int 1946int
1956check_ccl_update (ccl) 1947check_ccl_update (struct ccl_program *ccl)
1957 struct ccl_program *ccl;
1958{ 1948{
1959 Lisp_Object slot, ccl_prog; 1949 Lisp_Object slot, ccl_prog;
1960 1950
@@ -2315,7 +2305,7 @@ Return index number of the registered map. */)
2315 2305
2316 2306
2317void 2307void
2318syms_of_ccl () 2308syms_of_ccl (void)
2319{ 2309{
2320 staticpro (&Vccl_program_table); 2310 staticpro (&Vccl_program_table);
2321 Vccl_program_table = Fmake_vector (make_number (32), Qnil); 2311 Vccl_program_table = Fmake_vector (make_number (32), Qnil);