version 1.51, 2012/04/12 09:56:40
|
version 1.56, 2012/06/21 16:07:25
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.7 |
RPL/2 (R) version 4.1.9 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1031 instruction_open(struct_processus *s_eta
|
Line 1031 instruction_open(struct_processus *s_eta
|
" { \"stty\" { \"stty parameters\" ... } } } OPEN\n"); |
" { \"stty\" { \"stty parameters\" ... } } } OPEN\n"); |
printf(" { \"sockettype\" { \"name\" \"local name\" } } OPEN\n"); |
printf(" { \"sockettype\" { \"name\" \"local name\" } } OPEN\n"); |
printf(" { \"sockettype\" \"socketdomain\" \"protection\" } OPEN\n"); |
printf(" { \"sockettype\" \"socketdomain\" \"protection\" } OPEN\n"); |
printf(" \"/semaphore\" OPEN\n"); |
printf(" \"/semaphore\" OPEN\n\n"); |
|
|
printf(" File type : NEW/OLD/REPLACE/UNKNOWN/SCRATCH\n"); |
printf(" File type : NEW/OLD/REPLACE/UNKNOWN/SCRATCH\n"); |
printf(" File access : SEQUENTIAL/DIRECT/KEYED\n"); |
printf(" File access : SEQUENTIAL/DIRECT/KEYED\n"); |
Line 1069 instruction_open(struct_processus *s_eta
|
Line 1069 instruction_open(struct_processus *s_eta
|
printf(" Port : { \"PORT\" port number }\n"); |
printf(" Port : { \"PORT\" port number }\n"); |
printf(" Protocol : { \"PROTOCOL\" \"protocol\" }\n\n"); |
printf(" Protocol : { \"PROTOCOL\" \"protocol\" }\n\n"); |
|
|
printf(" { { \"NAME\" \"filename\" } } OPEN\n"); |
printf(" { { \"NAME\" \"filename\" } \"SEQUENTIAL\" } OPEN\n"); |
printf(" { \"SCRATCH\" } OPEN\n"); |
printf(" { \"SCRATCH\" } OPEN\n"); |
printf(" { { \"NAME\" \"filename\" } \"UNKNOWN\" \"FORMATTED\" " |
printf(" { { \"NAME\" \"filename\" } \"UNKNOWN\" \"FORMATTED\" " |
"\"DIRECT\" } OPEN\n"); |
"\"DIRECT\" } OPEN\n"); |
Line 2731 instruction_open(struct_processus *s_eta
|
Line 2731 instruction_open(struct_processus *s_eta
|
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
} |
} |
|
|
|
// Si aucun paramètre n'est discriminant, l'instruction ouvre |
|
// par défaut un fichier. |
|
|
|
if (type_arguments == ' ') |
|
{ |
|
type_arguments = 'F'; |
|
} |
|
|
if (type_arguments == 'F') |
if (type_arguments == 'F') |
{ |
{ |
/* |
/* |