Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

$NOLIB

Propósito

Para que o programa não utilize bibliotecas do usuário.

Sintaxe

$ NOLIB

Utilização

Útil em programas que tenham suas PROCEDURES e FUNCTIONS definidas em sua fonte e que não façam referência a rotinas externas.

Exemplo

O exemplo a seguir mostra-nos a utilização deste comando. Verifique o resultado da compilação desta fonte sem o comando $NOLIB.

$ NOLIB

PROG

FUNCTION sim_nao(l)

DO WHILE sim_nao("CONTINUA S/N?")

  DO imp_hora

ENDDO

QUIT(0)

PROC imp_hora

? "Agora sao ", TIME()

RETURN

FUNCTION sim_nao

PARAMETERS texto(c)

DO WHILE .T.

  MESSAGE texto BLINK

  resp = UPPER(CHR(INKEY()))

  IF resp = "S"

    RETURN(.T.)

  ELSEIF resp = "N"

    RETURN(.F.)

  ENDIF

ENDDO

Consulte

$LIBLOCK, $LIBRARY, FUNCTION, PROCEDURE e PROGRAM.

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!