2 * WCMD - Wine-compatible command line interface - batch interface.
11 void WCMD_batch_command (char *line);
14 extern char newline[];
15 extern char version_string[];
17 extern char quals[MAX_PATH], param1[MAX_PATH], param2[MAX_PATH];
18 extern BATCH_CONTEXT *context;
22 /****************************************************************************
25 * Open and execute a batch file.
26 * On entry *command includes the complete command line beginning with the name
27 * of the batch file (if a CALL command was entered the CALL has been removed).
28 * *file is the name of the file, which might not exist and may not have the
29 * .BAT suffix on. Called is 1 for a CALL, 0 otherwise.
31 * We need to handle recursion correctly, since one batch program might call another.
32 * So parameters for this batch file are held in a BATCH_CONTEXT structure.
35 void WCMD_batch (char *file, char *command, int called) {
38 char string[MAX_PATH];
39 BATCH_CONTEXT *prev_context;
41 strcpy (string, file);
43 if (strstr (string, ".bat") == NULL) strcat (string, ".bat");
44 h = CreateFile (string, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
45 if (h == INVALID_HANDLE_VALUE) {
46 WCMD_output ("File %s not found\n", string);
51 * Create a context structure for this batch file.
54 prev_context = context;
55 context = (BATCH_CONTEXT *)LocalAlloc (LMEM_FIXED, sizeof (BATCH_CONTEXT));
57 context -> command = command;
58 context -> shift_count = 0;
59 context -> prev_context = prev_context;
62 * Work through the file line by line. Specific batch commands are processed here,
63 * the rest are handled by the main command processor.
66 while (WCMD_fgets (string, sizeof(string), h)) {
67 if (string[0] != ':') { /* Skip over labels */
68 WCMD_batch_command (string);
74 * If invoked by a CALL, we return to the context of our caller. Otherwise return
75 * to the caller's caller.
78 LocalFree ((HANDLE)context);
79 if ((prev_context != NULL) && (!called)) {
80 CloseHandle (prev_context -> h);
81 context = prev_context -> prev_context;
82 LocalFree ((HANDLE)prev_context);
85 context = prev_context;
89 /****************************************************************************
92 * Execute one line from a batch file, expanding parameters.
95 void WCMD_batch_command (char *line) {
98 char cmd1[1024],cmd2[1024];
102 /* Get working version of command line */
105 /* Expand environment variables in a batch file %{0-9} first */
106 /* Then env vars, and if any left (ie use of undefined vars,*/
107 /* replace with spaces */
108 /* FIXME: Winnt would replace %1%fred%1 with first parm, then */
109 /* contents of fred, then the digit 1. Would need to remove */
110 /* ExpandEnvStrings to achieve this */
112 /* Replace use of %0...%9 */
114 while ((p = strchr(p, '%'))) {
116 if ((i >= 0) && (i <= 9)) {
118 t = WCMD_parameter (context -> command, i + context -> shift_count, NULL);
127 /* Now replace environment variables */
128 status = ExpandEnvironmentStrings(cmd1, cmd2, sizeof(cmd2));
134 /* In a batch program, unknown variables are replace by nothing */
135 /* so remove any remaining %var% */
137 while ((p = strchr(p, '%'))) {
138 s = strchr(p+1, '%');
148 /* Show prompt before batch line IF echo is on */
149 if (echo_mode && (line[0] != '@')) {
151 WCMD_output ("%s\n", cmd2);
154 WCMD_process_command (cmd2);
157 /*******************************************************************
158 * WCMD_parameter - extract a parameter from a command line.
160 * Returns the 'n'th space-delimited parameter on the command line (zero-based).
161 * Parameter is in static storage overwritten on the next call.
162 * Parameters in quotes (and brackets) are handled.
163 * Also returns a pointer to the location of the parameter in the command line.
166 char *WCMD_parameter (char *s, int n, char **where) {
169 static char param[MAX_PATH];
179 if (where != NULL) *where = s;
181 while ((*s != '\0') && (*s != '"')) {
194 if (where != NULL) *where = s;
196 while ((*s != '\0') && (*s != ')')) {
211 if (where != NULL) *where = s;
212 while ((*s != '\0') && (*s != ' ')) {
226 /****************************************************************************
229 * Get one line from a batch file. We can't use the native f* functions because
230 * of the filename syntax differences between DOS and Unix. Also need to lose
231 * the LF (or CRLF) from the line.
234 char *WCMD_fgets (char *s, int n, HANDLE h) {
242 status = ReadFile (h, s, 1, &bytes, NULL);
243 if ((status == 0) || ((bytes == 0) && (s == p))) return NULL;
244 if (*s == '\n') bytes = 0;
245 else if (*s != '\r') {
250 } while ((bytes == 1) && (n > 1));