Artifact Content
Not logged in

Artifact 2f8eb9e5c9939b871a9261c81d38ca843373125a:


\ log dump class

\ Copyright (C) 2011-2014   Bernd Paysan

\ This program is free software: you can redistribute it and/or modify
\ it under the terms of the GNU Affero General Public License as published by
\ the Free Software Foundation, either version 3 of the License, or
\ (at your option) any later version.

\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
\ GNU Affero General Public License for more details.

\ You should have received a copy of the GNU Affero General Public License
\ along with this program.  If not, see <http://www.gnu.org/licenses/>.

reply-table $@ inherit-table log-table

scope{ net2o-base
\g 
\g ### log commands ###
\g 
net2o' token net2o: log-token ( $:token n -- )
    64>n 0 .r ." :" $> forth:type space ;

$20 net2o: emit ( utf8 -- ) \g emit character on server log
    64>n xemit ;
+net2o: type ( $:string -- ) \g type string on server log
    $> forth:type ;
+net2o: cr ( -- ) \g newline on server log
    forth:cr ;
0 warnings !@ \ disable warnings for .
+net2o: . ( n -- ) \g print number on server log
    u64. ;
warnings !
+net2o: f. ( r -- ) \g print fp number on server log
    forth:f. ;
+net2o: .time ( -- ) \g print timer to server log
    forth:.time .packets profile( .times ) ;
+net2o: !time ( -- ) \g start timer
    forth:!time init-timer ;

log-table $save
' context-table is gen-table

$32 net2o: log ( -- o:log )
    log-context @ dup 0= IF
	drop  net2o:new-log dup log-context !
    THEN  n:>o ;
log-table >table

}scope

\\\
Local Variables:
forth-local-words:
    (
     (("net2o:" "+net2o:") definition-starter (font-lock-keyword-face . 1)
      "[ \t\n]" t name (font-lock-function-name-face . 3))
     ("[a-z\-0-9]+(" immediate (font-lock-comment-face . 1)
      ")" nil comment (font-lock-comment-face . 1))
    )
forth-local-indent-words:
    (
     (("net2o:" "+net2o:") (0 . 2) (0 . 2) non-immediate)
     (("[:") (0 . 1) (0 . 1) immediate)
     ((";]") (-1 . 0) (0 . -1) immediate)
    )
End:
[THEN]