\ 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 . 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 ; gen-table $freeze ' context-table is gen-table $32 net2o: log ( -- o:log ) log-context @ dup 0= IF drop n2o:new-log dup log-context ! THEN n:>o ; log-table >table }scope 0 [IF] 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]