30  * Simple DDB scripting mechanism.  Each script consists of a named list of
39  * Scripts may be managed from within DDB using the script, scripts, and
54  *   run db_command_loop() after the script.  There should be a way to avoid
76  * struct ddb_script describes an individual script.
89  * While executing a script, we parse it using strsep(), so require a
92  * each concurrently executing script.
100  * We use a separate static buffer for script validation so that it is safe
101  * to validate scripts from within a script.  This is used only in
111  * global script data structures.
117  * Some script names have special meaning, such as those executed
124  * Find the existing script slot for a named script, if any.
140  * Find a new slot for a script, if available.  Does not mark as allocated in
156  * Perform very rudimentary validation of a proposed script.  It would be
157  * easy to imagine something more comprehensive.  The script string is
161 db_script_valid(const char *scriptname, const char *script)  in db_script_valid()  argument
169 	if (strlen(script) >= DB_MAXSCRIPTLEN)  in db_script_valid()
172 	strcpy(buffer, script);  in db_script_valid()
181  * Modify an existing script or add a new script with the specified script
182  * name and contents.  If there are no script slots available, an error will
186 db_script_set(const char *scriptname, const char *script)  in db_script_set()  argument
191 	error = db_script_valid(scriptname, script);  in db_script_set()
202 	strlcpy(dsp->ds_script, script, sizeof(dsp->ds_script));  in db_script_set()
207  * Delete an existing script by name, if found.
257  * Execute a script, breaking it up into individual commands and passing them
259  * restore control to the main script loop if things get too wonky when
264  * injected into the input at a lower layer.  We should validate the script
279 			db_printf("script '%s' not found\n", scriptname);  in db_script_exec()
284 		db_printf("Script stack too deep\n");  in db_script_exec()
291 	 * Parse script in temporary buffer, since strsep() is destructive.  in db_script_exec()
303 			db_printf("Script command '%s' returned error\n",  in db_script_exec()
313  * enter to a script name, and don't whine if the script doesn't exist.  If
314  * there is no matching script, try the catch-all script.
331  * run <scriptname>			- run a script
332  * script <scriptname>			- prints script
333  * script <scriptname> <script>		- set a script
334  * unscript <scriptname>		- remove a script
356  * Execute a script.
365 	 * might want to accept flags and arguments to the script itself.  in db_run_cmd()
378  * Print or set a named script, with the set portion broken out into its own
392 		db_printf("usage: script scriptname=script\n");  in db_script_cmd()
408 			db_printf("script '%s' not found\n", scriptname);  in db_script_cmd()
426  * Remove a named script.
443 		db_printf("script '%s' not found\n", db_tok_string);  in db_unscript_cmd()
453  * debug.ddb.scripting.script      - Define a new script
455  * debug.ddb.scripting.unscript    - Remove an existing script
458  * name space from the debugger, the script/unscript sysctls are a bit more
464     "DDB script settings");
475 	 * maximum-length script, and carriage return for every script that  in sysctl_debug_ddb_scripting_scripts()
504 	char *buffer, *script, *scriptname;  in sysctl_debug_ddb_scripting_script()  local
518 	 * Argument will be in form scriptname=script, so split into the  in sysctl_debug_ddb_scripting_script()
519 	 * scriptname and script.  in sysctl_debug_ddb_scripting_script()
521 	script = buffer;  in sysctl_debug_ddb_scripting_script()
522 	scriptname = strsep(&script, "=");  in sysctl_debug_ddb_scripting_script()
523 	if (script == NULL) {  in sysctl_debug_ddb_scripting_script()
528 	error = db_script_set(scriptname, script);  in sysctl_debug_ddb_scripting_script()
534 SYSCTL_PROC(_debug_ddb_scripting, OID_AUTO, script,
537     "Set a script");
541  * the name of the script that you want to delete.
565     "Unset a script");