catcode.diff

Alexis Bienvenüe, 02/06/2018 09:14 pm

Download (1.2 kB)

 
b/doc/sty/automultiplechoice.dtx.in Tue Feb 06 21:13:05 2018 +0100
3410 3410

  
3411 3411
\tl_new:N \amc_ee_tl
3412 3412
\seq_new:N \amc_ee_seq
3413
\cs_new:Npn \amc_read_scientific:NNn #1 #2 #3 {
3414 3413
%    \end{macrocode}
3415 3414
% Note that with some versions of |l3fp-convert| (prior to
3416 3415
% 2017-09-18), |\fp_to_scientific| leads to a `e' with catcode 12
3417 3416
% (\emph{other}). We convert it to catcode \emph{letter} before
3418 3417
% splitting.
3419 3418
%    \begin{macrocode}
3420
  \tl_set:Nn \amc_ee_tl { #3 }
3421
  \tl_replace_once:Nxn \amc_ee_tl { \catcode`e=12 e } { e }
3422
  \seq_set_split:NnV \amc_ee_seq e \amc_ee_tl
3423
  \fp_set:Nn #1 { \seq_item:Nn \amc_ee_seq 1 }
3424
  \int_set:Nn #2 { \seq_item:Nn \amc_ee_seq 2 }
3419
\group_begin:
3420
\char_set_catcode_other:N E
3421
\tl_to_lowercase:n
3422
{
3423
  \cs_new:Npn \amc_read_scientific:NNn #1 #2 #3 {
3424
    \tl_set:Nn \amc_ee_tl { #3 }
3425
    \tl_replace_once:Nxn \amc_ee_tl { E } { e }
3426
    \seq_set_split:NnV \amc_ee_seq e \amc_ee_tl
3427
    \fp_set:Nn #1 { \seq_item:Nn \amc_ee_seq 1 }
3428
    \int_set:Nn #2 { \seq_item:Nn \amc_ee_seq 2 }
3429
  }
3425 3430
}
3431
\group_end:
3432

  
3426 3433
\cs_generate_variant:Nn \amc_read_scientific:NNn { NNf, NNx }
3427 3434

  
3428 3435
\fp_new:N \amc_fulls_fp