Artifact e04ea78c408e33ddcc096d7d6027f4ae7e408707:

• Executable file n2o.in — part of check-in [252a08e1ad] at 2018-12-13 10:31:29 on branch trunk — Add coverage switch for n2o script (user: bernd size: 392) [more...]

0000: 23 21 20 40 47 46 4f 52 54 48 46 41 53 54 40 0a  #! @GFORTHFAST@.
0010: 5c 20 2d 2a 2d 20 6d 6f 64 65 3a 20 46 6f 72 74  \ -*- mode: Fort
0020: 68 20 2d 2a 2d 0a 0a 77 61 72 6e 69 6e 67 73 20  h -*-..warnings 
0030: 6f 66 66 20 5c 20 69 6e 20 70 72 6f 64 75 63 74  off \ in product
0040: 69 6f 6e 20 6d 6f 64 65 2c 20 77 65 20 64 6f 6e  ion mode, we don
0050: 27 74 20 77 61 6e 74 20 61 6e 79 20 77 61 72 6e  't want any warn
0060: 69 6e 67 73 0a 0a 66 70 61 74 68 2b 20 40 44 41  ings..fpath+ @DA
0070: 54 41 44 49 52 40 2f 67 66 6f 72 74 68 2f 40 47  TADIR@/gforth/@G
0080: 46 56 45 52 40 2f 6e 65 74 32 6f 2d 40 50 41 43  FVER@/net2o-@PAC
0090: 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 0a 0a 40  KAGE_VERSION@..@
00a0: 48 41 53 5f 47 50 53 44 40 20 5b 49 46 5d 20 5c  HAS_GPSD@ [IF] \
00b0: 20 67 70 73 64 0a 20 20 20 20 73 22 20 75 6e 69   gpsd.    s" uni
00c0: 78 2f 67 70 73 2e 66 73 22 20 6f 70 65 6e 2d 66  x/gps.fs" open-f
00d0: 70 61 74 68 2d 66 69 6c 65 0a 20 20 20 20 30 3d  path-file.    0=
00e0: 20 5b 49 46 5d 20 32 64 72 6f 70 20 63 6c 6f 73   [IF] 2drop clos
00f0: 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 3a 20 68  e-file throw : h
0100: 61 73 2d 67 70 73 64 3f 20 3b 20 5b 54 48 45 4e  as-gpsd? ; [THEN
0110: 5d 0a 5b 54 48 45 4e 5d 0a 0a 31 20 61 72 67 20  ].[THEN]..1 arg 
0120: 22 2b 63 6f 76 22 20 73 74 72 3d 20 5b 49 46 5d  "+cov" str= [IF]
0130: 20 20 73 68 69 66 74 2d 61 72 67 73 20 72 65 71    shift-args req
0140: 75 69 72 65 20 63 6f 76 65 72 61 67 65 2e 66 73  uire coverage.fs
0150: 20 20 5b 54 48 45 4e 5d 0a 0a 72 65 71 75 69 72    [THEN]..requir
0160: 65 20 6e 32 6f 2e 66 73 0a 0a 73 63 72 69 70 74  e n2o.fs..script
0170: 3f 20 5b 49 46 5d 20 73 74 61 72 74 2d 6e 32 6f  ? [IF] start-n2o
0180: 20 5b 54 48 45 4e 5d 0a                           [THEN].