Artifact be5d449299f9682b3e3a64ada827d54d9b276bca:
- File net2o-err.fs — part of check-in [1a0ada3b87] at 2014-12-21 00:58:01 on branch trunk — More work on terminal, ready to be tested (user: bernd size: 3118)
0000: 5c 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 \ Copyright (C) 0010: 32 30 31 30 2d 32 30 31 34 20 20 20 42 65 72 6e 2010-2014 Bern 0020: 64 20 50 61 79 73 61 6e 0a 0a 5c 20 54 68 69 73 d Paysan..\ This 0030: 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 program is free 0040: 20 73 6f 66 74 77 61 72 65 3a 20 79 6f 75 20 63 software: you c 0050: 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 an redistribute 0060: 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 it and/or modify 0070: 0a 5c 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 .\ it under the 0080: 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 terms of the GNU 0090: 20 41 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 Affero General 00a0: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 Public License a 00b0: 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 5c s published by.\ 00c0: 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 the Free Softwa 00d0: 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 re Foundation, e 00e0: 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 ither version 3 00f0: 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 of the License, 0100: 6f 72 0a 5c 20 28 61 74 20 79 6f 75 72 20 6f 70 or.\ (at your op 0110: 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 tion) any later 0120: 76 65 72 73 69 6f 6e 2e 0a 0a 5c 20 54 68 69 73 version...\ This 0130: 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 program is dist 0140: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 ributed in the h 0150: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c ope that it will 0160: 20 62 65 20 75 73 65 66 75 6c 2c 0a 5c 20 62 75 be useful,.\ bu 0170: 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 t WITHOUT ANY WA 0180: 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 RRANTY; without 0190: 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 even the implied 01a0: 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 5c 20 4d warranty of.\ M 01b0: 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f ERCHANTABILITY o 01c0: 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 r FITNESS FOR A 01d0: 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f PARTICULAR PURPO 01e0: 53 45 2e 20 20 53 65 65 20 74 68 65 0a 5c 20 47 SE. See the.\ G 01f0: 4e 55 20 41 66 66 65 72 6f 20 47 65 6e 65 72 61 NU Affero Genera 0200: 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 l Public License 0210: 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c for more detail 0220: 73 2e 0a 0a 5c 20 59 6f 75 20 73 68 6f 75 6c 64 s...\ You should 0230: 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 have received a 0240: 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 copy of the GNU 0250: 20 41 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 Affero General 0260: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 5c Public License.\ 0270: 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 along with this 0280: 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f program. If no 0290: 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 t, see <http://w 02a0: 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e ww.gnu.org/licen 02b0: 73 65 73 2f 3e 2e 0a 0a 5c 20 64 65 66 69 6e 65 ses/>...\ define 02c0: 64 20 65 78 63 65 70 74 69 6f 6e 73 0a 0a 3a 20 d exceptions..: 02d0: 74 68 72 6f 77 63 6f 64 65 20 28 20 61 64 64 72 throwcode ( addr 02e0: 20 75 20 2d 2d 20 29 20 20 65 78 63 65 70 74 69 u -- ) excepti 02f0: 6f 6e 20 43 72 65 61 74 65 20 2c 0a 20 20 20 20 on Create ,. 0300: 5b 3a 20 3e 62 6f 64 79 20 40 20 3e 72 20 5d 5d [: >body @ >r ]] 0310: 20 49 46 20 5b 5b 20 72 3e 20 5d 5d 20 6c 69 74 IF [[ r> ]] lit 0320: 65 72 61 6c 20 74 68 72 6f 77 20 54 48 45 4e 20 eral throw THEN 0330: 5b 5b 20 3b 5d 20 73 65 74 2d 63 6f 6d 70 69 6c [[ ;] set-compil 0340: 65 72 0a 20 20 44 4f 45 53 3e 20 28 20 66 6c 61 er. DOES> ( fla 0350: 67 20 2d 2d 20 29 20 40 20 61 6e 64 20 74 68 72 g -- ) @ and thr 0360: 6f 77 20 3b 0a 0a 73 22 20 67 61 70 20 69 6e 20 ow ;..s" gap in 0370: 66 69 6c 65 20 68 61 6e 64 6c 65 73 22 20 20 20 file handles" 0380: 20 20 20 20 20 20 20 74 68 72 6f 77 63 6f 64 65 throwcode 0390: 20 21 21 67 61 70 21 21 0a 73 22 20 69 6e 76 61 !!gap!!.s" inva 03a0: 6c 69 64 20 66 69 6c 65 20 69 64 22 20 20 20 20 lid file id" 03b0: 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 throwc 03c0: 6f 64 65 20 21 21 66 69 6c 65 69 64 21 21 0a 73 ode !!fileid!!.s 03d0: 22 20 63 6f 75 6c 64 20 6e 6f 74 20 73 65 6e 64 " could not send 03e0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 " 03f0: 74 68 72 6f 77 63 6f 64 65 20 21 21 73 65 6e 64 throwcode !!send 0400: 21 21 0a 73 22 20 77 72 6f 6e 67 20 70 61 63 6b !!.s" wrong pack 0410: 65 74 20 73 69 7a 65 22 20 20 20 20 20 20 20 20 et size" 0420: 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 throwcode !! 0430: 73 69 7a 65 21 21 0a 73 22 20 6e 6f 20 70 6f 77 size!!.s" no pow 0440: 65 72 20 6f 66 20 74 77 6f 22 20 20 20 20 20 20 er of two" 0450: 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 6f 64 throwcod 0460: 65 20 21 21 70 6f 77 32 21 21 0a 73 22 20 75 6e e !!pow2!!.s" un 0470: 69 6d 70 6c 65 6d 65 6e 74 65 64 20 6e 65 74 32 implemented net2 0480: 6f 20 66 75 6e 63 74 69 6f 6e 22 20 74 68 72 6f o function" thro 0490: 77 63 6f 64 65 20 21 21 66 75 6e 63 74 69 6f 6e wcode !!function 04a0: 21 21 0a 73 22 20 74 6f 6f 20 6d 61 6e 79 20 63 !!.s" too many c 04b0: 6f 6d 6d 61 6e 64 73 22 20 20 20 20 20 20 20 20 ommands" 04c0: 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 throwcode !! 04d0: 63 6f 6d 6d 61 6e 64 73 21 21 0a 73 22 20 66 6c commands!!.s" fl 04e0: 6f 61 74 20 64 6f 65 73 20 6e 6f 74 20 66 69 74 oat does not fit 04f0: 22 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f " thro 0500: 77 63 6f 64 65 20 21 21 66 6c 6f 61 74 66 69 74 wcode !!floatfit 0510: 21 21 0a 73 22 20 73 74 72 69 6e 67 20 64 6f 65 !!.s" string doe 0520: 73 20 6e 6f 74 20 66 69 74 22 20 20 20 20 20 20 s not fit" 0530: 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 throwcode !! 0540: 73 74 72 69 6e 67 66 69 74 21 21 0a 73 22 20 63 stringfit!!.s" c 0550: 6d 64 20 64 6f 65 73 20 6e 6f 74 20 66 69 74 22 md does not fit" 0560: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 thr 0570: 6f 77 63 6f 64 65 20 21 21 63 6d 64 66 69 74 21 owcode !!cmdfit! 0580: 21 0a 73 22 20 69 76 73 20 6d 75 73 74 20 62 65 !.s" ivs must be 0590: 20 36 34 20 62 79 74 65 73 22 20 20 20 20 20 20 64 bytes" 05a0: 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 69 throwcode !!i 05b0: 76 73 21 21 0a 73 22 20 6e 65 74 32 6f 20 74 69 vs!!.s" net2o ti 05c0: 6d 65 64 20 6f 75 74 22 20 20 20 20 20 20 20 20 med out" 05d0: 20 20 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 throwcode 05e0: 21 21 74 69 6d 65 6f 75 74 21 21 0a 73 22 20 6d !!timeout!!.s" m 05f0: 61 78 69 6d 75 6d 20 6e 65 73 74 69 6e 67 20 72 aximum nesting r 0600: 65 61 63 68 65 64 22 20 20 20 20 20 20 74 68 72 eached" thr 0610: 6f 77 63 6f 64 65 20 21 21 6d 61 78 6e 65 73 74 owcode !!maxnest 0620: 21 21 0a 73 22 20 6e 65 73 74 69 6e 67 20 73 74 !!.s" nesting st 0630: 61 63 6b 20 65 6d 70 74 79 22 20 20 20 20 20 20 ack empty" 0640: 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 throwcode !! 0650: 6d 69 6e 6e 65 73 74 21 21 0a 73 22 20 69 6e 76 minnest!!.s" inv 0660: 61 6c 69 64 20 6e 65 73 74 22 20 20 20 20 20 20 alid nest" 0670: 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 throw 0680: 63 6f 64 65 20 21 21 6e 65 73 74 21 21 0a 73 22 code !!nest!!.s" 0690: 20 69 6e 76 61 6c 69 64 20 74 6d 70 6e 65 73 74 invalid tmpnest 06a0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 " t 06b0: 68 72 6f 77 63 6f 64 65 20 21 21 74 6d 70 6e 65 hrowcode !!tmpne 06c0: 73 74 21 21 0a 73 22 20 63 6f 6f 6b 69 65 20 72 st!!.s" cookie r 06d0: 65 63 69 65 76 65 64 20 74 77 69 63 65 22 20 20 ecieved twice" 06e0: 20 20 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 throwcode 06f0: 21 21 64 6f 75 62 6c 65 2d 63 6f 6f 6b 69 65 21 !!double-cookie! 0700: 21 0a 73 22 20 63 6f 64 65 20 64 65 73 74 69 6e !.s" code destin 0710: 61 74 69 6f 6e 20 69 73 20 30 22 20 20 20 20 20 ation is 0" 0720: 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 6e throwcode !!n 0730: 6f 2d 64 65 73 74 21 21 0a 73 22 20 6e 6f 20 49 o-dest!!.s" no I 0740: 50 20 61 64 64 72 22 20 20 20 20 20 20 20 20 20 P addr" 0750: 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 throwc 0760: 6f 64 65 20 21 21 6e 6f 2d 61 64 64 72 21 21 0a ode !!no-addr!!. 0770: 73 22 20 61 62 73 6f 6c 75 74 65 20 70 61 74 68 s" absolute path 0780: 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 21 22 20 20 not allowed!" 0790: 20 74 68 72 6f 77 63 6f 64 65 20 21 21 61 62 73 throwcode !!abs 07a0: 2d 70 61 74 68 21 21 0a 73 22 20 69 6e 76 61 6c -path!!.s" inval 07b0: 69 64 20 70 61 63 6b 65 74 20 64 65 73 74 69 6e id packet destin 07c0: 61 74 69 6f 6e 22 20 20 20 74 68 72 6f 77 63 6f ation" throwco 07d0: 64 65 20 21 21 69 6e 76 2d 64 65 73 74 21 21 0a de !!inv-dest!!. 07e0: 73 22 20 6b 65 79 2b 70 75 62 6b 65 79 20 6d 75 s" key+pubkey mu 07f0: 73 74 20 62 65 20 33 32 20 62 79 74 65 73 22 20 st be 32 bytes" 0800: 20 74 68 72 6f 77 63 6f 64 65 20 21 21 6b 65 79 throwcode !!key 0810: 73 69 7a 65 21 21 0a 73 22 20 75 6e 6b 6e 6f 77 size!!.s" unknow 0820: 6e 20 6b 65 79 22 20 20 20 20 20 20 20 20 20 20 n key" 0830: 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 6f 64 throwcod 0840: 65 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 e !!unknown-key! 0850: 21 0a 73 22 20 77 72 6f 6e 67 20 6b 65 79 22 20 !.s" wrong key" 0860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0870: 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 77 throwcode !!w 0880: 72 6f 6e 67 2d 6b 65 79 21 21 0a 73 22 20 6e 6f rong-key!!.s" no 0890: 20 6b 65 79 20 66 69 6c 65 22 20 20 20 20 20 20 key file" 08a0: 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f thro 08b0: 77 63 6f 64 65 20 21 21 6e 6f 6b 65 79 21 21 0a wcode !!nokey!!. 08c0: 73 22 20 69 6e 76 61 6c 69 64 20 45 64 32 35 35 s" invalid Ed255 08d0: 31 39 20 6b 65 79 22 20 20 20 20 20 20 20 20 20 19 key" 08e0: 20 74 68 72 6f 77 63 6f 64 65 20 21 21 6e 6f 2d throwcode !!no- 08f0: 65 64 2d 6b 65 79 21 21 0a 73 22 20 6e 6f 20 74 ed-key!!.s" no t 0900: 65 6d 70 6f 72 61 72 79 20 6b 65 79 22 20 20 20 emporary key" 0910: 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 throwc 0920: 6f 64 65 20 21 21 6e 6f 2d 74 6d 70 6b 65 79 21 ode !!no-tmpkey! 0930: 21 0a 73 22 20 67 65 6e 65 72 69 63 20 73 74 61 !.s" generic sta 0940: 63 6b 20 65 6d 70 74 79 22 20 20 20 20 20 20 20 ck empty" 0950: 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 73 throwcode !!s 0960: 74 61 63 6b 2d 65 6d 70 74 79 21 21 0a 73 22 20 tack-empty!!.s" 0970: 53 74 72 69 6e 67 20 73 74 61 63 6b 20 66 75 6c String stack ful 0980: 6c 22 20 20 20 20 20 20 20 20 20 20 20 20 74 68 l" th 0990: 72 6f 77 63 6f 64 65 20 21 21 73 74 72 69 6e 67 rowcode !!string 09a0: 2d 66 75 6c 6c 21 21 0a 73 22 20 53 74 72 69 6e -full!!.s" Strin 09b0: 67 20 73 74 61 63 6b 20 65 6d 70 74 79 22 20 20 g stack empty" 09c0: 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 6f throwco 09d0: 64 65 20 21 21 73 74 72 69 6e 67 2d 65 6d 70 74 de !!string-empt 09e0: 79 21 21 0a 73 22 20 4f 62 6a 65 63 74 20 73 74 y!!.s" Object st 09f0: 61 63 6b 20 66 75 6c 6c 22 20 20 20 20 20 20 20 ack full" 0a00: 20 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 throwcode ! 0a10: 21 6f 62 6a 65 63 74 2d 66 75 6c 6c 21 21 0a 73 !object-full!!.s 0a20: 22 20 4f 62 6a 65 63 74 20 73 74 61 63 6b 20 65 " Object stack e 0a30: 6d 70 74 79 22 20 20 20 20 20 20 20 20 20 20 20 mpty" 0a40: 74 68 72 6f 77 63 6f 64 65 20 21 21 6f 62 6a 65 throwcode !!obje 0a50: 63 74 2d 65 6d 70 74 79 21 21 0a 73 22 20 55 6e ct-empty!!.s" Un 0a60: 6b 6e 6f 77 6e 20 63 72 79 70 74 6f 20 66 75 6e known crypto fun 0a70: 63 74 69 6f 6e 22 20 20 20 20 20 20 74 68 72 6f ction" thro 0a80: 77 63 6f 64 65 20 21 21 75 6e 6b 6e 6f 77 6e 2d wcode !!unknown- 0a90: 63 72 79 70 74 21 21 0a 73 22 20 57 72 6f 6e 67 crypt!!.s" Wrong 0aa0: 20 72 65 76 6f 63 61 74 69 6f 6e 20 73 65 63 72 revocation secr 0ab0: 65 74 22 20 20 20 20 20 20 74 68 72 6f 77 63 6f et" throwco 0ac0: 64 65 20 21 21 6e 6f 74 2d 6d 79 2d 72 65 76 73 de !!not-my-revs 0ad0: 6b 21 21 0a 73 22 20 6b 72 79 70 74 6f 20 6d 65 k!!.s" krypto me 0ae0: 6d 20 72 65 71 75 65 73 74 20 74 6f 6f 20 62 69 m request too bi 0af0: 67 22 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 g" throwcode ! 0b00: 21 6b 72 2d 73 69 7a 65 21 21 0a 73 22 20 73 65 !kr-size!!.s" se 0b10: 63 72 65 74 20 73 74 6f 72 61 67 65 20 73 69 7a cret storage siz 0b20: 65 20 77 72 6f 6e 67 22 20 20 20 20 74 68 72 6f e wrong" thro 0b30: 77 63 6f 64 65 20 21 21 73 65 63 2d 73 69 7a 65 wcode !!sec-size 0b40: 21 21 0a 73 22 20 68 6f 73 74 20 6e 6f 74 20 66 !!.s" host not f 0b50: 6f 75 6e 64 22 20 20 20 20 20 20 20 20 20 20 20 ound" 0b60: 20 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 throwcode !! 0b70: 68 6f 73 74 2d 6e 6f 74 66 6f 75 6e 64 21 21 0a host-notfound!!. 0b80: 73 22 20 74 6f 6f 20 6d 61 6e 79 20 72 65 76 6f s" too many revo 0b90: 6b 65 73 20 63 68 61 69 6e 65 64 22 20 20 20 20 kes chained" 0ba0: 20 74 68 72 6f 77 63 6f 64 65 20 21 21 6d 61 78 throwcode !!max 0bb0: 6c 6f 6f 6b 75 70 21 21 0a 73 22 20 66 69 6c 65 lookup!!.s" file 0bc0: 20 63 6c 61 73 73 20 64 65 6e 69 65 64 22 20 20 class denied" 0bd0: 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 63 throwc 0be0: 6f 64 65 20 21 21 66 69 6c 65 63 6c 61 73 73 21 ode !!fileclass! 0bf0: 21 0a 73 22 20 6e 6f 20 66 72 65 65 20 74 65 72 !.s" no free ter 0c00: 6d 73 65 72 76 65 72 73 22 20 20 20 20 20 20 20 mservers" 0c10: 20 20 20 74 68 72 6f 77 63 6f 64 65 20 21 21 6e throwcode !!n 0c20: 6f 2d 74 65 72 6d 73 65 72 76 65 72 21 21 o-termserver!!