The R Project SVN R

(root)/branches/R-exp-R5/src/gnuwin32/opt.c @ 77458 – Rev 43800 → 44201



 
static FILE *ff = NULL;
static char optfl[MAX_PATH];
static int optln;
 
void optclosefile(void)
{
    if (!ff) return;
    fclose(ff);
    ff = NULL;
}

}
 
 
 
char *
optfile(void)
{
    return optfl;
}
 
int 
optline(void)
{
    return optln;
}
 
 

Rev 43800	Rev 44201
Line 33...	Line 33...
33		33
34	`static FILE *ff = NULL;`	34	`static FILE *ff = NULL;`
35	`static char optfl[MAX_PATH];`	35	`static char optfl[MAX_PATH];`
36	`static int optln;`	36	`static int optln;`
37		37
38	`void optclosefile()`	38	`void optclosefile(void)`
39	`{`	39	`{`
40	`if (!ff) return;`	40	`if (!ff) return;`
41	`fclose(ff);`	41	`fclose(ff);`
42	`ff = NULL;`	42	`ff = NULL;`
43	`}`	43	`}`
Line 53...	Line 53...
53	`}`	53	`}`
54		54
55		55
56		56
57	`char *`	57	`char *`
58	`optfile()`	58	`optfile(void)`
59	`{`	59	`{`
60	`return optfl;`	60	`return optfl;`
61	`}`	61	`}`
62		62
63	`int`	63	`int`
64	`optline()`	64	`optline(void)`
65	`{`	65	`{`
66	`return optln;`	66	`return optln;`
67	`}`	67	`}`
68		68
69		69