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