error. ( error -- )
Factor handbook » The language » Exception handling » The debugger

Prev:	try ( quot -- )
Next:	:error ( -- )

Vocabulary
debugger

Inputs

error

an error

Outputs
None

Generic word contract
Print an error to output-stream. You can define methods on this generic word to print human-readable messages for custom errors.

Notes
Code should call print-error instead, which handles the case where the printing of the error itself throws an error.

Definition

IN: debugger

GENERIC: error. ( error -- )

Methods

USING: debugger io summary vocabs.parser ;

M: ambiguous-use-error error. summary print ;


USING: accessors debugger io io.styles kernel prettyprint
sequences ;

M: assert-sequence error.
    standard-table-style [
        [ "=== Expected:" print expected>> stack. ]
        [ "=== Got:" print got>> stack. ] bi
    ] tabular-output ;


USING: debugger generic io xml.errors ;

M: attr-w/< error.
    M\ attr-w/< error. (call-next-method)
    "Attribute value contains literal <" print ;


USING: debugger generic io xml.errors ;

M: bad-cdata error.
    M\ bad-cdata error. (call-next-method)
    "CDATA occurs before or after main tag" print ;


USING: debugger generic io xml.errors ;

M: bad-decl error.
    M\ bad-decl error. (call-next-method)
    "Extra content in directive" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: bad-directive error.
    dup M\ bad-directive error. (call-next-method)
    "Unknown directive:" print dir>> print ;


USING: debugger generic io xml.errors ;

M: bad-doctype error.
    M\ bad-doctype error. (call-next-method)
    "DTD contains invalid object" print ;


USING: debugger generic io xml.errors ;

M: bad-encoding error.
    M\ bad-encoding error. (call-next-method)
    "Encoding in XML document does not exist" print ;


USING: accessors debugger io strings.parser ;

M: bad-escape error.
    "Bad escape code: \\" write char>> write nl ;


USING: debugger generic io xml.errors ;

M: bad-external-id error.
    M\ bad-external-id error. (call-next-method)
    "Bad external ID" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: bad-name error.
    dup M\ bad-name error. (call-next-method)
    "Invalid name: " write name>> print ;


USING: accessors debugger generic io kernel xml.errors
xml.writer ;

M: bad-prolog error.
    dup M\ bad-prolog error. (call-next-method)
    "Misplaced XML prolog" print prolog>> write-xml nl ;


USING: accessors debugger generic io kernel prettyprint
xml.errors ;

M: bad-uri error.
    dup M\ bad-uri error. (call-next-method) "Bad URI:" print
    string>> . ;


USING: accessors debugger io prettyprint xml.errors ;

M: bad-version error.
    "XML version must be \"1.0\" or \"1.1\". Version here was "
    write num>> . ;


USING: accessors debugger editors io prettyprint ;

M: cannot-find-source error.
    "Cannot find source for ``" write definition>> pprint-short
    "''" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: capitalized-prolog error.
    dup M\ capitalized-prolog error. (call-next-method)
    "XML prolog name was partially or totally capitalized, using"
    print "<?" write name>> write "...?>" write
    " instead of <?xml...?>" print ;


USING: accessors debugger gpu.shaders io kernel prettyprint ;

M: compile-shader-error error.
    "The GLSL shader " write
    [ shader>> name>> pprint-short " failed to compile." print ]
    [ log>> print ] bi ;


USING: accessors continuations debugger ;

M: condition error. error>> error. ;


USING: accessors assocs couchdb debugger io kernel ;

M: couchdb-error error.
    "CouchDB Error: " write data>> "error" over at
    [ print ] when* "reason" of [ print ] when* ;


USING: accessors debugger io kernel prettyprint sequences
tools.deprecation ;

M: deprecated-usages error.
    "The definition of " write dup asset>> pprint
    " uses these deprecated words:" write nl usages>>
    [ "    " write pprint nl ] each ;


USING: accessors debugger descriptive io kernel prettyprint ;

M: descriptive-error error.
    "The word " write dup word>> pprint
    " encountered an error." print "Arguments:" print
    dup args>> stack. "Error:" print underlying>> error. ;


USING: accessors debugger generic io kernel xml.errors ;

M: disallowed-char error.
    dup M\ disallowed-char error. (call-next-method)
    "Disallowed character in XML document: " write char>> write1
    nl ;


USING: accessors debugger http.client io prettyprint ;

M: download-failed error.
    "HTTP request failed:" print nl response>> ... ;


USING: debugger generic io xml.errors ;

M: duplicate-attr error.
    M\ duplicate-attr error. (call-next-method)
    "Duplicate attribute" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: expected error.
    dup M\ expected error. (call-next-method)
    "Token expected: " write dup should-be>> print
    "Token present: " write was>> print ;


USING: accessors debugger generic io kernel prettyprint
xml.errors ;

M: extra-attrs error.
    dup M\ extra-attrs error. (call-next-method)
    "Extra attributes included in xml version declaration:"
    print attrs>> . ;


USING: accessors debugger game.loop io ;

M: game-loop-error-state error.
    "An error occurred inside a game loop." print
    "The game loop has been stopped to prevent runaway errors."
    print "The error was:" print nl error>> error. ;


USING: accessors debugger gml io kernel ;

M: gml-file-error error.
    "Error in GML file “" write dup pathname>> write "”:" print
    nl error>> error. ;


USING: debugger gpu.shaders io kernel ;

M: inaccurate-feedback-attribute-error error.
    drop
    "The types of the transform feedback attributes don't match th..."
    print ;


USING: debugger gpu.shaders io kernel ;

M: invalid-link-feedback-format-error error.
    drop
    "Vertex formats used for transform feedback can't contain padd..."
    print ;


USING: accessors debugger kernel lexer ;

M: lexer-error error. [ lexer-dump ] [ error>> error. ] bi ;


USING: accessors debugger io kernel libc prettyprint ;

M: libc-error error.
    "Unix system call failed:" print nl dup message>> write
    " (" write errno>> pprint ")" print ;


USING: accessors debugger gpu.shaders io kernel prettyprint ;

M: link-program-error error.
    "The GLSL program " write
    [ shader>> name>> pprint-short " failed to link." print ]
    [ log>> print ] bi ;


USING: accessors concurrency.mailboxes debugger debugger.threads
kernel ;

M: linked-error error.
    [ thread>> error-in-thread. ] [ error>> error. ] bi ;


USING: accessors debugger generic io kernel xml.errors
xml.writer ;

M: mismatched error.
    dup M\ mismatched error. (call-next-method)
    "Mismatched tags" print "Opening tag: <" write
    dup open>> print-name ">" print "Closing tag: </" write
    close>> print-name ">" print ;


USING: accessors debugger generic io kernel xml.errors
xml.writer ;

M: misplaced-directive error.
    dup M\ misplaced-directive error. (call-next-method)
    "Misplaced directive:" print dir>> write-xml nl ;


USING: debugger generic io xml.errors ;

M: missing-close error.
    M\ missing-close error. (call-next-method)
    "Missing closing token." print ;


USING: debugger io kernel xml.errors ;

M: multitags error.
    drop "XML document contains multiple main tags" print ;


USING: debugger html.templates io kernel ;

M: no-boilerplate error.
    drop
    "get-title and set-title can only be used from within" print
    "a with-boilerplate form" print ;


USING: accessors debugger definitions io prettyprint ;

M: no-compilation-unit error.
    "Attempting to define " write definition>> pprint
    " outside of a compilation unit" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: no-entity error.
    dup M\ no-entity error. (call-next-method)
    "Entity does not exist: &" write thing>> write ";" print ;


USING: accessors assocs classes debugger io kernel multi-methods
prettyprint sequences ;

M: no-method error.
    "Type check error" print nl "Generic word " write
    dup generic>> pprint
    " does not have a method applicable to inputs:" print
    dup arguments>> short. nl "Inputs have signature:" print
    dup arguments>> [ class-of ] map niceify-method .
    nl "Available methods: " print
    generic>> methods canonicalize-specializers drop
    sort-methods keys [ niceify-method ] map stack. ;


USING: accessors classes debugger generic.single io kernel
prettyprint ;

M: no-method error.
    "Generic word " write dup generic>> pprint
    " does not define a method for the " write
    dup object>> class-of pprint " class." print
    "Dispatching on object: " write object>> short. ;


USING: debugger io summary vocabs.parser ;

M: no-word-error error. summary print ;


USING: debugger io summary vocabs.parser ;

M: no-word-in-vocab error. summary print ;


USING: accessors debugger generic io kernel xml.errors ;

M: nonexist-ns error.
    dup M\ nonexist-ns error. (call-next-method)
    "Namespace " write name>> write
    " has not been declared" print ;


USING: accessors compiler.errors debugger io kernel summary ;

M: not-compiled error.
    [ summary print nl ] [ error>> error. ] bi ;


USING: debugger generic io xml.errors ;

M: not-enough-characters error.
    M\ not-enough-characters error. (call-next-method)
    "Not enough characters" print ;


USING: accessors debugger generic io kernel xml.errors ;

M: not-yes/no error.
    dup M\ not-yes/no error. (call-next-method)
    "standalone must be either yes or no, not \"" write
    text>> write "\"." print ;


USING: debugger io kernel xml.errors ;

M: notags error. drop "XML document lacks a main tag" print ;


USING: debugger kernel prettyprint ;

M: object error. short. ;


USING: accessors debugger io io.launcher kernel prettyprint ;

M: output-process-error error.
    [ "Process:" print process>> . nl ]
    [ "Output:" print output>> print ] bi ;


USING: accessors debugger io kernel math.parser peg sequences ;

M: parse-error error.
    [
        "Peg parsing error at character position " write
        position>> number>string write
    ] [ ".\nExpected " write messages>> " or " join write ]
    [ "\nGot '" write got>> write "'" print ] tri ;


USING: accessors debugger io kernel prettyprint xml.errors ;

M: pre/post-content error.
    "The text string:" print dup string>> . "was used " write
    pre?>> "before" "after" ? write " the main tag." print ;


USING: accessors debugger io io.launcher prettyprint ;

M: process-already-started error.
    "Process has already been started" print
    nl "Launch descriptor:" print nl process>> . ;


USING: accessors debugger io io.launcher kernel prettyprint ;

M: process-failed error.
    [
        "Process exited with error code " write
        process>> status>> . nl "Launch descriptor:" print nl
    ] [ process>> . ] bi ;


USING: accessors debugger io io.launcher prettyprint ;

M: process-was-killed error.
    "Process was killed as a result of a call to" print
    "kill-process, or a timeout" print
    nl "Launch descriptor:" print nl process>> . ;


USING: debugger generic io xml.errors ;

M: quoteless-attr error.
    M\ quoteless-attr error. (call-next-method)
    "Attribute lacks quotes around value" print ;


USING: accessors compiler.units debugger io prettyprint ;

M: redefine-error error. "Re-definition of " write def>> . ;


USING: accessors debugger io kernel xml-rpc xml.writer ;

M: server-error error.
    "Error in XML supplied to server" print
    "Description: " write dup message>> print "Tag: " write
    tag>> xml>string print ;


USING: debugger help.lint.checks io summary ;

M: simple-lint-error error. summary print ;


USING: accessors classes debugger io kernel prettyprint
sequences smtp.private ;

M: smtp-error error.
    "SMTP error (" write dup class-of pprint ")" print
    response>> messages>> [ print ] each ;


USING: accessors debugger io kernel prettyprint
source-files.errors source-files.errors.debugger ;

M: source-file-error error.
    [ error-location print nl ]
    [ asset>> [ "Asset: " write short. nl ] when* ]
    [ error>> error. ] tri ;


USING: debugger io strings ;

M: string error. print ;


USING: accessors debugger html.templates io kernel prettyprint ;

M: template-error error.
    "Error while processing template " write
    [ template>> short. ":" print nl ] [ error>> error. ] bi ;


USING: accessors combinators debugger io kernel prettyprint
source-files.errors.debugger tools.test tools.test.private ;

M: test-failure error.
    {
        [ error-location print nl ]
        [ asset>> [ experiment. nl ] when* ]
        [ error>> error. ]
        [ continuation>> call>> callstack. ]
    } cleave ;


USING: debugger generic io xml.errors ;

M: text-w/]]> error.
    M\ text-w/]]> error. (call-next-method)
    "Text node contains ']]>'" print ;


USING: debugger gpu.shaders io kernel ;

M: too-many-feedback-formats-error error.
    drop
    "Only one transform feedback format can be specified for a pro..."
    print ;


USING: accessors debugger io kernel stack-checker.errors summary
;

M: transform-expansion-error error.
    [ summary print ]
    [ nl "The error was:" print error>> error. nl ]
    [ continuation>> traceback-link. ] tri ;


USING: debugger inspector kernel ;

M: tuple error. describe ;


USING: accessors arrays debugger io kernel prettyprint sequences
stack-checker.errors summary ;

M: unbalanced-branches-error error.
    dup summary print nl "For more information, evaluate:" print
    "    \"inference-branches\" help" print nl
    [ quots>> ] [ declareds>> ] [ actuals>> ] tri 3array flip
    { "Input" "Expected" "Got" } prefix simple-table. ;


USING: debugger generic io xml.errors ;

M: unclosed-quote error.
    M\ unclosed-quote error. (call-next-method)
    "XML document ends with quote still open" print ;


USING: accessors debugger generic io kernel sequences xml.errors
xml.writer ;

M: unclosed error.
    dup M\ unclosed error. (call-next-method)
    "Unclosed tags" print "Tags: " print tags>>
    [ "  <" write print-name ">" print ] each ;


USING: debugger generic io xml.errors ;

M: unexpected-end error.
    M\ unexpected-end error. (call-next-method)
    "File unexpectedly ended." print ;


USING: accessors debugger io kernel lexer ;

M: unexpected error.
    "Expected " write dup want>> expected>string write
    " but got " write got>> expected>string print ;


USING: accessors debugger io kernel prettyprint unix ;

M: unix-system-call-error error.
    "Unix system call “" write dup word>> pprint
    "” failed:" print nl dup message>> write " (" write
    dup errno>> pprint ")" print
    nl "It was called with the following arguments:" print
    nl args>> stack. ;


USING: debugger generic io xml.errors ;

M: unopened error.
    M\ unopened error. (call-next-method)
    "Closed an unopened tag" print ;


USING: accessors command-line debugger ;

M: user-init-error error. error>> error. ;


USING: debugger generic io xml.errors ;

M: versionless-prolog error.
    M\ versionless-prolog error. (call-next-method)
    "XML prolog lacks a version declaration" print ;


USING: debugger kernel sequences.private ;

M: vm-error error. dup vm-errors dispatch ;


USING: accessors debugger io kernel prettyprint
ui.gadgets.worlds ;

M: world-error error.
    "An error occurred while drawing the world " write
    dup world>> pprint-short "." print
    "This world has been deactivated to prevent cascading errors."
    print error>> error. ;


USING: accessors debugger io kernel prettyprint xml.errors ;

M: xml-error error.
    "XML parsing error" print "Line: " write dup line>> .
    "Column: " write column>> . ;