]> git.xonotic.org Git - xonotic/darkplaces.git/blob - cmd.c
no longer uses SZ_Alloc for cmd_text buffer
[xonotic/darkplaces.git] / cmd.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 See the GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19 */
20 // cmd.c -- Quake script command processing module
21
22 #include "quakedef.h"
23
24 #define MAX_ALIAS_NAME  32
25
26 typedef struct cmdalias_s
27 {
28         struct cmdalias_s *next;
29         char name[MAX_ALIAS_NAME];
30         char *value;
31 } cmdalias_t;
32
33 static cmdalias_t *cmd_alias;
34
35 static qboolean cmd_wait;
36
37 static mempool_t *cmd_mempool;
38
39 #define CMD_TOKENIZELENGTH 4096
40 static char cmd_tokenizebuffer[CMD_TOKENIZELENGTH];
41 static int cmd_tokenizebufferpos = 0;
42
43 //=============================================================================
44
45 /*
46 ============
47 Cmd_Wait_f
48
49 Causes execution of the remainder of the command buffer to be delayed until
50 next frame.  This allows commands like:
51 bind g "impulse 5 ; +attack ; wait ; -attack ; impulse 2"
52 ============
53 */
54 static void Cmd_Wait_f (void)
55 {
56         cmd_wait = true;
57 }
58
59 /*
60 =============================================================================
61
62                                                 COMMAND BUFFER
63
64 =============================================================================
65 */
66
67         // LordHavoc: inreased this from 8192 to 32768
68 static sizebuf_t        cmd_text;
69 static qbyte            cmd_text_buf[32768];
70
71 /*
72 ============
73 Cbuf_Init
74 ============
75 */
76 void Cbuf_Init (void)
77 {
78         // space for commands and script files
79         cmd_text.data = cmd_text_buf;
80         cmd_text.maxsize = sizeof(cmd_text_buf);
81         cmd_text.cursize = 0;
82 }
83
84 /*
85 ============
86 Cbuf_Shutdown
87 ============
88 */
89 void Cbuf_Shutdown (void)
90 {
91 }
92
93 /*
94 ============
95 Cbuf_AddText
96
97 Adds command text at the end of the buffer
98 ============
99 */
100 void Cbuf_AddText (const char *text)
101 {
102         int             l;
103
104         l = strlen (text);
105
106         if (cmd_text.cursize + l >= cmd_text.maxsize)
107         {
108                 Con_Print("Cbuf_AddText: overflow\n");
109                 return;
110         }
111
112         SZ_Write (&cmd_text, text, strlen (text));
113 }
114
115
116 /*
117 ============
118 Cbuf_InsertText
119
120 Adds command text immediately after the current command
121 Adds a \n to the text
122 FIXME: actually change the command buffer to do less copying
123 ============
124 */
125 void Cbuf_InsertText (const char *text)
126 {
127         char    *temp;
128         int             templen;
129
130         // copy off any commands still remaining in the exec buffer
131         templen = cmd_text.cursize;
132         if (templen)
133         {
134                 temp = Mem_Alloc (tempmempool, templen);
135                 memcpy (temp, cmd_text.data, templen);
136                 SZ_Clear (&cmd_text);
137         }
138         else
139                 temp = NULL;
140
141         // add the entire text of the file
142         Cbuf_AddText (text);
143
144         // add the copied off data
145         if (temp != NULL)
146         {
147                 SZ_Write (&cmd_text, temp, templen);
148                 Mem_Free (temp);
149         }
150 }
151
152 /*
153 ============
154 Cbuf_Execute
155 ============
156 */
157 void Cbuf_Execute (void)
158 {
159         int i;
160         char *text;
161         char line[1024];
162         int quotes;
163
164         // LordHavoc: making sure the tokenizebuffer doesn't get filled up by repeated crashes
165         cmd_tokenizebufferpos = 0;
166
167         while (cmd_text.cursize)
168         {
169 // find a \n or ; line break
170                 text = (char *)cmd_text.data;
171
172                 quotes = 0;
173                 for (i=0 ; i< cmd_text.cursize ; i++)
174                 {
175                         if (text[i] == '"')
176                                 quotes++;
177                         if ( !(quotes&1) &&  text[i] == ';')
178                                 break;  // don't break if inside a quoted string
179                         if (text[i] == '\r' || text[i] == '\n')
180                                 break;
181                 }
182
183                 memcpy (line, text, i);
184                 line[i] = 0;
185
186 // delete the text from the command buffer and move remaining commands down
187 // this is necessary because commands (exec, alias) can insert data at the
188 // beginning of the text buffer
189
190                 if (i == cmd_text.cursize)
191                         cmd_text.cursize = 0;
192                 else
193                 {
194                         i++;
195                         cmd_text.cursize -= i;
196                         memcpy (cmd_text.data, text+i, cmd_text.cursize);
197                 }
198
199 // execute the command line
200                 Cmd_ExecuteString (line, src_command);
201
202                 if (cmd_wait)
203                 {       // skip out while text still remains in buffer, leaving it
204                         // for next frame
205                         cmd_wait = false;
206                         break;
207                 }
208         }
209 }
210
211 /*
212 ==============================================================================
213
214                                                 SCRIPT COMMANDS
215
216 ==============================================================================
217 */
218
219 /*
220 ===============
221 Cmd_StuffCmds_f
222
223 Adds command line parameters as script statements
224 Commands lead with a +, and continue until a - or another +
225 quake +prog jctest.qp +cmd amlev1
226 quake -nosound +cmd amlev1
227 ===============
228 */
229 void Cmd_StuffCmds_f (void)
230 {
231         int             i, j, l;
232         // this is per command, and bounds checked (no buffer overflows)
233         char    build[2048];
234
235         if (Cmd_Argc () != 1)
236         {
237                 Con_Print("stuffcmds : execute command line parameters\n");
238                 return;
239         }
240
241         for (i = 0;i < com_argc;i++)
242         {
243                 if (com_argv[i] && com_argv[i][0] == '+' && (com_argv[i][1] < '0' || com_argv[i][1] > '9'))
244                 {
245                         l = 0;
246                         j = 1;
247                         while (com_argv[i][j])
248                                 build[l++] = com_argv[i][j++];
249                         i++;
250                         for (;i < com_argc;i++)
251                         {
252                                 if (!com_argv[i])
253                                         continue;
254                                 if ((com_argv[i][0] == '+' || com_argv[i][0] == '-') && (com_argv[i][1] < '0' || com_argv[i][1] > '9'))
255                                         break;
256                                 if (l + strlen(com_argv[i]) + 5 > sizeof(build))
257                                         break;
258                                 build[l++] = ' ';
259                                 build[l++] = '\"';
260                                 for (j = 0;com_argv[i][j];j++)
261                                         build[l++] = com_argv[i][j];
262                                 build[l++] = '\"';
263                         }
264                         build[l++] = '\n';
265                         build[l++] = 0;
266                         Cbuf_InsertText (build);
267                         i--;
268                 }
269         }
270 }
271
272
273 /*
274 ===============
275 Cmd_Exec_f
276 ===============
277 */
278 static void Cmd_Exec_f (void)
279 {
280         char *f;
281
282         if (Cmd_Argc () != 2)
283         {
284                 Con_Print("exec <filename> : execute a script file\n");
285                 return;
286         }
287
288         f = (char *)FS_LoadFile (Cmd_Argv(1), tempmempool, false);
289         if (!f)
290         {
291                 Con_Printf("couldn't exec %s\n",Cmd_Argv(1));
292                 return;
293         }
294         Con_DPrintf("execing %s\n",Cmd_Argv(1));
295
296         Cbuf_InsertText (f);
297         Mem_Free(f);
298 }
299
300
301 /*
302 ===============
303 Cmd_Echo_f
304
305 Just prints the rest of the line to the console
306 ===============
307 */
308 static void Cmd_Echo_f (void)
309 {
310         int             i;
311
312         for (i=1 ; i<Cmd_Argc() ; i++)
313                 Con_Printf("%s ",Cmd_Argv(i));
314         Con_Print("\n");
315 }
316
317 /*
318 ===============
319 Cmd_Alias_f
320
321 Creates a new command that executes a command string (possibly ; seperated)
322 ===============
323 */
324 static void Cmd_Alias_f (void)
325 {
326         cmdalias_t      *a;
327         char            cmd[1024];
328         int                     i, c;
329         const char              *s;
330
331         if (Cmd_Argc() == 1)
332         {
333                 Con_Print("Current alias commands:\n");
334                 for (a = cmd_alias ; a ; a=a->next)
335                         Con_Printf("%s : %s\n", a->name, a->value);
336                 return;
337         }
338
339         s = Cmd_Argv(1);
340         if (strlen(s) >= MAX_ALIAS_NAME)
341         {
342                 Con_Print("Alias name is too long\n");
343                 return;
344         }
345
346         // if the alias already exists, reuse it
347         for (a = cmd_alias ; a ; a=a->next)
348         {
349                 if (!strcmp(s, a->name))
350                 {
351                         Z_Free (a->value);
352                         break;
353                 }
354         }
355
356         if (!a)
357         {
358                 a = Z_Malloc (sizeof(cmdalias_t));
359                 a->next = cmd_alias;
360                 cmd_alias = a;
361         }
362         strlcpy (a->name, s, sizeof (a->name));
363
364 // copy the rest of the command line
365         cmd[0] = 0;             // start out with a null string
366         c = Cmd_Argc();
367         for (i=2 ; i< c ; i++)
368         {
369                 strlcat (cmd, Cmd_Argv(i), sizeof (cmd));
370                 if (i != c)
371                         strlcat (cmd, " ", sizeof (cmd));
372         }
373         strlcat (cmd, "\n", sizeof (cmd));
374
375         a->value = Z_Malloc (strlen (cmd) + 1);
376         strcpy (a->value, cmd);
377 }
378
379 /*
380 =============================================================================
381
382                                         COMMAND EXECUTION
383
384 =============================================================================
385 */
386
387 typedef struct cmd_function_s
388 {
389         struct cmd_function_s *next;
390         const char *name;
391         xcommand_t function;
392 } cmd_function_t;
393
394
395 #define MAX_ARGS                80
396
397 static int cmd_argc;
398 static const char *cmd_argv[MAX_ARGS];
399 static const char *cmd_null_string = "";
400 static const char *cmd_args = NULL;
401
402 cmd_source_t cmd_source;
403
404
405 static cmd_function_t *cmd_functions;           // possible commands to execute
406
407 /*
408 ========
409 Cmd_List
410
411         CmdList Added by EvilTypeGuy eviltypeguy@qeradiant.com
412         Thanks to Matthias "Maddes" Buecher, http://www.inside3d.com/qip/
413
414 ========
415 */
416 static void Cmd_List_f (void)
417 {
418         cmd_function_t *cmd;
419         const char *partial;
420         int len, count;
421
422         if (Cmd_Argc() > 1)
423         {
424                 partial = Cmd_Argv (1);
425                 len = strlen(partial);
426         }
427         else
428         {
429                 partial = NULL;
430                 len = 0;
431         }
432
433         count = 0;
434         for (cmd = cmd_functions; cmd; cmd = cmd->next)
435         {
436                 if (partial && strncmp(partial, cmd->name, len))
437                         continue;
438                 Con_Printf("%s\n", cmd->name);
439                 count++;
440         }
441
442         Con_Printf("%i Command%s", count, (count > 1) ? "s" : "");
443         if (partial)
444                 Con_Printf(" beginning with \"%s\"", partial);
445
446         Con_Print("\n\n");
447 }
448
449 /*
450 ============
451 Cmd_Init
452 ============
453 */
454 void Cmd_Init (void)
455 {
456         cmd_mempool = Mem_AllocPool("commands", 0, NULL);
457
458 //
459 // register our commands
460 //
461         Cmd_AddCommand ("stuffcmds",Cmd_StuffCmds_f);
462         Cmd_AddCommand ("exec",Cmd_Exec_f);
463         Cmd_AddCommand ("echo",Cmd_Echo_f);
464         Cmd_AddCommand ("alias",Cmd_Alias_f);
465         Cmd_AddCommand ("cmd", Cmd_ForwardToServer);
466         Cmd_AddCommand ("wait", Cmd_Wait_f);
467         Cmd_AddCommand ("cmdlist", Cmd_List_f);         // Added/Modified by EvilTypeGuy eviltypeguy@qeradiant.com
468         Cmd_AddCommand ("cvarlist", Cvar_List_f);       // 2000-01-09 CmdList, CvarList commands
469                                                                                                 // By Matthias "Maddes" Buecher
470         Cmd_AddCommand ("set", Cvar_Set_f);
471         Cmd_AddCommand ("seta", Cvar_SetA_f);
472 }
473
474 /*
475 ============
476 Cmd_Shutdown
477 ============
478 */
479 void Cmd_Shutdown(void)
480 {
481         Mem_FreePool(&cmd_mempool);
482 }
483
484 /*
485 ============
486 Cmd_Argc
487 ============
488 */
489 int             Cmd_Argc (void)
490 {
491         return cmd_argc;
492 }
493
494 /*
495 ============
496 Cmd_Argv
497 ============
498 */
499 const char *Cmd_Argv (int arg)
500 {
501         if (arg >= cmd_argc )
502                 return cmd_null_string;
503         return cmd_argv[arg];
504 }
505
506 /*
507 ============
508 Cmd_Args
509 ============
510 */
511 const char *Cmd_Args (void)
512 {
513         return cmd_args;
514 }
515
516
517 /*
518 ============
519 Cmd_TokenizeString
520
521 Parses the given string into command line tokens.
522 ============
523 */
524 static void Cmd_TokenizeString (const char *text)
525 {
526         int l;
527
528         cmd_argc = 0;
529         cmd_args = NULL;
530
531         while (1)
532         {
533                 // skip whitespace up to a /n
534                 while (*text && *text <= ' ' && *text != '\r' && *text != '\n')
535                         text++;
536
537                 // line endings:
538                 // UNIX: \n
539                 // Mac: \r
540                 // Windows: \r\n
541                 if (*text == '\n' || *text == '\r')
542                 {
543                         // a newline seperates commands in the buffer
544                         if (*text == '\r' && text[1] == '\n')
545                                 text++;
546                         text++;
547                         break;
548                 }
549
550                 if (!*text)
551                         return;
552
553                 if (cmd_argc == 1)
554                          cmd_args = text;
555
556                 if (!COM_ParseTokenConsole(&text))
557                         return;
558
559                 if (cmd_argc < MAX_ARGS)
560                 {
561                         l = strlen(com_token) + 1;
562                         if (cmd_tokenizebufferpos + l > CMD_TOKENIZELENGTH)
563                                 Sys_Error("Cmd_TokenizeString: ran out of %i character buffer space for command arguements\n", CMD_TOKENIZELENGTH);
564                         strcpy (cmd_tokenizebuffer + cmd_tokenizebufferpos, com_token);
565                         cmd_argv[cmd_argc] = cmd_tokenizebuffer + cmd_tokenizebufferpos;
566                         cmd_tokenizebufferpos += l;
567                         cmd_argc++;
568                 }
569         }
570
571 }
572
573
574 /*
575 ============
576 Cmd_AddCommand
577 ============
578 */
579 void Cmd_AddCommand (const char *cmd_name, xcommand_t function)
580 {
581         cmd_function_t *cmd;
582
583 // fail if the command is a variable name
584         if (Cvar_VariableString(cmd_name)[0])
585         {
586                 Con_Printf("Cmd_AddCommand: %s already defined as a var\n", cmd_name);
587                 return;
588         }
589
590 // fail if the command already exists
591         for (cmd=cmd_functions ; cmd ; cmd=cmd->next)
592         {
593                 if (!strcmp (cmd_name, cmd->name))
594                 {
595                         Con_Printf("Cmd_AddCommand: %s already defined\n", cmd_name);
596                         return;
597                 }
598         }
599
600         cmd = Mem_Alloc(cmd_mempool, sizeof(cmd_function_t));
601         cmd->name = cmd_name;
602         cmd->function = function;
603         cmd->next = cmd_functions;
604         cmd_functions = cmd;
605 }
606
607 /*
608 ============
609 Cmd_Exists
610 ============
611 */
612 qboolean Cmd_Exists (const char *cmd_name)
613 {
614         cmd_function_t  *cmd;
615
616         for (cmd=cmd_functions ; cmd ; cmd=cmd->next)
617                 if (!strcmp (cmd_name,cmd->name))
618                         return true;
619
620         return false;
621 }
622
623
624 /*
625 ============
626 Cmd_CompleteCommand
627 ============
628 */
629 const char *Cmd_CompleteCommand (const char *partial)
630 {
631         cmd_function_t *cmd;
632         int len;
633
634         len = strlen(partial);
635
636         if (!len)
637                 return NULL;
638
639 // check functions
640         for (cmd = cmd_functions; cmd; cmd = cmd->next)
641                 if (!strncmp(partial, cmd->name, len))
642                         return cmd->name;
643
644         return NULL;
645 }
646
647 /*
648         Cmd_CompleteCountPossible
649
650         New function for tab-completion system
651         Added by EvilTypeGuy
652         Thanks to Fett erich@heintz.com
653         Thanks to taniwha
654
655 */
656 int Cmd_CompleteCountPossible (const char *partial)
657 {
658         cmd_function_t *cmd;
659         int len, h;
660
661         h = 0;
662         len = strlen(partial);
663
664         if (!len)
665                 return 0;
666
667         // Loop through the command list and count all partial matches
668         for (cmd = cmd_functions; cmd; cmd = cmd->next)
669                 if (!strncasecmp(partial, cmd->name, len))
670                         h++;
671
672         return h;
673 }
674
675 /*
676         Cmd_CompleteBuildList
677
678         New function for tab-completion system
679         Added by EvilTypeGuy
680         Thanks to Fett erich@heintz.com
681         Thanks to taniwha
682
683 */
684 const char **Cmd_CompleteBuildList (const char *partial)
685 {
686         cmd_function_t *cmd;
687         int len = 0;
688         int bpos = 0;
689         int sizeofbuf = (Cmd_CompleteCountPossible (partial) + 1) * sizeof (const char *);
690         const char **buf;
691
692         len = strlen(partial);
693         buf = Mem_Alloc(tempmempool, sizeofbuf + sizeof (const char *));
694         // Loop through the alias list and print all matches
695         for (cmd = cmd_functions; cmd; cmd = cmd->next)
696                 if (!strncasecmp(partial, cmd->name, len))
697                         buf[bpos++] = cmd->name;
698
699         buf[bpos] = NULL;
700         return buf;
701 }
702
703 /*
704         Cmd_CompleteAlias
705
706         New function for tab-completion system
707         Added by EvilTypeGuy
708         Thanks to Fett erich@heintz.com
709         Thanks to taniwha
710
711 */
712 const char *Cmd_CompleteAlias (const char *partial)
713 {
714         cmdalias_t *alias;
715         int len;
716
717         len = strlen(partial);
718
719         if (!len)
720                 return NULL;
721
722         // Check functions
723         for (alias = cmd_alias; alias; alias = alias->next)
724                 if (!strncasecmp(partial, alias->name, len))
725                         return alias->name;
726
727         return NULL;
728 }
729
730 /*
731         Cmd_CompleteAliasCountPossible
732
733         New function for tab-completion system
734         Added by EvilTypeGuy
735         Thanks to Fett erich@heintz.com
736         Thanks to taniwha
737
738 */
739 int Cmd_CompleteAliasCountPossible (const char *partial)
740 {
741         cmdalias_t      *alias;
742         int                     len;
743         int                     h;
744
745         h = 0;
746
747         len = strlen(partial);
748
749         if (!len)
750                 return 0;
751
752         // Loop through the command list and count all partial matches
753         for (alias = cmd_alias; alias; alias = alias->next)
754                 if (!strncasecmp(partial, alias->name, len))
755                         h++;
756
757         return h;
758 }
759
760 /*
761         Cmd_CompleteAliasBuildList
762
763         New function for tab-completion system
764         Added by EvilTypeGuy
765         Thanks to Fett erich@heintz.com
766         Thanks to taniwha
767
768 */
769 const char **Cmd_CompleteAliasBuildList (const char *partial)
770 {
771         cmdalias_t *alias;
772         int len = 0;
773         int bpos = 0;
774         int sizeofbuf = (Cmd_CompleteAliasCountPossible (partial) + 1) * sizeof (const char *);
775         const char **buf;
776
777         len = strlen(partial);
778         buf = Mem_Alloc(tempmempool, sizeofbuf + sizeof (const char *));
779         // Loop through the alias list and print all matches
780         for (alias = cmd_alias; alias; alias = alias->next)
781                 if (!strncasecmp(partial, alias->name, len))
782                         buf[bpos++] = alias->name;
783
784         buf[bpos] = NULL;
785         return buf;
786 }
787
788 /*
789 ============
790 Cmd_ExecuteString
791
792 A complete command line has been parsed, so try to execute it
793 FIXME: lookupnoadd the token to speed search?
794 ============
795 */
796 void Cmd_ExecuteString (const char *text, cmd_source_t src)
797 {
798         int oldpos;
799         cmd_function_t *cmd;
800         cmdalias_t *a;
801
802         oldpos = cmd_tokenizebufferpos;
803         cmd_source = src;
804         Cmd_TokenizeString (text);
805
806 // execute the command line
807         if (!Cmd_Argc())
808         {
809                 cmd_tokenizebufferpos = oldpos;
810                 return;         // no tokens
811         }
812
813 // check functions (only after host_initialized)
814         if (host_initialized || !strcasecmp(cmd_argv[0], "exec") || !strcasecmp(cmd_argv[0], "set") || !strcasecmp(cmd_argv[0], "seta"))
815         {
816                 for (cmd=cmd_functions ; cmd ; cmd=cmd->next)
817                 {
818                         if (!strcasecmp (cmd_argv[0],cmd->name))
819                         {
820                                 cmd->function ();
821                                 cmd_tokenizebufferpos = oldpos;
822                                 return;
823                         }
824                 }
825         }
826
827 // check alias (only after host_initialized)
828         if (host_initialized)
829         {
830                 for (a=cmd_alias ; a ; a=a->next)
831                 {
832                         if (!strcasecmp (cmd_argv[0], a->name))
833                         {
834                                 Cbuf_InsertText (a->value);
835                                 cmd_tokenizebufferpos = oldpos;
836                                 return;
837                         }
838                 }
839         }
840
841 // check cvars (always)
842         if (!Cvar_Command () && host_initialized)
843                 Con_Printf("Unknown command \"%s\"\n", Cmd_Argv(0));
844
845         cmd_tokenizebufferpos = oldpos;
846 }
847
848
849 /*
850 ===================
851 Cmd_ForwardStringToServer
852
853 Sends an entire command string over to the server, unprocessed
854 ===================
855 */
856 void Cmd_ForwardStringToServer (const char *s)
857 {
858         if (cls.state != ca_connected)
859         {
860                 Con_Printf("Can't \"%s\", not connected\n", s);
861                 return;
862         }
863
864         if (cls.demoplayback)
865                 return;         // not really connected
866
867         // LordHavoc: thanks to Fuh for bringing the pure evil of SZ_Print to my
868         // attention, it has been eradicated from here, its only (former) use in
869         // all of darkplaces.
870         MSG_WriteByte(&cls.message, clc_stringcmd);
871         SZ_Write(&cls.message, s, strlen(s) + 1);
872 }
873
874 /*
875 ===================
876 Cmd_ForwardToServer
877
878 Sends the entire command line over to the server
879 ===================
880 */
881 void Cmd_ForwardToServer (void)
882 {
883         const char *s;
884         if (strcasecmp(Cmd_Argv(0), "cmd"))
885                 s = va("%s %s", Cmd_Argv(0), Cmd_Argc() > 1 ? Cmd_Args() : "");
886         else
887                 s = Cmd_Argc() > 1 ? Cmd_Args() : "";
888         Cmd_ForwardStringToServer(s);
889 }
890
891
892 /*
893 ================
894 Cmd_CheckParm
895
896 Returns the position (1 to argc-1) in the command's argument list
897 where the given parameter apears, or 0 if not present
898 ================
899 */
900
901 int Cmd_CheckParm (const char *parm)
902 {
903         int i;
904
905         if (!parm)
906                 Sys_Error ("Cmd_CheckParm: NULL");
907
908         for (i = 1; i < Cmd_Argc (); i++)
909                 if (!strcasecmp (parm, Cmd_Argv (i)))
910                         return i;
911
912         return 0;
913 }
914