Mercurial > emacs
annotate src/ccl.h @ 20331:39baaa9c5980
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 23 Nov 1997 02:26:50 +0000 |
parents | 275d6855275a |
children | b5b97880b7d0 |
rev | line source |
---|---|
17052 | 1 /* Header for CCL (Code Conversion Language) interpreter. |
2 Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
18341
33e78cc7f058
Change copyright notices.
Richard M. Stallman <rms@gnu.org>
parents:
17071
diff
changeset
|
3 Licensed to the Free Software Foundation. |
17052 | 4 |
17071 | 5 This file is part of GNU Emacs. |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
9 the Free Software Foundation; either version 2, or (at your option) | |
10 any later version. | |
17052 | 11 |
17071 | 12 GNU Emacs is distributed in the hope that it will be useful, |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
17052 | 16 |
17071 | 17 You should have received a copy of the GNU General Public License |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 Boston, MA 02111-1307, USA. */ | |
17052 | 21 |
22 #ifndef _CCL_H | |
23 #define _CCL_H | |
24 | |
25 /* Structure to hold information about running CCL code. Read | |
26 comments in the file ccl.c for the detail of each field. */ | |
27 struct ccl_program { | |
28 int size; /* Size of the compiled code. */ | |
29 Lisp_Object *prog; /* Pointer into the compiled code. */ | |
30 int ic; /* Instruction Counter (index for PROG). */ | |
31 int eof_ic; /* Instruction Counter for end-of-file | |
32 processing code. */ | |
33 int reg[8]; /* CCL registers, reg[7] is used for | |
34 condition flag of relational | |
35 operations. */ | |
36 int last_block; /* Set to 1 while processing the last | |
37 block. */ | |
38 int status; /* Exit status of the CCL program. */ | |
39 int buf_magnification; /* Output buffer magnification. How | |
40 many times bigger the output buffer | |
41 should be than the input buffer. */ | |
42 }; | |
43 | |
44 /* This data type is used for the spec field of the structure | |
45 coding_system. */ | |
46 | |
47 struct ccl_spec { | |
48 struct ccl_program decoder; | |
49 struct ccl_program encoder; | |
50 }; | |
51 | |
52 /* Alist of fontname patterns vs corresponding CCL program. */ | |
53 extern Lisp_Object Vfont_ccl_encoder_alist; | |
54 | |
20306
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
55 /* Setup fields of the structure pointed by CCL appropriately for the |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
56 execution of compiled CCL code in VEC (vector of integer). */ |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
57 extern void setup_ccl_program P_ ((struct ccl_program *, Lisp_Object)); |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
58 |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
59 extern int ccl_driver P_ ((struct ccl_program *, unsigned char *, |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
60 unsigned char *, int, int, int *)); |
275d6855275a
Add declaration of setup_ccl_program and ccl_driver.
Andreas Schwab <schwab@suse.de>
parents:
18341
diff
changeset
|
61 |
17052 | 62 #endif /* _CCL_H */ |