2 * WCMD - Wine-compatible command line interface - batch interface.
4 * Copyright (C) 1999 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 void WCMD_batch_command (char *line);
26 extern char quals[MAX_PATH], param1[MAX_PATH], param2[MAX_PATH];
27 extern BATCH_CONTEXT *context;
28 extern DWORD errorlevel;
30 #define MAXSTRING 1024
32 /****************************************************************************
35 * Open and execute a batch file.
36 * On entry *command includes the complete command line beginning with the name
37 * of the batch file (if a CALL command was entered the CALL has been removed).
38 * *file is the name of the file, which might not exist and may not have the
39 * .BAT suffix on. Called is 1 for a CALL, 0 otherwise.
41 * We need to handle recursion correctly, since one batch program might call another.
42 * So parameters for this batch file are held in a BATCH_CONTEXT structure.
45 void WCMD_batch (char *file, char *command, int called) {
47 #define WCMD_BATCH_EXT_SIZE 5
49 HANDLE h = INVALID_HANDLE_VALUE;
50 char string[MAXSTRING];
51 char extension[][WCMD_BATCH_EXT_SIZE] = {".bat",".cmd"};
53 BATCH_CONTEXT *prev_context;
55 for(i=0; (i<(sizeof(extension)/WCMD_BATCH_EXT_SIZE)) &&
56 (h == INVALID_HANDLE_VALUE); i++) {
57 strcpy (string, file);
59 if (strstr (string, extension[i]) == NULL) strcat (string, extension[i]);
60 h = CreateFile (string, GENERIC_READ, FILE_SHARE_READ,
61 NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
63 if (h == INVALID_HANDLE_VALUE) {
64 SetLastError (ERROR_FILE_NOT_FOUND);
70 * Create a context structure for this batch file.
73 prev_context = context;
74 context = (BATCH_CONTEXT *)LocalAlloc (LMEM_FIXED, sizeof (BATCH_CONTEXT));
76 context -> command = command;
77 context -> shift_count = 0;
78 context -> prev_context = prev_context;
81 * Work through the file line by line. Specific batch commands are processed here,
82 * the rest are handled by the main command processor.
85 while (WCMD_fgets (string, sizeof(string), h)) {
86 if (strlen(string) == MAXSTRING -1)
87 WCMD_output("Line in Batch processing possible truncated. Using:\n%s\n",string);
88 if (string[0] != ':') { /* Skip over labels */
89 WCMD_batch_command (string);
95 * If invoked by a CALL, we return to the context of our caller. Otherwise return
96 * to the caller's caller.
99 LocalFree ((HANDLE)context);
100 if ((prev_context != NULL) && (!called)) {
101 CloseHandle (prev_context -> h);
102 context = prev_context -> prev_context;
103 LocalFree ((HANDLE)prev_context);
106 context = prev_context;
110 /****************************************************************************
113 * Execute one line from a batch file, expanding parameters.
116 void WCMD_batch_command (char *line) {
119 char cmd1[MAXSTRING],cmd2[MAXSTRING];
123 /* Get working version of command line */
126 /* Expand environment variables in a batch file %{0-9} first */
127 /* Then env vars, and if any left (ie use of undefined vars,*/
128 /* replace with spaces */
129 /* FIXME: Winnt would replace %1%fred%1 with first parm, then */
130 /* contents of fred, then the digit 1. Would need to remove */
131 /* ExpandEnvStrings to achieve this */
133 /* Replace use of %0...%9 */
135 while ((p = strchr(p, '%'))) {
137 if ((i >= 0) && (i <= 9)) {
139 t = WCMD_parameter (context -> command, i + context -> shift_count, NULL);
148 /* Now replace environment variables */
149 status = ExpandEnvironmentStrings(cmd1, cmd2, sizeof(cmd2));
155 /* In a batch program, unknown variables are replace by nothing */
156 /* so remove any remaining %var% */
158 while ((p = strchr(p, '%'))) {
159 s = strchr(p+1, '%');
169 /* Show prompt before batch line IF echo is on */
170 if (echo_mode && (line[0] != '@')) {
172 WCMD_output ("%s\n", cmd2);
175 WCMD_process_command (cmd2);
178 /*******************************************************************
179 * WCMD_parameter - extract a parameter from a command line.
181 * Returns the 'n'th space-delimited parameter on the command line (zero-based).
182 * Parameter is in static storage overwritten on the next call.
183 * Parameters in quotes (and brackets) are handled.
184 * Also returns a pointer to the location of the parameter in the command line.
187 char *WCMD_parameter (char *s, int n, char **where) {
190 static char param[MAX_PATH];
200 if (where != NULL) *where = s;
202 while ((*s != '\0') && (*s != '"')) {
215 if (where != NULL) *where = s;
217 while ((*s != '\0') && (*s != ')')) {
232 if (where != NULL) *where = s;
233 while ((*s != '\0') && (*s != ' ')) {
247 /****************************************************************************
250 * Get one line from a batch file. We can't use the native f* functions because
251 * of the filename syntax differences between DOS and Unix. Also need to lose
252 * the LF (or CRLF) from the line.
255 char *WCMD_fgets (char *s, int n, HANDLE h) {
263 status = ReadFile (h, s, 1, &bytes, NULL);
264 if ((status == 0) || ((bytes == 0) && (s == p))) return NULL;
265 if (*s == '\n') bytes = 0;
266 else if (*s != '\r') {
271 } while ((bytes == 1) && (n > 1));