re-defining lib to suppress messages. 
Author Message
 re-defining lib to suppress messages.

For people stuck with V14.1, try this
-----------------------------------------------------------------------
section;

global vars procedure libwarning = erase;
;;; if necessary you can later redefine libwarning to print a message.

define global syntax lib;
        ;;; Read the library name, and then plant
        ;;; code to call libwarning, and then call loadlib.
        lvars file;
        dlocal popnewline = true;
        rdstringto([; ^termin ^newline]) -> file;
        sysPUSHQ(file);
        sysCALL("libwarning");
        sysPUSHQ(file);
        sysCALL("loadlib");
        ";" :: proglist -> proglist
enddefine;

endsection;
-----------------------------------------------------------------------



Sun, 26 Nov 1995 23:35:15 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Suppressing ;;;LIB messages

2. Suppressing ;;;LIB messages

3. redefining defining words

4. CLHS - (redefining) setf expanders and DEFINE-SETF-METHOD

5. Suppress error message when my process finds no rows

6. suppressing error messages from sql

7. Suppressing gforth startup message

8. forwarded message suppressing write errors on sockets

9. Suppress annoying messages (from AS/400 EXECSQL)?

10. ifc: suppress module messages ?

11. can't suppress or catch runtime warning messages issued by IMSL library

12. Error Messages - developer Defined

 

 
Powered by phpBB® Forum Software