18.04.03.01.01.03 prclib.c

 

Todas as actions estão no arquivo: prclib.c

Não precisamos mexer neste arquivo para construirmos nossa instrução se.

Mesmo assim segue o caminho do arquivo e parte do código-fonte para que possamos efetuar nossos estudos.

 

Caminho completo

D:\seed7\src\prclib.c

 

Segue o código

 

 

 

objecttype prc_if (listtype arguments)

 

  {

    objecttype condition;

 

  /* prc_if */

    isit_bool(arg_2(arguments));

    condition = take_bool(arg_2(arguments));

    if (condition == SYS_TRUE_OBJECT) {

      evaluate(arg_4(arguments));

    } /* if */

    return SYS_EMPTY_OBJECT;

  } /* prc_if */

 

 

 

 

 

objecttype prc_if_elsif (listtype arguments)

 

  {

    objecttype condition;

 

  /* prc_if_elsif */

    isit_bool(arg_2(arguments));

    condition = take_bool(arg_2(arguments));

    if (condition == SYS_TRUE_OBJECT) {

      evaluate(arg_4(arguments));

    } else {

      evaluate(arg_5(arguments));

    } /* if */

    return SYS_EMPTY_OBJECT;

  } /* prc_if_elsif */