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 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 (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 (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);