lib/clips_trace.c
static struct expr *AssertParse(
    void *theEnv,
    struct expr *top,
    const char *logicalName)
{
    int error;
    struct expr *rv;
    struct token theToken;

    ReturnExpression(theEnv, top);
    SavePPBuffer(theEnv," ");
    IncrementIndentDepth(theEnv,8);
    rv = BuildRHSAssert(theEnv, logicalName, &theToken, &error, TRUE, TRUE,
                        "trace-assert command");
    if (rv != NULL && rv->type == FCALL)
        rv->value = FindFunction(theEnv, "trace-assert");
    DecrementIndentDepth(theEnv,8);
    return(rv);
}
// Copied from factcom.c
/****************************************************************/
/* AssertParse: Driver routine for parsing the assert function. */
/****************************************************************/
Copied from factcom.c
AssertParse: Driver routine for parsing the assert function.
Copied from factcom . c AssertParse : Driver routine for parsing the assert function .
static struct expr *AssertParse(
    void *theEnv,
    struct expr *top,
    const char *logicalName)
{
    int error;
    struct expr *rv;
    struct token theToken;
    ReturnExpression(theEnv, top);
    SavePPBuffer(theEnv," ");
    IncrementIndentDepth(theEnv,8);
    rv = BuildRHSAssert(theEnv, logicalName, &theToken, &error, TRUE, TRUE,
                        "trace-assert command");
    if (rv != NULL && rv->type == FCALL)
        rv->value = FindFunction(theEnv, "trace-assert");
    DecrementIndentDepth(theEnv,8);
    return(rv);
}
static struct expr * AssertParse ( void * theEnv , struct expr * top , const char * logicalName ) { int error ; struct expr * rv ; struct token theToken ; ReturnExpression ( theEnv , top ) ; SavePPBuffer ( theEnv , " " ) ; IncrementIndentDepth ( theEnv , 8 ) ; rv = BuildRHSAssert ( theEnv , logicalName , & theToken , & error , TRUE , TRUE , " " ) ; if ( rv != NULL && rv -> type == FCALL ) rv -> value = FindFunction ( theEnv , " " ) ; DecrementIndentDepth ( theEnv , 8 ) ; return ( rv ) ; }
Copied from factcom.c
AssertParse: Driver routine for parsing the assert function.
Copied from factcom . c AssertParse : Driver routine for parsing the assert function .