CydandClaude Fable 5
db7745fcd0
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>
116 lines
2.2 KiB
Plaintext
116 lines
2.2 KiB
Plaintext
/*
|
|
** BRIEF -- Basic Reconfigurable Interactive Editing Facility
|
|
**
|
|
** Written by Dave Nanian and Michael Strickman.
|
|
*/
|
|
|
|
/*
|
|
** scrapper.cb:
|
|
**
|
|
** This file saves the current scrap and scrap type to the state file
|
|
** on exit. To use it, put the string "-mscrapper" (no quotes) after the
|
|
** "-mrestore" or "-mpwb" in your BFLAGS. For example:
|
|
**
|
|
** set bflags=-mrestore -mscrapper
|
|
**
|
|
** - or -
|
|
**
|
|
** set bflags=-mpwb -mscrapper
|
|
*/
|
|
|
|
extern _save_state (),
|
|
_restore ();
|
|
|
|
replacement _save_state ()
|
|
{
|
|
int scrap_eoln,
|
|
scrap_type,
|
|
scrap_buf;
|
|
|
|
if (scrap_buf = inq_scrap (scrap_eoln, scrap_type))
|
|
{
|
|
string ext;
|
|
|
|
/*
|
|
** If the state save buffer is a PWB state file, then remove old
|
|
** scrap info and make the scrap text PWB compatible (make every line
|
|
** of the scrap a comment line).
|
|
*/
|
|
|
|
inq_names (NULL, ext);
|
|
|
|
if (ext == "sts")
|
|
{
|
|
int state_buf = inq_buffer ();
|
|
|
|
set_buffer (scrap_buf);
|
|
top_of_buffer ();
|
|
translate ("<", ";", 1, 1);
|
|
set_buffer (state_buf);
|
|
|
|
save_position ();
|
|
top_of_buffer ();
|
|
|
|
if (search_fwd ("<[\t ]@\\[brief-scrap\\]", 1, 1))
|
|
{
|
|
drop_anchor ();
|
|
search_fwd ("\\[end-brief-scrap\\]\\c", 1, 1);
|
|
delete_block ();
|
|
}
|
|
restore_position ();
|
|
}
|
|
|
|
insert ("[brief-scrap]\n%d %d\n", scrap_eoln, scrap_type);
|
|
paste ();
|
|
insert ("[end-brief-scrap]\n");
|
|
}
|
|
returns (_save_state ());
|
|
}
|
|
|
|
replacement _restore ()
|
|
{
|
|
_restore ();
|
|
top_of_buffer ();
|
|
|
|
if (search_fwd ("<\\[brief-scrap\\]>"))
|
|
{
|
|
int scrap_eoln,
|
|
scrap_type;
|
|
|
|
string line;
|
|
|
|
down ();
|
|
line = read ();
|
|
scrap_eoln = atoi (line);
|
|
scrap_type = atoi (substr (line, index (line, " ")));
|
|
down ();
|
|
drop_anchor (scrap_type);
|
|
|
|
search_fwd ("\\[end-brief-scrap\\]>");
|
|
|
|
if (scrap_type != 4)
|
|
prev_char ();
|
|
|
|
copy ();
|
|
set_scrap_info (scrap_eoln);
|
|
|
|
/*
|
|
** If the state save buffer is a PWB state file, then remove the
|
|
** comment characters from the scrap text.
|
|
*/
|
|
|
|
inq_names (NULL, line);
|
|
|
|
if (line == "sts")
|
|
{
|
|
int save_buf = inq_buffer (),
|
|
scrap_buf = inq_scrap ();
|
|
|
|
set_buffer (scrap_buf);
|
|
top_of_buffer ();
|
|
translate ("<;", "", 1, 1);
|
|
set_buffer (save_buf);
|
|
}
|
|
}
|
|
}
|