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>
2026-07-04 19:41:15 -05:00
parent 504aef88d4
commit db7745fcd0
19993 changed files with 1983033 additions and 0 deletions
@@ -0,0 +1,81 @@
+/****************************************************************************
+** PROJECT  **                           SAFEDOS                           **
+*****************************************************************************
+** FUNCTION ** REPLACEMENT FOR "dos" MACRO. IF THERE ARE ANY MODIFIED      **
+**          ** BUFFERS IN MEMORY, THE USER IS INFORMED AND GIVEN THE USUAL **
+**          ** OPTIONS OF CONTINUING ANYWAY, ABORTING, OR WRITING THEM TO  **
+**          ** DISK BEFORE CONTINUING!                                     **
+*****************************************************************************
+**  AUTHOR  ** WARREN D HUMPHREYS                                          **
+*****************************************************************************
+**   DATE   ** WEDNESDAY 23RD OCTOBER 1991                                 **
+*****************************************************************************
+** COMMENTS **                                                             **
+*****************************************************************************
+**                          MODIFICATION HISTORY                           **
+*****************************************************************************
+**   DATE   ** WHO **                     CHANGED WHAT                     **
+*****************************************************************************
+**          **     **                                                      **
+****************************************************************************/
+
+/****************************************************************************
+**                           FUNCTION PROTOTYPES                           **
+****************************************************************************/
+
+replacement	int	dos();
+
+/****************************************************************************
+**                            GLOBAL VARIABLES                             **
+****************************************************************************/
+
+/****************************************************************************
+**                            ACTUAL FUNCTIONS                             **
+****************************************************************************/
+
+replacement	int	dos()
+{
+	int			Modified,
+					NewBuffID,
+					ReturnCode,
+					ThisBuffID;
+
+	string	Message,
+					Prompt,
+					Reply;
+
+	Modified=0;
+	Reply="Y";
+	ReturnCode=0;
+	ThisBuffID=inq_buffer(NULL);
+	do
+	{
+		set_buffer(NewBuffID=next_buffer(0));
+		if (inq_modified(NULL))
+			Modified+=1;
+	}
+	while (NewBuffID!=ThisBuffID);
+	if (Modified)
+	{
+		sprintf(Prompt,"%d buffer%s not been saved. Shell [ynw]? ",Modified,
+			Modified==1 ? " has" : "s have");
+		get_parm(NULL,Reply,Prompt,1,"");
+		if (upper(Reply)=="W")
+		{
+			sprintf(Message,"Writing modified buffer%s",Modified==1 ? "" : "s");
+			message(Message);
+			do
+			{
+				set_buffer(NewBuffID=next_buffer(0));
+				if (inq_modified(NULL))
+					write_buffer();
+			}
+			while (NewBuffID!=ThisBuffID);
+		}
+	}
+	if (upper(Reply)=="N")
+		ReturnCode=0;
+	else
+		ReturnCode=dos();
+	return(ReturnCode);
+}