Files
TeslaRel410/sda4/BRIEF/MACROS/UTILS/HELPPC.CB
T
CydandClaude Fable 5 db7745fcd0 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

66 lines
2.7 KiB
Plaintext

/****************************************************************************
** PROJECT ** HELPPC **
*****************************************************************************
** FUNCTION ** THIS MACRO WILL INVOKE HELPPC WITH THE TOPIC PASSED TO IT **
** ** AS A PARAMETER. IF NO TOPIC WAS PASSED, THE STRING UNDER **
** ** THE CURSOR IS PICKED UP AND PASSED. **
*****************************************************************************
** AUTHOR ** WARREN D HUMPHREYS **
*****************************************************************************
** DATE ** MONDAY 2ND SEPTEMBER 1991 **
*****************************************************************************
** COMMENTS ** RECOMMENDED KEY ASSOCIATIONS ARE :- <Ctrl-h> HelpPC **
*****************************************************************************
** MODIFICATION HISTORY **
*****************************************************************************
** DATE ** WHO ** CHANGED WHAT **
*****************************************************************************
** ** ** **
****************************************************************************/
/****************************************************************************
** FUNCTION PROTOTYPES **
****************************************************************************/
void HelpPC(string ~);
string _GetHelpPCTopic(void);
/****************************************************************************
** GLOBAL VARIABLES **
****************************************************************************/
/****************************************************************************
** ACTUAL FUNCTIONS **
****************************************************************************/
void HelpPC(string ~)
{
string CommandLine,
Topic;
if (!get_parm(0,Topic))
Topic=_GetHelpPCTopic();
sprintf(CommandLine,"HELPPC %s",Topic);
dos(CommandLine);
}
string _GetHelpPCTopic(void)
{
int TopicLen;
string Topic;
save_position();
search_back("<|[~_$a-zA-Z0-9][_$a-zA-Z]",1);
if ((TopicLen=search_fwd("[_$a-zA-Z0-9]+",-1) - 1) > 0)
Topic=read(TopicLen);
restore_position();
returns(Topic);
}