d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Get() parameter is optional

Browse source
This commit is contained in:
ceriel 1995-11-01 16:54:17 +00:00
parent a8b1f8e347
commit 0bf45ac757
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/pc/comp/chk_expr.c
View file

@ -1045,6 +1045,7 @@ ChkStandard(expp,left)
case R_EOF: case R_EOF:
case R_EOLN: case R_EOLN:
case R_GET:
case R_PAGE: { case R_PAGE: {
int st_out; int st_out;
@ -1053,8 +1054,11 @@ ChkStandard(expp,left)
st_out = 1; st_out = 1;
} }
else { else {
expp->nd_type = bool_type;
st_out = 0; st_out = 0;
if (req == R_GET) {
expp->nd_type = NULLTYPE;
}
else expp->nd_type = bool_type;
} }
if( !arg->nd_right ) { if( !arg->nd_right ) {
struct node *nd; struct node *nd;
@ -1069,7 +1073,8 @@ ChkStandard(expp,left)
else { else {
if( !(left = getarg(&arg, T_FILE, 1, name, NULLTYPE)) ) if( !(left = getarg(&arg, T_FILE, 1, name, NULLTYPE)) )
return 0; return 0;
if( req != R_EOF && left->nd_type != text_type ) { if( (req == R_PAGE || req == R_EOLN)
&& left->nd_type != text_type ) {
Xerror(name, "textfile expected"); Xerror(name, "textfile expected");
return 0; return 0;
} }
@ -1080,7 +1085,6 @@ ChkStandard(expp,left)
case R_REWRITE: case R_REWRITE:
case R_PUT: case R_PUT:
case R_RESET: case R_RESET:
case R_GET:
if( !(left = getarg(&arg, T_FILE, 1, name, NULLTYPE)) ) if( !(left = getarg(&arg, T_FILE, 1, name, NULLTYPE)) )
return 0; return 0;
expp->nd_type = NULLTYPE; expp->nd_type = NULLTYPE;