version 1.94, 2018/12/21 10:56:17
|
version 1.103, 2020/04/06 14:24:00
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.29 |
RPL/2 (R) version 4.1.32 |
Copyright (C) 1989-2018 Dr. BERTRAND Joël |
Copyright (C) 1989-2020 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 114 instruction_over(struct_processus *s_eta
|
Line 114 instruction_over(struct_processus *s_eta
|
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s\n", |
" %s, %s, %s\n", |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_SQL, d_SLB, d_PRC, d_MTX); |
d_SQL, d_SLB, d_PRC, d_MTX, d_REC); |
printf(" 1: %s, %s, %s, %s, %s, %s,\n" |
printf(" 1: %s, %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s\n", |
" %s, %s, %s\n", |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_SQL, d_SLB, d_PRC, d_MTX); |
d_SQL, d_SLB, d_PRC, d_MTX, d_REC); |
printf("-> 3: %s, %s, %s, %s, %s, %s,\n" |
printf("-> 3: %s, %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s\n", |
" %s, %s, %s\n", |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_SQL, d_SLB, d_PRC, d_MTX); |
d_SQL, d_SLB, d_PRC, d_MTX, d_REC); |
printf(" ...\n"); |
printf(" ...\n"); |
printf(" 1: %s, %s, %s, %s, %s, %s,\n" |
printf(" 1: %s, %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s, %s, %s,\n" |
" %s, %s\n", |
" %s, %s, %s\n", |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, |
d_SQL, d_SLB, d_PRC, d_MTX); |
d_SQL, d_SLB, d_PRC, d_MTX, d_REC); |
|
|
return; |
return; |
} |
} |
Line 3890 instruction_open(struct_processus *s_eta
|
Line 3890 instruction_open(struct_processus *s_eta
|
#ifdef B230400 |
#ifdef B230400 |
"230400", |
"230400", |
#endif |
#endif |
|
#ifdef B460800 |
|
"460800", |
|
#endif |
|
#ifdef B500000 |
|
"500000", |
|
#endif |
|
#ifdef B576000 |
|
"576000", |
|
#endif |
|
#ifdef B921600 |
|
"921600", |
|
#endif |
|
#ifdef B1000000 |
|
"1000000", |
|
#endif |
|
#ifdef B1152000 |
|
"1152000", |
|
#endif |
NULL }; |
NULL }; |
tcflag_t vitesses_constantes[] = |
tcflag_t vitesses_constantes[] = |
{ B50, B75, B110, B134, B150, B200, B300, B600, |
{ B50, B75, B110, B134, B150, B200, B300, B600, |
Line 3903 instruction_open(struct_processus *s_eta
|
Line 3921 instruction_open(struct_processus *s_eta
|
#ifdef B230400 |
#ifdef B230400 |
B230400, |
B230400, |
#endif |
#endif |
|
#ifdef B460800 |
|
B460800, |
|
#endif |
|
#ifdef B500000 |
|
B500000, |
|
#endif |
|
#ifdef B576000 |
|
B576000, |
|
#endif |
|
#ifdef B921600 |
|
B921600, |
|
#endif |
|
#ifdef B1000000 |
|
B1000000, |
|
#endif |
|
#ifdef B1152000 |
|
B1152000, |
|
#endif |
0 }; |
0 }; |
unsigned int vitesse_courante; |
unsigned int vitesse_courante; |
|
|
Line 4173 instruction_open(struct_processus *s_eta
|
Line 4209 instruction_open(struct_processus *s_eta
|
#ifdef IXANY |
#ifdef IXANY |
"IXANY", |
"IXANY", |
#endif |
#endif |
"IXOFF", "OPOST", |
"IXOFF", |
"ONLCR", "OCRNL", "ONOCR", "ONLRET", |
"OPOST", "ONLCR", "OCRNL", "ONOCR", "ONLRET", |
#ifdef OFILL |
#ifdef OFILL |
"OFILL", |
"OFILL", |
#endif |
#endif |