sda4: commit the Glaze developer hard-drive dump

Un-ignored: the dev drive is the ground truth the restoration and
emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer
source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio
content). Kept in-repo for the pod-owner community.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

sda4/BRIEF/MACROS/ROUTINES.M

@@ -0,0 +1,138 @@
+;**
+;**		BRIEF -- Basic Reconfigurable Interactive Editing Facility
+;**
+;**		Written by Dave Nanian and Michael Strickman.
+;**
+
+;**
+;**		routines.m:
+;**
+;**		This file contains macros that allow a programmer to select a
+;**	C routine from a menu and then go to it.  It makes a few assumptions
+;**	about programming style:  routines must begin in column one, and
+;**	the line with the declaration must end with a close paren (")").
+;**
+;**
+;**		Revision history:
+;**		-----------------
+
+#include	"dialog.h"
+
+;**
+;**		routines:
+;**
+;**		This macro implements the "go to a routine" feature of BRIEF.  It
+;**	scans the file for routine declarations, and builds a menu that gets
+;**	passed to the BRIEF dialog manager.  If a routine is selected from this
+;**	menu, on exit "_r_line" will have a non-zero value, and we go to that
+;**	line of the file.
+;**
+
+(macro routines
+	(
+		(int		menu_buf
+					old_buf_id
+					line
+					_r_line
+					loc
+		)
+		(string	menu_line
+					routine_name
+		)
+		(global	_r_line)
+
+		(= _r_line 0)
+		(save_position)
+		(top_of_buffer)
+		(= old_buf_id (inq_buffer))
+		(= menu_buf (create_buffer "Routines" NULL 1))
+		(message "Scanning for routines...")
+
+		(while (search_fwd "<[~ \t#/\\*;\n\\{\\}(]")
+			(
+				(= routine_name (read))
+				(= loc (strlen routine_name))
+
+				(while (index " \t\n" (substr routine_name loc 1))
+					(-- loc)
+				)
+				(if (&& (!= loc 1) (== (substr routine_name loc 1) ")"))
+					(
+						(++ _r_line)
+						(message "Scanning for routines [#%d]..." _r_line)
+						(= loc (search_string "[~ \t(\\*]\\c[ \t]@(" routine_name))
+						(= routine_name (+ (substr routine_name 1 (-- loc)) "\n"))
+						(= routine_name (substr routine_name (search_string "[~ \t\\*][~ \t\\*]@>" routine_name)))
+						(= routine_name (substr routine_name 1 (- (strlen routine_name) 1)))
+
+						(inq_position line)
+						(sprintf menu_line "\n%s\t%d;" routine_name line)
+
+						(set_buffer menu_buf)
+						(insert menu_line)
+						(set_buffer old_buf_id)
+					)
+				)
+				(next_char)
+			)
+		)
+		(= _r_line 0)
+		(restore_position)
+		(set_buffer menu_buf)
+		(inq_position line)
+		(top_of_buffer)
+
+		(if (> line 1)
+			(
+				(delete_line)
+				(tabs 80)
+
+				(if (> (+= line 3) 20)
+					(= line 20)
+				)
+				(set_buffer old_buf_id)
+				(_process_menu 30 line 50 3 NULL "" NULL menu_buf "_r_action" TRUE)
+
+				(if _r_line
+					(goto_line _r_line)
+				)
+			)
+		;else
+			(
+				(set_buffer old_buf_id)
+				(delete_buffer menu_buf)
+				(message "No routines found.")
+			)
+		)
+	)
+)
+
+;**
+;**		_r_action:
+;**
+;**		This routine is called by the dialog manager when a routine is
+;**	selected.
+;**
+
+(macro _r_action
+	(
+		(int	event_type)
+
+		(string	button_text)
+
+		(get_parm 0 event_type)
+
+		(switch event_type
+
+			DIALOG_PICK_MENU
+			NULL
+			DIALOG_F10
+				(
+					(get_parm 2 button_text)
+					(= _r_line (atoi (substr button_text (+ (rindex button_text "\t") 1))))
+					(_dialog_esc)
+				)
+		)
+		(returns TRUE)
+	)
+)