/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c1 / c_impress / Sources / CheckVars

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2e f4 20 20 3e | 3c 42 61 73 69 63 56 24 |.....  >|<BasicV$|
|00000010| 4c 69 62 3e 2e 43 68 65 | 63 6b 56 61 72 73 20 20 |Lib>.Che|ckVars  |
|00000020| 20 3a 20 20 52 45 4d 20 | 20 76 30 2e 30 33 0d 00 | :  REM | v0.03..|
|00000030| 14 1b f4 20 20 4d 41 43 | 48 49 4e 45 3a 20 20 41 |...  MAC|HINE:  A|
|00000040| 72 63 68 69 6d 65 64 65 | 73 0d 00 1e 1c f4 20 20 |rchimede|s.....  |
|00000050| 4c 41 4e 47 55 41 47 45 | 3a 20 42 42 43 20 42 41 |LANGUAGE|: BBC BA|
|00000060| 53 49 43 20 56 0d 00 28 | 1b f4 20 20 41 55 54 48 |SIC V..(|..  AUTH|
|00000070| 4f 52 3a 20 20 20 43 79 | 20 42 6f 6f 6b 65 72 2c |OR:   Cy| Booker,|
|00000080| 0d 00 32 47 f4 20 20 20 | 20 20 20 20 20 20 20 20 |..2G.   |        |
|00000090| 20 38 36 20 43 68 75 72 | 63 68 20 56 69 65 77 2c | 86 Chur|ch View,|
|000000a0| 20 4d 61 69 6e 20 52 6f | 61 64 2c 20 43 72 6f 63 | Main Ro|ad, Croc|
|000000b0| 6b 65 6e 68 69 6c 6c 2c | 20 53 77 61 6e 6c 65 79 |kenhill,| Swanley|
|000000c0| 2c 20 4b 65 6e 74 2e 0d | 00 3c 18 f4 20 20 20 20 |, Kent..|.<..    |
|000000d0| 20 20 20 20 20 20 20 20 | 42 52 38 20 38 4a 57 0d |        |BR8 8JW.|
|000000e0| 00 46 11 f4 20 20 46 55 | 4e 43 54 49 4f 4e 53 3a |.F..  FU|NCTIONS:|
|000000f0| 0d 00 50 0f f4 20 20 20 | 28 6e 6f 6e 65 29 2e 0d |..P..   |(none)..|
|00000100| 00 5a 08 f4 20 20 3a 0d | 00 64 12 f4 20 20 50 52 |.Z..  :.|.d..  PR|
|00000110| 4f 43 45 44 55 52 45 53 | 3a 0d 00 6e 14 f4 20 20 |OCEDURES|:..n..  |
|00000120| 20 5f 63 68 65 63 6b 5f | 69 73 5f 67 65 0d 00 78 | _check_|is_ge..x|
|00000130| 14 f4 20 20 20 5f 63 68 | 65 63 6b 5f 69 73 5f 67 |..   _ch|eck_is_g|
|00000140| 74 0d 00 82 1a f4 20 20 | 20 5f 63 68 65 63 6b 5f |t.....  | _check_|
|00000150| 69 73 5f 69 6e 5f 72 61 | 6e 67 65 0d 00 8c 21 f4 |is_in_ra|nge...!.|
|00000160| 20 20 20 5f 63 68 65 63 | 6b 5f 69 73 5f 69 6e 5f |   _chec|k_is_in_|
|00000170| 77 69 74 68 69 6e 5f 72 | 61 6e 67 65 0d 00 96 14 |within_r|ange....|
|00000180| f4 20 20 20 5f 63 68 65 | 63 6b 5f 69 73 5f 6c 65 |.   _che|ck_is_le|
|00000190| 0d 00 a0 14 f4 20 20 20 | 5f 63 68 65 63 6b 5f 69 |.....   |_check_i|
|000001a0| 73 5f 6c 74 0d 00 aa 1e | f4 20 20 20 5f 63 68 65 |s_lt....|.   _che|
|000001b0| 63 6b 5f 69 73 5f 6e 6f | 6e 5f 70 6f 73 69 74 69 |ck_is_no|n_positi|
|000001c0| 76 65 0d 00 b4 1a f4 20 | 20 20 5f 63 68 65 63 6b |ve..... |  _check|
|000001d0| 5f 69 73 5f 6e 65 67 61 | 74 69 76 65 0d 00 be 1e |_is_nega|tive....|
|000001e0| f4 20 20 20 5f 63 68 65 | 63 6b 5f 69 73 5f 6e 6f |.   _che|ck_is_no|
|000001f0| 6e 5f 6e 65 67 61 74 69 | 76 65 0d 00 c8 1a f4 20 |n_negati|ve..... |
|00000200| 20 20 5f 63 68 65 63 6b | 5f 69 73 5f 70 6f 73 69 |  _check|_is_posi|
|00000210| 74 69 76 65 0d 00 d2 1a | f4 20 20 20 5f 63 68 65 |tive....|.   _che|
|00000220| 63 6b 5f 69 73 5f 6e 6f | 6e 5f 7a 65 72 6f 0d 00 |ck_is_no|n_zero..|
|00000230| dc 1e f4 20 20 20 5f 63 | 68 65 63 6b 5f 69 73 5f |...   _c|heck_is_|
|00000240| 77 69 74 68 69 6e 5f 72 | 61 6e 67 65 0d 00 e6 21 |within_r|ange...!|
|00000250| f4 20 20 20 5f 63 68 65 | 63 6b 5f 69 73 5f 77 69 |.   _che|ck_is_wi|
|00000260| 74 68 69 6e 5f 69 6e 5f | 72 61 6e 67 65 0d 00 f0 |thin_in_|range...|
|00000270| 16 f4 20 20 20 5f 63 68 | 65 63 6b 5f 69 73 5f 7a |..   _ch|eck_is_z|
|00000280| 65 72 6f 0d 00 fa 08 f4 | 20 20 3a 0d 01 04 11 f4 |ero.....|  :.....|
|00000290| 20 20 45 58 54 45 52 4e | 41 4c 53 3a 0d 01 0e 0f |  EXTERN|ALS:....|
|000002a0| f4 20 20 20 28 6e 6f 6e | 65 29 2e 0d 01 18 08 f4 |.   (non|e)......|
|000002b0| 20 20 3a 0d 01 22 0f f4 | 20 20 55 50 44 41 54 45 |  :.."..|  UPDATE|
|000002c0| 53 3a 0d 01 2c 2b f4 20 | 20 20 76 30 2e 30 32 20 |S:..,+. |  v0.02 |
|000002d0| 20 20 20 20 50 52 4f 43 | 5f 63 68 65 63 6b 5f 69 |    PROC|_check_i|
|000002e0| 73 5f 67 65 2f 67 74 2f | 6c 65 2f 6c 74 0d 01 36 |s_ge/gt/|le/lt..6|
|000002f0| 43 f4 20 20 20 76 30 2e | 30 33 20 20 20 20 20 43 |C.   v0.|03     C|
|00000300| 68 61 6e 67 65 64 20 74 | 68 65 20 62 72 61 63 6b |hanged t|he brack|
|00000310| 65 74 73 20 70 72 69 6e | 74 65 64 20 77 68 65 6e |ets prin|ted when|
|00000320| 20 65 72 72 6f 72 20 69 | 6e 2f 77 69 74 68 69 6e | error i|n/within|
|00000330| 0d 01 40 2c f4 20 20 20 | 20 20 20 20 20 20 20 20 |..@,.   |        |
|00000340| 20 20 72 61 6e 67 65 20 | 2d 20 74 68 65 79 20 77 |  range |- they w|
|00000350| 65 72 65 20 77 72 6f 6e | 67 21 21 21 0d 01 4a 05 |ere wron|g!!!..J.|
|00000360| 3a 0d 01 54 23 dd 20 a4 | 5f 43 68 65 63 6b 56 61 |:..T#. .|_CheckVa|
|00000370| 72 73 5f 76 65 72 73 69 | 6f 6e 20 20 3a 20 20 3d |rs_versi|on  :  =|
|00000380| 20 30 30 33 0d 01 5e 05 | 3a 0d 01 68 29 dd 20 a4 | 003..^.|:..h). .|
|00000390| 5f 68 61 72 64 5f 69 6e | 69 74 69 61 6c 69 73 65 |_hard_in|itialise|
|000003a0| 5f 43 68 65 63 6b 56 61 | 72 73 20 20 3a 20 20 3d |_CheckVa|rs  :  =|
|000003b0| 20 30 0d 01 72 05 3a 0d | 01 7c 4b f4 20 2a 2a 2a | 0..r.:.|.|K. ***|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 0d 01 86 46 f4 20 | 2a 20 54 68 65 73 65 20 |**...F. |* These |
|00000410| 72 6f 75 74 69 6e 65 73 | 20 63 61 6e 20 62 65 20 |routines| can be |
|00000420| 75 73 65 64 20 74 6f 20 | 63 68 65 63 6b 20 74 68 |used to |check th|
|00000430| 61 74 20 61 20 76 61 72 | 69 61 62 6c 65 20 28 75 |at a var|iable (u|
|00000440| 73 75 61 6c 6c 79 20 61 | 0d 01 90 45 f4 20 2a 20 |sually a|...E. * |
|00000450| 70 61 72 61 6d 65 74 65 | 72 20 74 6f 20 61 20 70 |paramete|r to a p|
|00000460| 72 6f 63 65 64 75 72 65 | 2f 66 75 6e 63 74 69 6f |rocedure|/functio|
|00000470| 6e 29 20 6c 69 65 73 20 | 77 69 74 68 69 6e 20 61 |n) lies |within a|
|00000480| 20 67 69 76 65 6e 20 72 | 61 6e 67 65 2e 0d 01 9a | given r|ange....|
|00000490| 3a f4 20 2a 20 49 66 20 | 61 20 72 61 6e 67 65 20 |:. * If |a range |
|000004a0| 69 73 20 22 69 6e 22 20 | 74 68 65 6e 20 74 68 65 |is "in" |then the|
|000004b0| 20 72 61 6e 67 65 20 69 | 73 20 5b 73 74 61 72 74 | range i|s [start|
|000004c0| 2c 20 65 6e 64 5d 2e 0d | 01 a4 3e f4 20 2a 20 49 |, end]..|..>. * I|
|000004d0| 66 20 61 20 72 61 6e 67 | 65 20 69 73 20 22 77 69 |f a rang|e is "wi|
|000004e0| 74 68 69 6e 22 20 74 68 | 65 6e 20 74 68 65 20 72 |thin" th|en the r|
|000004f0| 61 6e 67 65 20 69 73 20 | 28 73 74 61 72 74 2c 20 |ange is |(start, |
|00000500| 65 6e 64 29 2e 0d 01 ae | 47 f4 20 2a 20 50 61 73 |end)....|G. * Pas|
|00000510| 73 65 64 20 69 73 20 61 | 20 73 74 72 69 6e 67 20 |sed is a| string |
|00000520| 6f 66 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 2c |of the v|ariable,|
|00000530| 20 73 6f 20 63 61 6e 20 | 70 72 69 6e 74 20 61 20 | so can |print a |
|00000540| 64 65 63 65 6e 74 20 65 | 72 72 6f 72 0d 01 b8 10 |decent e|rror....|
|00000550| f4 20 2a 20 6d 65 73 73 | 61 67 65 2e 0d 01 c2 07 |. * mess|age.....|
|00000560| f4 20 2a 0d 01 cc 26 dd | 20 f2 5f 68 61 6e 64 6c |. *...&.| ._handl|
|00000570| 65 5f 63 68 65 63 6b 5f | 65 72 72 6f 72 28 20 72 |e_check_|error( r|
|00000580| 6f 75 74 69 6e 65 24 20 | 29 0d 01 d6 4b 20 20 20 |outine$ |)...K   |
|00000590| 65 24 20 3d 20 22 45 72 | 72 6f 72 20 6f 63 63 75 |e$ = "Er|ror occu|
|000005a0| 72 65 64 20 69 6e 20 50 | 52 4f 43 5f 63 68 65 63 |red in P|ROC_chec|
|000005b0| 6b 5f 69 73 5f 22 20 2b | 20 72 6f 75 74 69 6e 65 |k_is_" +| routine|
|000005c0| 24 20 2b 20 22 28 20 22 | 20 2b 20 76 24 20 2b 20 |$ + "( "| + v$ + |
|000005d0| 22 20 29 22 0d 01 e0 1a | 20 20 20 85 20 9f 2c 20 |" )"....|   . ., |
|000005e0| 65 24 20 2b 20 22 3a 20 | 22 20 2b 20 f6 24 0d 01 |e$ + ": |" + .$..|
|000005f0| ea 05 e1 0d 01 f4 05 3a | 0d 01 fe 20 dd 20 f2 5f |.......:|... . ._|
|00000600| 63 68 65 63 6b 5f 66 61 | 69 6c 65 64 28 20 76 24 |check_fa|iled( v$|
|00000610| 2c 20 77 68 79 24 20 29 | 0d 02 08 25 20 20 20 85 |, why$ )|...%   .|
|00000620| 20 31 2c 20 22 27 22 20 | 2b 20 76 24 20 2b 20 22 | 1, "'" |+ v$ + "|
|00000630| 27 20 69 73 20 22 20 2b | 20 77 68 79 24 0d 02 12 |' is " +| why$...|
|00000640| 05 e1 0d 02 1c 05 3a 0d | 02 26 2a dd 20 f2 5f 63 |......:.|.&*. ._c|
|00000650| 68 65 63 6b 5f 72 61 6e | 67 65 5f 66 61 69 6c 65 |heck_ran|ge_faile|
|00000660| 64 28 20 76 24 2c 20 77 | 68 79 24 2c 20 73 24 20 |d( v$, w|hy$, s$ |
|00000670| 29 0d 02 30 3a 20 20 20 | f2 5f 63 68 65 63 6b 5f |)..0:   |._check_|
|00000680| 66 61 69 6c 65 64 28 20 | 76 24 2c 20 77 68 79 24 |failed( |v$, why$|
|00000690| 20 2b 20 22 2c 20 69 74 | 20 73 68 6f 75 6c 64 20 | + ", it| should |
|000006a0| 62 65 20 22 20 2b 20 73 | 24 20 29 0d 02 3a 05 e1 |be " + s|$ )..:..|
|000006b0| 0d 02 44 05 3a 0d 02 4e | 2a dd 20 f2 5f 63 68 65 |..D.:..N|*. ._che|
|000006c0| 63 6b 5f 69 73 5f 69 6e | 5f 72 61 6e 67 65 28 20 |ck_is_in|_range( |
|000006d0| 76 24 2c 20 6c 6f 77 2c | 20 68 69 67 68 20 29 0d |v$, low,| high ).|
|000006e0| 02 58 07 ea 20 76 0d 02 | 62 07 ea 20 85 0d 02 6c |.X.. v..|b.. ...l|
|000006f0| 37 20 20 20 ee 20 85 20 | ea 20 f7 20 85 20 20 3a |7   . . |. . .  :|
|00000700| 20 20 f2 5f 68 61 6e 64 | 6c 65 5f 63 68 65 63 6b |  ._hand|le_check|
|00000710| 5f 65 72 72 6f 72 28 20 | 22 69 6e 5f 72 61 6e 67 |_error( |"in_rang|
|00000720| 65 22 20 29 0d 02 76 10 | 20 20 20 76 20 3d 20 a0 |e" )..v.|   v = .|
|00000730| 28 76 24 29 0d 02 80 19 | 20 20 20 e7 20 76 3c 6c |(v$)....|   . v<l|
|00000740| 6f 77 20 84 20 76 3e 68 | 69 67 68 20 8c 0d 02 8a |ow . v>h|igh ....|
|00000750| 34 20 20 20 20 20 20 72 | 61 6e 67 65 24 20 3d 20 |4      r|ange$ = |
|00000760| 22 5b 22 20 2b 20 c3 28 | 6c 6f 77 29 20 2b 20 22 |"[" + .(|low) + "|
|00000770| 2c 22 20 2b 20 c3 28 68 | 69 67 68 29 20 2b 22 5d |," + .(h|igh) +"]|
|00000780| 22 0d 02 94 13 20 20 20 | 20 20 20 e7 20 76 3c 6c |"....   |   . v<l|
|00000790| 6f 77 20 8c 0d 02 9e 3e | 20 20 20 20 20 20 20 20 |ow ....>|        |
|000007a0| 20 f2 5f 63 68 65 63 6b | 5f 72 61 6e 67 65 5f 66 | ._check|_range_f|
|000007b0| 61 69 6c 65 64 28 20 76 | 24 2c 20 22 62 65 6c 6f |ailed( v|$, "belo|
|000007c0| 77 20 72 61 6e 67 65 22 | 2c 20 72 61 6e 67 65 24 |w range"|, range$|
|000007d0| 20 29 0d 02 a8 0b 20 20 | 20 20 20 20 cc 0d 02 b2 | )....  |    ....|
|000007e0| 3e 20 20 20 20 20 20 20 | 20 20 f2 5f 63 68 65 63 |>       |  ._chec|
|000007f0| 6b 5f 72 61 6e 67 65 5f | 66 61 69 6c 65 64 28 20 |k_range_|failed( |
|00000800| 76 24 2c 20 22 61 62 6f | 76 65 20 72 61 6e 67 65 |v$, "abo|ve range|
|00000810| 22 2c 20 72 61 6e 67 65 | 24 20 29 0d 02 bc 0b 20 |", range|$ ).... |
|00000820| 20 20 20 20 20 cd 0d 02 | c6 08 20 20 20 cd 0d 02 |     ...|..   ...|
|00000830| d0 05 e1 0d 02 da 05 3a | 0d 02 e4 2e dd 20 f2 5f |.......:|..... ._|
|00000840| 63 68 65 63 6b 5f 69 73 | 5f 77 69 74 68 69 6e 5f |check_is|_within_|
|00000850| 72 61 6e 67 65 28 20 76 | 24 2c 20 6c 6f 77 2c 20 |range( v|$, low, |
|00000860| 68 69 67 68 20 29 0d 02 | ee 07 ea 20 76 0d 02 f8 |high )..|... v...|
|00000870| 07 ea 20 85 0d 03 02 38 | 20 20 20 ee 20 85 20 ea |.. ....8|   . . .|
|00000880| 20 f7 20 85 3a 20 f2 5f | 68 61 6e 64 6c 65 5f 63 | . .: ._|handle_c|
|00000890| 68 65 63 6b 5f 65 72 72 | 6f 72 28 20 22 77 69 74 |heck_err|or( "wit|
|000008a0| 68 69 6e 5f 72 61 6e 67 | 65 22 20 29 0d 03 0c 10 |hin_rang|e" )....|
|000008b0| 20 20 20 76 20 3d 20 a0 | 28 76 24 29 0d 03 16 1b |   v = .|(v$)....|
|000008c0| 20 20 20 e7 20 76 3c 3d | 6c 6f 77 20 84 20 76 3e |   . v<=|low . v>|
|000008d0| 3d 68 69 67 68 20 8c 0d | 03 20 34 20 20 20 20 20 |=high ..|. 4     |
|000008e0| 20 72 61 6e 67 65 24 20 | 3d 20 22 28 22 20 2b 20 | range$ |= "(" + |
|000008f0| c3 28 6c 6f 77 29 20 2b | 20 22 2c 22 20 2b 20 c3 |.(low) +| "," + .|
|00000900| 28 68 69 67 68 29 20 2b | 22 29 22 0d 03 2a 14 20 |(high) +|")"..*. |
|00000910| 20 20 20 20 20 e7 20 76 | 3c 3d 6c 6f 77 20 8c 0d |     . v|<=low ..|
|00000920| 03 34 3e 20 20 20 20 20 | 20 20 20 20 f2 5f 63 68 |.4>     |    ._ch|
|00000930| 65 63 6b 5f 72 61 6e 67 | 65 5f 66 61 69 6c 65 64 |eck_rang|e_failed|
|00000940| 28 20 76 24 2c 20 22 62 | 65 6c 6f 77 20 72 61 6e |( v$, "b|elow ran|
|00000950| 67 65 22 2c 20 72 61 6e | 67 65 24 20 29 0d 03 3e |ge", ran|ge$ )..>|
|00000960| 0b 20 20 20 20 20 20 cc | 0d 03 48 3e 20 20 20 20 |.      .|..H>    |
|00000970| 20 20 20 20 20 f2 5f 63 | 68 65 63 6b 5f 72 61 6e |     ._c|heck_ran|
|00000980| 67 65 5f 66 61 69 6c 65 | 64 28 20 76 24 2c 20 22 |ge_faile|d( v$, "|
|00000990| 61 62 6f 76 65 20 72 61 | 6e 67 65 22 2c 20 72 61 |above ra|nge", ra|
|000009a0| 6e 67 65 24 20 29 0d 03 | 52 0b 20 20 20 20 20 20 |nge$ )..|R.      |
|000009b0| cd 0d 03 5c 08 20 20 20 | cd 0d 03 66 05 e1 0d 03 |...\.   |...f....|
|000009c0| 70 05 3a 0d 03 7a 31 dd | 20 f2 5f 63 68 65 63 6b |p.:..z1.| ._check|
|000009d0| 5f 69 73 5f 77 69 74 68 | 69 6e 5f 69 6e 5f 72 61 |_is_with|in_in_ra|
|000009e0| 6e 67 65 28 20 76 24 2c | 20 6c 6f 77 2c 20 68 69 |nge( v$,| low, hi|
|000009f0| 67 68 20 29 0d 03 84 07 | ea 20 76 0d 03 8e 07 ea |gh )....|. v.....|
|00000a00| 20 85 0d 03 98 38 20 20 | 20 ee 20 85 20 ea 20 f7 | ....8  | . . . .|
|00000a10| 20 85 3a f2 5f 68 61 6e | 64 6c 65 5f 63 68 65 63 | .:._han|dle_chec|
|00000a20| 6b 5f 65 72 72 6f 72 28 | 22 77 69 74 68 69 6e 5f |k_error(|"within_|
|00000a30| 69 6e 5f 72 61 6e 67 65 | 22 29 0d 03 a2 10 20 20 |in_range|")....  |
|00000a40| 20 76 20 3d 20 a0 28 76 | 24 29 0d 03 ac 1a 20 20 | v = .(v|$)....  |
|00000a50| 20 e7 20 76 3c 6c 6f 77 | 20 84 20 76 3e 3d 68 69 | . v<low| . v>=hi|
|00000a60| 67 68 20 8c 0d 03 b6 34 | 20 20 20 20 20 20 72 61 |gh ....4|      ra|
|00000a70| 6e 67 65 24 20 3d 20 22 | 5b 22 20 2b 20 c3 28 6c |nge$ = "|[" + .(l|
|00000a80| 6f 77 29 20 2b 20 22 2c | 22 20 2b 20 c3 28 68 69 |ow) + ",|" + .(hi|
|00000a90| 67 68 29 20 2b 22 29 22 | 0d 03 c0 13 20 20 20 20 |gh) +")"|....    |
|00000aa0| 20 20 e7 20 76 3c 6c 6f | 77 20 8c 0d 03 ca 3e 20 |  . v<lo|w ....> |
|00000ab0| 20 20 20 20 20 20 20 20 | f2 5f 63 68 65 63 6b 5f |        |._check_|
|00000ac0| 72 61 6e 67 65 5f 66 61 | 69 6c 65 64 28 20 76 24 |range_fa|iled( v$|
|00000ad0| 2c 20 22 62 65 6c 6f 77 | 20 72 61 6e 67 65 22 2c |, "below| range",|
|00000ae0| 20 72 61 6e 67 65 24 20 | 29 0d 03 d4 0b 20 20 20 | range$ |)....   |
|00000af0| 20 20 20 cc 0d 03 de 3e | 20 20 20 20 20 20 20 20 |   ....>|        |
|00000b00| 20 f2 5f 63 68 65 63 6b | 5f 72 61 6e 67 65 5f 66 | ._check|_range_f|
|00000b10| 61 69 6c 65 64 28 20 76 | 24 2c 20 22 61 62 6f 76 |ailed( v|$, "abov|
|00000b20| 65 20 72 61 6e 67 65 22 | 2c 20 72 61 6e 67 65 24 |e range"|, range$|
|00000b30| 20 29 0d 03 e8 0b 20 20 | 20 20 20 20 cd 0d 03 f2 | )....  |    ....|
|00000b40| 08 20 20 20 cd 0d 03 fc | 05 e1 0d 04 06 05 3a 0d |.   ....|......:.|
|00000b50| 04 10 31 dd 20 f2 5f 63 | 68 65 63 6b 5f 69 73 5f |..1. ._c|heck_is_|
|00000b60| 69 6e 5f 77 69 74 68 69 | 6e 5f 72 61 6e 67 65 28 |in_withi|n_range(|
|00000b70| 20 76 24 2c 20 6c 6f 77 | 2c 20 68 69 67 68 20 29 | v$, low|, high )|
|00000b80| 0d 04 1a 07 ea 20 76 0d | 04 24 07 ea 20 85 0d 04 |..... v.|.$.. ...|
|00000b90| 2e 38 20 20 20 ee 20 85 | 20 ea 20 f7 20 85 3a f2 |.8   . .| . . .:.|
|00000ba0| 5f 68 61 6e 64 6c 65 5f | 63 68 65 63 6b 5f 65 72 |_handle_|check_er|
|00000bb0| 72 6f 72 28 22 69 6e 5f | 77 69 74 68 69 6e 5f 72 |ror("in_|within_r|
|00000bc0| 61 6e 67 65 22 29 0d 04 | 38 10 20 20 20 76 20 3d |ange")..|8.   v =|
|00000bd0| 20 a0 28 76 24 29 0d 04 | 42 1a 20 20 20 e7 20 76 | .(v$)..|B.   . v|
|00000be0| 3c 3d 6c 6f 77 20 84 20 | 76 3e 68 69 67 68 20 8c |<=low . |v>high .|
|00000bf0| 0d 04 4c 34 20 20 20 20 | 20 20 72 61 6e 67 65 24 |..L4    |  range$|
|00000c00| 20 3d 20 22 28 22 20 2b | 20 c3 28 6c 6f 77 29 20 | = "(" +| .(low) |
|00000c10| 2b 20 22 2c 22 20 2b 20 | c3 28 68 69 67 68 29 20 |+ "," + |.(high) |
|00000c20| 2b 22 5d 22 0d 04 56 14 | 20 20 20 20 20 20 e7 20 |+"]"..V.|      . |
|00000c30| 76 3c 3d 6c 6f 77 20 8c | 0d 04 60 3e 20 20 20 20 |v<=low .|..`>    |
|00000c40| 20 20 20 20 20 f2 5f 63 | 68 65 63 6b 5f 72 61 6e |     ._c|heck_ran|
|00000c50| 67 65 5f 66 61 69 6c 65 | 64 28 20 76 24 2c 20 22 |ge_faile|d( v$, "|
|00000c60| 62 65 6c 6f 77 20 72 61 | 6e 67 65 22 2c 20 72 61 |below ra|nge", ra|
|00000c70| 6e 67 65 24 20 29 0d 04 | 6a 0b 20 20 20 20 20 20 |nge$ )..|j.      |
|00000c80| cc 0d 04 74 3e 20 20 20 | 20 20 20 20 20 20 f2 5f |...t>   |      ._|
|00000c90| 63 68 65 63 6b 5f 72 61 | 6e 67 65 5f 66 61 69 6c |check_ra|nge_fail|
|00000ca0| 65 64 28 20 76 24 2c 20 | 22 61 62 6f 76 65 20 72 |ed( v$, |"above r|
|00000cb0| 61 6e 67 65 22 2c 20 72 | 61 6e 67 65 24 20 29 0d |ange", r|ange$ ).|
|00000cc0| 04 7e 0b 20 20 20 20 20 | 20 cd 0d 04 88 08 20 20 |.~.     | .....  |
|00000cd0| 20 cd 0d 04 92 05 e1 0d | 04 9c 05 3a 0d 04 a6 23 | .......|...:...#|
|00000ce0| dd 20 f2 5f 63 68 65 63 | 6b 5f 69 73 5f 6e 6f 6e |. ._chec|k_is_non|
|00000cf0| 5f 70 6f 73 69 74 69 76 | 65 28 20 76 24 20 29 0d |_positiv|e( v$ ).|
|00000d00| 04 b0 07 ea 20 85 0d 04 | ba 38 20 20 20 ee 20 85 |.... ...|.8   . .|
|00000d10| 20 ea 20 f7 20 85 3a 20 | f2 5f 68 61 6e 64 6c 65 | . . .: |._handle|
|00000d20| 5f 63 68 65 63 6b 5f 65 | 72 72 6f 72 28 20 22 6e |_check_e|rror( "n|
|00000d30| 6f 6e 5f 70 6f 73 69 74 | 69 76 65 22 20 29 0d 04 |on_posit|ive" )..|
|00000d40| c4 33 20 20 20 e7 20 a0 | 28 76 24 29 3e 30 20 8c |.3   . .|(v$)>0 .|
|00000d50| 20 f2 5f 63 68 65 63 6b | 5f 66 61 69 6c 65 64 28 | ._check|_failed(|
|00000d60| 20 76 24 2c 20 22 70 6f | 73 69 74 69 76 65 22 20 | v$, "po|sitive" |
|00000d70| 29 0d 04 ce 05 e1 0d 04 | d8 05 3a 0d 04 e2 23 dd |).......|..:...#.|
|00000d80| 20 f2 5f 63 68 65 63 6b | 5f 69 73 5f 6e 6f 6e 5f | ._check|_is_non_|
|00000d90| 6e 65 67 61 74 69 76 65 | 28 20 76 24 20 29 0d 04 |negative|( v$ )..|
|00000da0| ec 07 ea 20 85 0d 04 f6 | 38 20 20 20 ee 20 85 20 |... ....|8   . . |
|00000db0| ea 20 f7 20 85 3a 20 f2 | 5f 68 61 6e 64 6c 65 5f |. . .: .|_handle_|
|00000dc0| 63 68 65 63 6b 5f 65 72 | 72 6f 72 28 20 22 6e 6f |check_er|ror( "no|
|00000dd0| 6e 5f 6e 65 67 61 74 69 | 76 65 22 20 29 0d 05 00 |n_negati|ve" )...|
|00000de0| 33 20 20 20 e7 20 a0 28 | 76 24 29 3c 30 20 8c 20 |3   . .(|v$)<0 . |
|00000df0| f2 5f 63 68 65 63 6b 5f | 66 61 69 6c 65 64 28 20 |._check_|failed( |
|00000e00| 76 24 2c 20 22 6e 65 67 | 61 74 69 76 65 22 20 29 |v$, "neg|ative" )|
|00000e10| 0d 05 0a 05 e1 0d 05 14 | 05 3a 0d 05 1e 1f dd 20 |........|.:..... |
|00000e20| f2 5f 63 68 65 63 6b 5f | 69 73 5f 70 6f 73 69 74 |._check_|is_posit|
|00000e30| 69 76 65 28 20 76 24 20 | 29 0d 05 28 07 ea 20 85 |ive( v$ |)..(.. .|
|00000e40| 0d 05 32 37 20 20 20 ee | 20 85 20 ea 20 f7 20 85 |..27   .| . . . .|
|00000e50| 20 20 3a 20 20 f2 5f 68 | 61 6e 64 6c 65 5f 63 68 |  :  ._h|andle_ch|
|00000e60| 65 63 6b 5f 65 72 72 6f | 72 28 20 22 70 6f 73 69 |eck_erro|r( "posi|
|00000e70| 74 69 76 65 22 20 29 0d | 05 3c 38 20 20 20 e7 20 |tive" ).|.<8   . |
|00000e80| a0 28 76 24 29 3c 3d 30 | 20 8c 20 f2 5f 63 68 65 |.(v$)<=0| . ._che|
|00000e90| 63 6b 5f 66 61 69 6c 65 | 64 28 20 76 24 2c 20 22 |ck_faile|d( v$, "|
|00000ea0| 6e 6f 6e 2d 70 6f 73 69 | 74 69 76 65 22 20 29 0d |non-posi|tive" ).|
|00000eb0| 05 46 05 e1 0d 05 50 05 | 3a 0d 05 5a 1f dd 20 f2 |.F....P.|:..Z.. .|
|00000ec0| 5f 63 68 65 63 6b 5f 69 | 73 5f 6e 65 67 61 74 69 |_check_i|s_negati|
|00000ed0| 76 65 28 20 76 24 20 29 | 0d 05 64 07 ea 20 85 0d |ve( v$ )|..d.. ..|
|00000ee0| 05 6e 37 20 20 20 ee 20 | 85 20 ea 20 f7 20 85 20 |.n7   . |. . . . |
|00000ef0| 20 3a 20 20 f2 5f 68 61 | 6e 64 6c 65 5f 63 68 65 | :  ._ha|ndle_che|
|00000f00| 63 6b 5f 65 72 72 6f 72 | 28 20 22 6e 65 67 61 74 |ck_error|( "negat|
|00000f10| 69 76 65 22 20 29 0d 05 | 78 38 20 20 20 e7 20 a0 |ive" )..|x8   . .|
|00000f20| 28 76 24 29 3e 3d 30 20 | 8c 20 f2 5f 63 68 65 63 |(v$)>=0 |. ._chec|
|00000f30| 6b 5f 66 61 69 6c 65 64 | 28 20 76 24 2c 20 22 6e |k_failed|( v$, "n|
|00000f40| 6f 6e 2d 6e 65 67 61 74 | 69 76 65 22 20 29 0d 05 |on-negat|ive" )..|
|00000f50| 82 05 e1 0d 05 8c 05 3a | 0d 05 96 1b dd 20 f2 5f |.......:|..... ._|
|00000f60| 63 68 65 63 6b 5f 69 73 | 5f 7a 65 72 6f 28 20 76 |check_is|_zero( v|
|00000f70| 24 20 29 0d 05 a0 07 ea | 20 85 0d 05 aa 33 20 20 |$ ).....| ....3  |
|00000f80| 20 ee 20 85 20 ea 20 f7 | 20 85 20 20 3a 20 20 f2 | . . . .| .  :  .|
|00000f90| 5f 68 61 6e 64 6c 65 5f | 63 68 65 63 6b 5f 65 72 |_handle_|check_er|
|00000fa0| 72 6f 72 28 20 22 7a 65 | 72 6f 22 20 29 0d 05 b4 |ror( "ze|ro" )...|
|00000fb0| 34 20 20 20 e7 20 a0 28 | 76 24 29 3c 3e 30 20 8c |4   . .(|v$)<>0 .|
|00000fc0| 20 f2 5f 63 68 65 63 6b | 5f 66 61 69 6c 65 64 28 | ._check|_failed(|
|00000fd0| 20 76 24 2c 20 22 6e 6f | 6e 2d 7a 65 72 6f 22 20 | v$, "no|n-zero" |
|00000fe0| 29 0d 05 be 05 e1 0d 05 | c8 05 3a 0d 05 d2 1f dd |).......|..:.....|
|00000ff0| 20 f2 5f 63 68 65 63 6b | 5f 69 73 5f 6e 6f 6e 5f | ._check|_is_non_|
|00001000| 7a 65 72 6f 28 20 76 24 | 20 29 0d 05 dc 07 ea 20 |zero( v$| )..... |
|00001010| 85 0d 05 e6 37 20 20 20 | ee 20 85 20 ea 20 f7 20 |....7   |. . . . |
|00001020| 85 20 20 3a 20 20 f2 5f | 68 61 6e 64 6c 65 5f 63 |.  :  ._|handle_c|
|00001030| 68 65 63 6b 5f 65 72 72 | 6f 72 28 20 22 6e 6f 6e |heck_err|or( "non|
|00001040| 5f 7a 65 72 6f 22 20 29 | 0d 05 f0 2f 20 20 20 e7 |_zero" )|.../   .|
|00001050| 20 a0 28 76 24 29 3d 30 | 20 8c 20 f2 5f 63 68 65 | .(v$)=0| . ._che|
|00001060| 63 6b 5f 66 61 69 6c 65 | 64 28 20 76 24 2c 20 22 |ck_faile|d( v$, "|
|00001070| 7a 65 72 6f 22 20 29 0d | 05 fa 05 e1 0d 06 04 05 |zero" ).|........|
|00001080| 3a 0d 06 0e 20 dd 20 f2 | 5f 63 68 65 63 6b 5f 69 |:... . .|_check_i|
|00001090| 73 5f 67 65 28 20 76 24 | 2c 20 6c 69 6d 69 74 20 |s_ge( v$|, limit |
|000010a0| 29 0d 06 18 07 ea 20 85 | 0d 06 22 31 20 20 20 ee |)..... .|.."1   .|
|000010b0| 20 85 20 ea 20 f7 20 85 | 20 20 3a 20 20 f2 5f 68 | . . . .|  :  ._h|
|000010c0| 61 6e 64 6c 65 5f 63 68 | 65 63 6b 5f 65 72 72 6f |andle_ch|eck_erro|
|000010d0| 72 28 20 22 67 65 22 20 | 29 0d 06 2c 16 20 20 20 |r( "ge" |)..,.   |
|000010e0| e7 20 a0 28 76 24 29 3c | 6c 69 6d 69 74 20 8c 0d |. .(v$)<|limit ..|
|000010f0| 06 36 31 20 20 20 20 20 | 20 72 61 6e 67 65 24 20 |.61     | range$ |
|00001100| 3d 20 22 5b 22 20 2b 20 | c3 28 6c 69 6d 69 74 29 |= "[" + |.(limit)|
|00001110| 20 2b 20 22 2c 20 69 6e | 66 69 6e 69 74 79 29 22 | + ", in|finity)"|
|00001120| 0d 06 40 3b 20 20 20 20 | 20 20 f2 5f 63 68 65 63 |..@;    |  ._chec|
|00001130| 6b 5f 72 61 6e 67 65 5f | 66 61 69 6c 65 64 28 20 |k_range_|failed( |
|00001140| 76 24 2c 20 22 62 65 6c | 6f 77 20 72 61 6e 67 65 |v$, "bel|ow range|
|00001150| 22 2c 20 72 61 6e 67 65 | 24 20 29 0d 06 4a 08 20 |", range|$ )..J. |
|00001160| 20 20 cd 0d 06 54 05 e1 | 0d 06 5e 05 3a 0d 06 68 |  ...T..|..^.:..h|
|00001170| 20 dd 20 f2 5f 63 68 65 | 63 6b 5f 69 73 5f 67 74 | . ._che|ck_is_gt|
|00001180| 28 20 76 24 2c 20 6c 69 | 6d 69 74 20 29 0d 06 72 |( v$, li|mit )..r|
|00001190| 07 ea 20 85 0d 06 7c 31 | 20 20 20 ee 20 85 20 ea |.. ...|1|   . . .|
|000011a0| 20 f7 20 85 20 20 3a 20 | 20 f2 5f 68 61 6e 64 6c | . .  : | ._handl|
|000011b0| 65 5f 63 68 65 63 6b 5f | 65 72 72 6f 72 28 20 22 |e_check_|error( "|
|000011c0| 67 74 22 20 29 0d 06 86 | 17 20 20 20 e7 20 a0 28 |gt" )...|.   . .(|
|000011d0| 76 24 29 3c 3d 6c 69 6d | 69 74 20 8c 0d 06 90 31 |v$)<=lim|it ....1|
|000011e0| 20 20 20 20 20 20 72 61 | 6e 67 65 24 20 3d 20 22 |      ra|nge$ = "|
|000011f0| 28 22 20 2b 20 c3 28 6c | 69 6d 69 74 29 20 2b 20 |(" + .(l|imit) + |
|00001200| 22 2c 20 69 6e 66 69 6e | 69 74 79 29 22 0d 06 9a |", infin|ity)"...|
|00001210| 3b 20 20 20 20 20 20 f2 | 5f 63 68 65 63 6b 5f 72 |;      .|_check_r|
|00001220| 61 6e 67 65 5f 66 61 69 | 6c 65 64 28 20 76 24 2c |ange_fai|led( v$,|
|00001230| 20 22 62 65 6c 6f 77 20 | 72 61 6e 67 65 22 2c 20 | "below |range", |
|00001240| 72 61 6e 67 65 24 20 29 | 0d 06 a4 08 20 20 20 cd |range$ )|....   .|
|00001250| 0d 06 ae 05 e1 0d 06 b8 | 05 3a 0d 06 c2 20 dd 20 |........|.:... . |
|00001260| f2 5f 63 68 65 63 6b 5f | 69 73 5f 6c 65 28 20 76 |._check_|is_le( v|
|00001270| 24 2c 20 6c 69 6d 69 74 | 20 29 0d 06 cc 07 ea 20 |$, limit| )..... |
|00001280| 85 0d 06 d6 31 20 20 20 | ee 20 85 20 ea 20 f7 20 |....1   |. . . . |
|00001290| 85 20 20 3a 20 20 f2 5f | 68 61 6e 64 6c 65 5f 63 |.  :  ._|handle_c|
|000012a0| 68 65 63 6b 5f 65 72 72 | 6f 72 28 20 22 6c 65 22 |heck_err|or( "le"|
|000012b0| 20 29 0d 06 e0 16 20 20 | 20 e7 20 a0 28 76 24 29 | )....  | . .(v$)|
|000012c0| 3e 6c 69 6d 69 74 20 8c | 0d 06 ea 32 20 20 20 20 |>limit .|...2    |
|000012d0| 20 20 72 61 6e 67 65 24 | 20 3d 20 22 28 2d 69 6e |  range$| = "(-in|
|000012e0| 66 69 6e 69 74 79 2c 20 | 22 20 2b 20 c3 28 6c 69 |finity, |" + .(li|
|000012f0| 6d 69 74 29 20 2b 20 22 | 5d 22 0d 06 f4 3b 20 20 |mit) + "|]"...;  |
|00001300| 20 20 20 20 f2 5f 63 68 | 65 63 6b 5f 72 61 6e 67 |    ._ch|eck_rang|
|00001310| 65 5f 66 61 69 6c 65 64 | 28 20 76 24 2c 20 22 61 |e_failed|( v$, "a|
|00001320| 62 6f 76 65 20 72 61 6e | 67 65 22 2c 20 72 61 6e |bove ran|ge", ran|
|00001330| 67 65 24 20 29 0d 06 fe | 08 20 20 20 cd 0d 07 08 |ge$ )...|.   ....|
|00001340| 05 e1 0d 07 12 05 3a 0d | 07 1c 20 dd 20 f2 5f 63 |......:.|.. . ._c|
|00001350| 68 65 63 6b 5f 69 73 5f | 6c 74 28 20 76 24 2c 20 |heck_is_|lt( v$, |
|00001360| 6c 69 6d 69 74 20 29 0d | 07 26 07 ea 20 85 0d 07 |limit ).|.&.. ...|
|00001370| 30 31 20 20 20 ee 20 85 | 20 ea 20 f7 20 85 20 20 |01   . .| . . .  |
|00001380| 3a 20 20 f2 5f 68 61 6e | 64 6c 65 5f 63 68 65 63 |:  ._han|dle_chec|
|00001390| 6b 5f 65 72 72 6f 72 28 | 20 22 6c 74 22 20 29 0d |k_error(| "lt" ).|
|000013a0| 07 3a 17 20 20 20 e7 20 | a0 28 76 24 29 3e 3d 6c |.:.   . |.(v$)>=l|
|000013b0| 69 6d 69 74 20 8c 0d 07 | 44 32 20 20 20 20 20 20 |imit ...|D2      |
|000013c0| 72 61 6e 67 65 24 20 3d | 20 22 28 2d 69 6e 66 69 |range$ =| "(-infi|
|000013d0| 6e 69 74 79 2c 20 22 20 | 2b 20 c3 28 6c 69 6d 69 |nity, " |+ .(limi|
|000013e0| 74 29 20 2b 20 22 29 22 | 0d 07 4e 3b 20 20 20 20 |t) + ")"|..N;    |
|000013f0| 20 20 f2 5f 63 68 65 63 | 6b 5f 72 61 6e 67 65 5f |  ._chec|k_range_|
|00001400| 66 61 69 6c 65 64 28 20 | 76 24 2c 20 22 61 62 6f |failed( |v$, "abo|
|00001410| 76 65 20 72 61 6e 67 65 | 22 2c 20 72 61 6e 67 65 |ve range|", range|
|00001420| 24 20 29 0d 07 58 08 20 | 20 20 cd 0d 07 62 05 e1 |$ )..X. |  ...b..|
|00001430| 0d 07 6c 05 3a 0d ff    |                         |..l.:.. |        |
+--------+-------------------------+-------------------------+--------+--------+