OSDN Git Service

Version 4.00
[vbslib/main.git] / _src / Test / tools / ArgsLog / ArgsLog_src / ArgsLog.c
1 #include  <windows.h> \r
2 #include  <tchar.h>\r
3 #include  <stdio.h>\r
4 #include  <direct.h>\r
5 \r
6 \r
7 int  _tmain( int argc, TCHAR* argv[] )\r
8 {\r
9   int      arg_num;\r
10   int      e,ee;\r
11   FILE*    f = NULL;\r
12   errno_t  en;\r
13   TCHAR    cwd[4096];\r
14 \r
15   en = _tfopen_s( &f, _T("ArgsLog.txt"), _T("at") );  if(f==NULL)goto err_no;\r
16   _tgetcwd( cwd, _countof(cwd) );\r
17   e= _ftprintf_s( f, _T("cwd = \"%s\"\n"), cwd ); if(e<0)goto err;\r
18   for ( arg_num = 0;  arg_num < argc;  arg_num ++ ) {\r
19     e= _ftprintf_s( f, _T("args[%d] = \"%s\"\n"), arg_num, argv[ arg_num ] ); if(e<0)goto err;\r
20   }\r
21   e=0;\r
22 fin:\r
23   if(f!=NULL){ee= fclose( f ); if(ee&&!e)e=2;}\r
24   return  e;\r
25 err_no: e= 2; goto fin;\r
26 err: e= 1; goto fin;\r
27 }\r
28 \r
29  \r