docstrip.tcl File Reference

Go to the source code of this file.

Modules
module	docstrip
Functions/Subroutines
ret	error (type situation, type message, optional errmessage="")

---

Function Documentation

ret error	(	type	situation,
		type	message,
		optional	errmessage = ""
	)

Type Constraints

Definition at line 131 of file docstrip.tcl.

Referenced by assert(), bench(), des::createKeys(), expectError(), fetchurl(), lassign(), NYI(), parray_stderr(), rdate(), des::stream(), and webview().

                                                                                     {
   upvar 1 O(-onerror) onerror lineno lineno
   switch -- [string tolower $onerror] "puts" {
      puts stderr "docstrip: $message on line $lineno."
   } "ignore" {} default {
      if {$errmessage ne ""} then {
         error $errmessage "" [list DOCSTRIP $situation $lineno]
      } else {
         error $message "" [list DOCSTRIP $situation $lineno]
      }
   }
}

Here is the caller graph for this function: