2 * WCMD - Wine-compatible command line interface.
4 * Copyright (C) 1999 - 2001 D A Pickles
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 * - Cannot handle parameters in quotes
24 * - Lots of functionality missing from builtins
30 const char *inbuilt
[] = {"ATTRIB", "CALL", "CD", "CHDIR", "CLS", "COPY", "CTTY",
31 "DATE", "DEL", "DIR", "ECHO", "ERASE", "FOR", "GOTO",
32 "HELP", "IF", "LABEL", "MD", "MKDIR", "MOVE", "PATH", "PAUSE",
33 "PROMPT", "REM", "REN", "RENAME", "RD", "RMDIR", "SET", "SHIFT",
34 "TIME", "TITLE", "TYPE", "VERIFY", "VER", "VOL", "EXIT" };
38 int echo_mode
= 1, verify_mode
= 0;
39 char nyi
[] = "Not Yet Implemented\n\n";
40 char newline
[] = "\n";
41 char version_string
[] = "WCMD Version 0.17\n\n";
42 char anykey
[] = "Press Return key to continue: ";
43 char quals
[MAX_PATH
], param1
[MAX_PATH
], param2
[MAX_PATH
];
44 BATCH_CONTEXT
*context
= NULL
;
46 /*****************************************************************************
47 * Main entry point. This is a console application so we have a main() not a
51 int main (int argc
, char *argv
[])
57 int opt_c
, opt_k
, opt_q
;
63 if (lstrcmpi(*argv
,"/c")==0) {
67 } else if (lstrcmpi(*argv
,"/q")==0) {
69 } else if (lstrcmpi(*argv
,"/k")==0) {
73 } else if (lstrcmpi(*argv
,"/t")==0 || lstrcmpi(*argv
,"/x")==0 ||
74 lstrcmpi(*argv
,"/y")==0) {
75 /* Ignored for compatibility with Windows */
91 /* Build the command to execute */
93 for (arg
= argv
; *arg
; arg
++)
101 if( !*a
) has_space
=1;
106 if (*a
==' ' || *a
=='\t') {
108 } else if (*a
=='"') {
109 /* doubling of '\' preceeding a '"',
110 * plus escaping of said '"'
118 len
+=(a
-*arg
)+1 /* for the separating space */;
120 len
+=2; /* for the quotes */
123 cmd
= HeapAlloc(GetProcessHeap(), 0, len
);
128 for (arg
= argv
; *arg
; arg
++)
130 int has_space
,has_quote
;
133 /* Check for quotes and spaces in this argument */
134 has_space
=has_quote
=0;
136 if( !*a
) has_space
=1;
138 if (*a
==' ' || *a
=='\t') {
142 } else if (*a
=='"') {
150 /* Now transfer it to the command line */
167 /* Double all the '\\' preceeding this '"', plus one */
168 for (i
=0;i
<=bcount
;i
++)
187 p
--; /* remove last space */
192 /* If we do a "wcmd /c command", we don't want to allocate a new
193 * console since the command returns immediately. Rather, we use
194 * the currently allocated input and output handles. This allows
195 * us to pipe to and read from the command interpreter.
197 if (strchr(cmd
,'|') != NULL
)
200 WCMD_process_command(cmd
);
201 HeapFree(GetProcessHeap(), 0, cmd
);
205 SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE
), ENABLE_LINE_INPUT
|
206 ENABLE_ECHO_INPUT
| ENABLE_PROCESSED_INPUT
);
207 SetConsoleTitle("Wine Command Prompt");
210 WCMD_process_command(cmd
);
211 HeapFree(GetProcessHeap(), 0, cmd
);
215 * If there is an AUTOEXEC.BAT file, try to execute it.
218 GetFullPathName ("\\autoexec.bat", sizeof(string
), string
, NULL
);
219 h
= CreateFile (string
, GENERIC_READ
, FILE_SHARE_READ
, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL
, NULL
);
220 if (h
!= INVALID_HANDLE_VALUE
) {
223 WCMD_batch_command (string
);
228 * Loop forever getting commands and executing them.
234 ReadFile (GetStdHandle(STD_INPUT_HANDLE
), string
, sizeof(string
), &count
, NULL
);
236 string
[count
-1] = '\0'; /* ReadFile output is not null-terminated! */
237 if (string
[count
-2] == '\r') string
[count
-2] = '\0'; /* Under Windoze we get CRLF! */
238 if (lstrlen (string
) != 0) {
239 if (strchr(string
,'|') != NULL
) {
243 WCMD_process_command (string
);
251 /*****************************************************************************
252 * Process one command. If the command is EXIT this routine does not return.
253 * We will recurse through here executing batch files.
257 void WCMD_process_command (char *command
)
261 DWORD count
, creationDisposition
;
262 HANDLE old_stdin
= 0, old_stdout
= 0, h
;
264 SECURITY_ATTRIBUTES sa
;
267 * Expand up environment variables.
269 len
= ExpandEnvironmentStrings (command
, NULL
, 0);
270 cmd
= HeapAlloc( GetProcessHeap(), 0, len
);
271 status
= ExpandEnvironmentStrings (command
, cmd
, len
);
274 HeapFree( GetProcessHeap(), 0, cmd
);
279 * Changing default drive has to be handled as a special case.
282 if ((cmd
[1] == ':') && IsCharAlpha (cmd
[0]) && (strlen(cmd
) == 2)) {
283 status
= SetCurrentDirectory (cmd
);
284 if (!status
) WCMD_print_error ();
285 HeapFree( GetProcessHeap(), 0, cmd
);
289 /* Dont issue newline WCMD_output (newline); @JED*/
291 sa
.nLength
= sizeof(sa
);
292 sa
.lpSecurityDescriptor
= NULL
;
293 sa
.bInheritHandle
= TRUE
;
295 * Redirect stdin and/or stdout if required.
298 if ((p
= strchr(cmd
,'<')) != NULL
) {
299 h
= CreateFile (WCMD_parameter (++p
, 0, NULL
), GENERIC_READ
, FILE_SHARE_READ
, &sa
, OPEN_EXISTING
,
300 FILE_ATTRIBUTE_NORMAL
, NULL
);
301 if (h
== INVALID_HANDLE_VALUE
) {
303 HeapFree( GetProcessHeap(), 0, cmd
);
306 old_stdin
= GetStdHandle (STD_INPUT_HANDLE
);
307 SetStdHandle (STD_INPUT_HANDLE
, h
);
309 if ((p
= strchr(cmd
,'>')) != NULL
) {
312 creationDisposition
= OPEN_ALWAYS
;
316 creationDisposition
= CREATE_ALWAYS
;
318 h
= CreateFile (WCMD_parameter (p
, 0, NULL
), GENERIC_WRITE
, 0, &sa
, creationDisposition
,
319 FILE_ATTRIBUTE_NORMAL
, NULL
);
320 if (h
== INVALID_HANDLE_VALUE
) {
322 HeapFree( GetProcessHeap(), 0, cmd
);
325 if (SetFilePointer (h
, 0, NULL
, FILE_END
) ==
326 INVALID_SET_FILE_POINTER
) {
329 old_stdout
= GetStdHandle (STD_OUTPUT_HANDLE
);
330 SetStdHandle (STD_OUTPUT_HANDLE
, h
);
332 if ((p
= strchr(cmd
,'<')) != NULL
) *p
= '\0';
335 * Strip leading whitespaces, and a '@' if supplied
337 whichcmd
= WCMD_strtrim_leading_spaces(cmd
);
338 if (whichcmd
[0] == '@') whichcmd
++;
341 * Check if the command entered is internal. If it is, pass the rest of the
342 * line down to the command. If not try to run a program.
346 while (IsCharAlphaNumeric(whichcmd
[count
])) {
349 for (i
=0; i
<=WCMD_EXIT
; i
++) {
350 if (CompareString (LOCALE_USER_DEFAULT
, NORM_IGNORECASE
| SORT_STRINGSORT
,
351 whichcmd
, count
, inbuilt
[i
], -1) == 2) break;
353 p
= WCMD_strtrim_leading_spaces (&whichcmd
[count
]);
354 WCMD_parse (p
, quals
, param1
, param2
);
358 WCMD_setshow_attrib ();
361 WCMD_batch (param1
, p
, 1);
365 WCMD_setshow_default ();
368 WCMD_clear_screen ();
377 WCMD_setshow_date ();
387 /* Use the unstripped version of the following data - step over the space */
388 /* but only if a parameter follows */
389 if (strlen(&whichcmd
[count
]) > 0)
390 WCMD_echo(&whichcmd
[count
+1]);
392 WCMD_echo(&whichcmd
[count
]);
417 WCMD_setshow_path (p
);
423 WCMD_setshow_prompt ();
436 WCMD_setshow_env (p
);
442 WCMD_setshow_time ();
445 if (strlen(&whichcmd
[count
]) > 0)
446 WCMD_title(&whichcmd
[count
+1]);
463 WCMD_run_program (whichcmd
);
465 HeapFree( GetProcessHeap(), 0, cmd
);
467 CloseHandle (GetStdHandle (STD_INPUT_HANDLE
));
468 SetStdHandle (STD_INPUT_HANDLE
, old_stdin
);
471 CloseHandle (GetStdHandle (STD_OUTPUT_HANDLE
));
472 SetStdHandle (STD_OUTPUT_HANDLE
, old_stdout
);
476 /******************************************************************************
479 * Execute a command line as an external program. If no extension given then
480 * precedence is given to .BAT files. Must allow recursion.
482 * FIXME: Case sensitivity in suffixes!
485 void WCMD_run_program (char *command
) {
488 PROCESS_INFORMATION pe
;
494 char filetorun
[MAX_PATH
];
496 WCMD_parse (command
, quals
, param1
, param2
); /* Quick way to get the filename */
497 if (!(*param1
) && !(*param2
))
499 if (strpbrk (param1
, "/\\:") == NULL
) { /* No explicit path given */
500 char *ext
= strrchr( param1
, '.' );
501 if (!ext
|| !strcasecmp( ext
, ".bat"))
503 if (SearchPath (NULL
, param1
, ".bat", sizeof(filetorun
), filetorun
, NULL
)) {
504 WCMD_batch (filetorun
, command
, 0);
508 if (!ext
|| !strcasecmp( ext
, ".cmd"))
510 if (SearchPath (NULL
, param1
, ".cmd", sizeof(filetorun
), filetorun
, NULL
)) {
511 WCMD_batch (filetorun
, command
, 0);
516 else { /* Explicit path given */
517 char *ext
= strrchr( param1
, '.' );
518 if (ext
&& (!strcasecmp( ext
, ".bat" ) || !strcasecmp( ext
, ".cmd" )))
520 WCMD_batch (param1
, command
, 0);
524 if (ext
&& strpbrk( ext
, "/\\:" )) ext
= NULL
;
527 strcpy (filetorun
, param1
);
528 strcat (filetorun
, ".bat");
529 h
= CreateFile (filetorun
, GENERIC_READ
, FILE_SHARE_READ
,
530 NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL
, NULL
);
531 if (h
!= INVALID_HANDLE_VALUE
) {
533 WCMD_batch (param1
, command
, 0);
539 /* No batch file found, assume executable */
541 hinst
= FindExecutable (param1
, NULL
, filetorun
);
542 if ((int)hinst
< 32) {
546 console
= SHGetFileInfo (filetorun
, 0, &psfi
, sizeof(psfi
), SHGFI_EXETYPE
);
547 ZeroMemory (&st
, sizeof(STARTUPINFO
));
548 st
.cb
= sizeof(STARTUPINFO
);
549 status
= CreateProcess (NULL
, command
, NULL
, NULL
, TRUE
,
550 0, NULL
, NULL
, &st
, &pe
);
555 if (!console
) errorlevel
= 0;
558 if (!HIWORD(console
)) WaitForSingleObject (pe
.hProcess
, INFINITE
);
559 GetExitCodeProcess (pe
.hProcess
, &errorlevel
);
560 if (errorlevel
== STILL_ACTIVE
) errorlevel
= 0;
562 CloseHandle(pe
.hProcess
);
563 CloseHandle(pe
.hThread
);
566 /******************************************************************************
569 * Display the prompt on STDout
573 void WCMD_show_prompt (void) {
576 char out_string
[MAX_PATH
], curdir
[MAX_PATH
], prompt_string
[MAX_PATH
];
579 status
= GetEnvironmentVariable ("PROMPT", prompt_string
, sizeof(prompt_string
));
580 if ((status
== 0) || (status
> sizeof(prompt_string
))) {
581 lstrcpy (prompt_string
, "$P$G");
593 switch (toupper(*p
)) {
601 GetDateFormat (LOCALE_USER_DEFAULT
, DATE_SHORTDATE
, NULL
, NULL
, q
, MAX_PATH
);
614 status
= GetCurrentDirectory (sizeof(curdir
), curdir
);
620 status
= GetCurrentDirectory (sizeof(curdir
), curdir
);
630 GetTimeFormat (LOCALE_USER_DEFAULT
, 0, NULL
, NULL
, q
, MAX_PATH
);
634 lstrcat (q
, version_string
);
645 WCMD_output (out_string
);
648 /****************************************************************************
651 * Print the message for GetLastError
654 void WCMD_print_error (void) {
659 error_code
= GetLastError ();
660 status
= FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER
| FORMAT_MESSAGE_FROM_SYSTEM
,
661 NULL
, error_code
, 0, (LPTSTR
) &lpMsgBuf
, 0, NULL
);
663 WCMD_output ("FIXME: Cannot display message for error %d, status %d\n",
664 error_code
, GetLastError());
667 WCMD_output (lpMsgBuf
);
668 LocalFree ((HLOCAL
)lpMsgBuf
);
669 WCMD_output (newline
);
673 /*******************************************************************
674 * WCMD_parse - parse a command into parameters and qualifiers.
676 * On exit, all qualifiers are concatenated into q, the first string
677 * not beginning with "/" is in p1 and the
678 * second in p2. Any subsequent non-qualifier strings are lost.
679 * Parameters in quotes are handled.
682 void WCMD_parse (char *s
, char *q
, char *p1
, char *p2
) {
686 *q
= *p1
= *p2
= '\0';
691 while ((*s
!= '\0') && (*s
!= ' ') && *s
!= '/') {
692 *q
++ = toupper (*s
++);
701 while ((*s
!= '\0') && (*s
!= '"')) {
702 if (p
== 0) *p1
++ = *s
++;
703 else if (p
== 1) *p2
++ = *s
++;
706 if (p
== 0) *p1
= '\0';
707 if (p
== 1) *p2
= '\0';
714 while ((*s
!= '\0') && (*s
!= ' ')) {
715 if (p
== 0) *p1
++ = *s
++;
716 else if (p
== 1) *p2
++ = *s
++;
719 if (p
== 0) *p1
= '\0';
720 if (p
== 1) *p2
= '\0';
726 /*******************************************************************
727 * WCMD_output - send output to current standard output device.
731 void WCMD_output (const char *format
, ...) {
737 vsprintf (string
, format
, ap
);
739 WCMD_output_asis(string
);
743 static int line_count
;
744 static int max_height
;
745 static BOOL paged_mode
;
747 void WCMD_enter_paged_mode(void)
749 CONSOLE_SCREEN_BUFFER_INFO consoleInfo
;
751 if (GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE
), &consoleInfo
))
752 max_height
= consoleInfo
.dwSize
.Y
;
756 line_count
= 5; /* keep 5 lines from previous output */
759 void WCMD_leave_paged_mode(void)
764 /*******************************************************************
765 * WCMD_output_asis - send output to current standard output device.
766 * without formatting eg. when message contains '%'
769 void WCMD_output_asis (const char *message
) {
776 if ((ptr
= strchr(message
, '\n')) != NULL
) ptr
++;
777 WriteFile (GetStdHandle(STD_OUTPUT_HANDLE
), message
,
778 (ptr
) ? ptr
- message
: lstrlen(message
), &count
, NULL
);
780 if (++line_count
>= max_height
- 1) {
782 WCMD_output_asis (anykey
);
783 ReadFile (GetStdHandle(STD_INPUT_HANDLE
), string
, sizeof(string
), &count
, NULL
);
786 } while ((message
= ptr
) != NULL
);
788 WriteFile (GetStdHandle(STD_OUTPUT_HANDLE
), message
, lstrlen(message
), &count
, NULL
);
793 /***************************************************************************
794 * WCMD_strtrim_leading_spaces
796 * Remove leading spaces from a string. Return a pointer to the first
797 * non-space character. Does not modify the input string
800 char *WCMD_strtrim_leading_spaces (char *string
) {
805 while (*ptr
== ' ') ptr
++;
809 /*************************************************************************
810 * WCMD_strtrim_trailing_spaces
812 * Remove trailing spaces from a string. This routine modifies the input
813 * string by placing a null after the last non-space character
816 void WCMD_strtrim_trailing_spaces (char *string
) {
820 ptr
= string
+ lstrlen (string
) - 1;
821 while ((*ptr
== ' ') && (ptr
>= string
)) {
827 /*************************************************************************
830 * Handle pipes within a command - the DOS way using temporary files.
833 void WCMD_pipe (char *command
) {
836 char temp_path
[MAX_PATH
], temp_file
[MAX_PATH
], temp_file2
[MAX_PATH
], temp_cmd
[1024];
838 GetTempPath (sizeof(temp_path
), temp_path
);
839 GetTempFileName (temp_path
, "WCMD", 0, temp_file
);
840 p
= strchr(command
, '|');
842 wsprintf (temp_cmd
, "%s > %s", command
, temp_file
);
843 WCMD_process_command (temp_cmd
);
845 while ((p
= strchr(command
, '|'))) {
847 GetTempFileName (temp_path
, "WCMD", 0, temp_file2
);
848 wsprintf (temp_cmd
, "%s < %s > %s", command
, temp_file
, temp_file2
);
849 WCMD_process_command (temp_cmd
);
850 DeleteFile (temp_file
);
851 lstrcpy (temp_file
, temp_file2
);
854 wsprintf (temp_cmd
, "%s < %s", command
, temp_file
);
855 WCMD_process_command (temp_cmd
);
856 DeleteFile (temp_file
);