XEmacs 21.2.36 "Notos"

[chise/xemacs-chise.git.1] / src / mule-ccl.c

diff --git a/src/mule-ccl.c b/src/mule-ccl.c
index 4d6aff2..fc15f56 100644 (file)
--- a/src/mule-ccl.c
+++ b/src/mule-ccl.c
@@ -430,7 +430,7 @@ Lisp_Object Vccl_program_table;
                                        extended_command (rrr,RRR,Rrr,ARGS)
                                      */
 
                                        extended_command (rrr,RRR,Rrr,ARGS)
                                      */
 

-/* 
+/*

    Here after, Extended CCL Instructions.
    Bit length of extended command is 14.
    Therefore, the instruction code range is 0..16384(0x3fff).
    Here after, Extended CCL Instructions.
    Bit length of extended command is 14.
    Therefore, the instruction code range is 0..16384(0x3fff).

@@ -489,7 +489,7 @@ Lisp_Object Vccl_program_table;
                                        3:MAP-ID1
                                        4:MAP-ID2
                                        ...
                                        3:MAP-ID1
                                        4:MAP-ID2
                                        ...

-                                    */ 
+                                    */

 
 /* Map the code in reg[rrr] by MAPs starting from the Nth (N =
    reg[RRR]) map.
 
 /* Map the code in reg[rrr] by MAPs starting from the Nth (N =
    reg[RRR]) map.

@@ -560,7 +560,7 @@ Lisp_Object Vccl_program_table;
    where
        STARTPOINT is an offset to be used for indexing a map,
        ENDPOINT is a maximum index number of a map,
    where
        STARTPOINT is an offset to be used for indexing a map,
        ENDPOINT is a maximum index number of a map,

-       VAL and VALn is a number, nil, t, or lambda.  
+       VAL and VALn is a number, nil, t, or lambda.

 
    Valid index range of a map of type (a) is:
        STARTPOINT <= index < STARTPOINT + map_size - 1
 
    Valid index range of a map of type (a) is:
        STARTPOINT <= index < STARTPOINT + map_size - 1

@@ -752,7 +752,7 @@ struct ccl_prog_stack
     int ic;                    /* Instruction Counter.  */
   };
 
     int ic;                    /* Instruction Counter.  */
   };
 

-/* For the moment, we only support depth 256 of stack.  */ 
+/* For the moment, we only support depth 256 of stack.  */

 static struct ccl_prog_stack ccl_prog_stack_struct[256];
 
 int
 static struct ccl_prog_stack ccl_prog_stack_struct[256];
 
 int

@@ -1137,7 +1137,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
                    src++;
                    goto ccl_read_multibyte_character_suspend;
                  }
                    src++;
                    goto ccl_read_multibyte_character_suspend;
                  }

-             
+

                i = *src++;
 #if 0
                if (i == LEADING_CODE_COMPOSITION)
                i = *src++;
 #if 0
                if (i == LEADING_CODE_COMPOSITION)

@@ -1283,7 +1283,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
              SPLIT_CHAR (op, reg[RRR], i, j);
              if (j != -1)
                i = (i << 7) | j;
              SPLIT_CHAR (op, reg[RRR], i, j);
              if (j != -1)
                i = (i << 7) | j;

-             
+

              reg[rrr] = i;
              break;
 
              reg[rrr] = i;
              break;
 

@@ -1309,7 +1309,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
              SPLIT_CHAR (op, reg[RRR], i, j);
              if (j != -1)
                i = (i << 7) | j;
              SPLIT_CHAR (op, reg[RRR], i, j);
              if (j != -1)
                i = (i << 7) | j;

-             
+

              reg[rrr] = i;
              break;
 
              reg[rrr] = i;
              break;
 

@@ -1370,7 +1370,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
                        else
                          continue;
                      }
                        else
                          continue;
                      }

-                   else 
+                   else

                      continue;
 
                    if (NILP (content))
                      continue;
 
                    if (NILP (content))

@@ -1402,7 +1402,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
                ic = fin_ic;
              }
              break;
                ic = fin_ic;
              }
              break;

-             
+

            case CCL_MapMultiple:
              {
                Lisp_Object map, content, attrib, value;
            case CCL_MapMultiple:
              {
                Lisp_Object map, content, attrib, value;

@@ -1479,7 +1479,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
                        else
                          continue;
                      }
                        else
                          continue;
                      }

-                   else 
+                   else

                      continue;
 
                    if (NILP (content))
                      continue;
 
                    if (NILP (content))

@@ -1575,7 +1575,7 @@ ccl_driver (struct ccl_program *ccl, const unsigned char *source,
              }
              break;
 #endif
              }
              break;
 #endif

-             
+

            default:
              CCL_INVALID_CMD;
            }
            default:
              CCL_INVALID_CMD;
            }

@@ -1919,7 +1919,7 @@ Return index number of the registered CCL program.
    The rest elements are mapped numbers.
    Symbol t means to map to an original number before mapping.
    Symbol nil means that the corresponding element is empty.
    The rest elements are mapped numbers.
    Symbol t means to map to an original number before mapping.
    Symbol nil means that the corresponding element is empty.

-   Symbol lambda menas to terminate mapping here.
+   Symbol lambda means to terminate mapping here.

 */
 
 DEFUN ("register-code-conversion-map", Fregister_code_conversion_map,
 */
 
 DEFUN ("register-code-conversion-map", Fregister_code_conversion_map,

@@ -1936,7 +1936,7 @@ Return index number of the registered map.")
 
   CHECK_SYMBOL (symbol, 0);
   CHECK_VECTOR (map, 1);
 
   CHECK_SYMBOL (symbol, 0);
   CHECK_VECTOR (map, 1);

-  
+

   for (i = 0; i < len; i++)
     {
       Lisp_Object slot = XVECTOR (Vcode_conversion_map_vector)->contents[i];
   for (i = 0; i < len; i++)
     {
       Lisp_Object slot = XVECTOR (Vcode_conversion_map_vector)->contents[i];