From MAILER-DAEMON Fri Jan 29 18:26:16 2016 Received: from list by lists.gnu.org with archive (Exim 4.71) id 1aPIQi-0003Gx-M4 for mharc-gforth@gnu.org; Fri, 29 Jan 2016 18:26:16 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:34926) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aPIQg-0003Gf-LW for gforth@gnu.org; Fri, 29 Jan 2016 18:26:15 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aPIQf-0005KK-NO for gforth@gnu.org; Fri, 29 Jan 2016 18:26:14 -0500 Received: from mail-vk0-x236.google.com ([2607:f8b0:400c:c05::236]:34822) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aPIQf-0005K3-JD for gforth@gnu.org; Fri, 29 Jan 2016 18:26:13 -0500 Received: by mail-vk0-x236.google.com with SMTP id e6so50381124vkh.2 for ; Fri, 29 Jan 2016 15:26:13 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=EcUEdYbyUQC7PmFh84DtRpqhO8Amaztgxyn7UywShAY=; b=KOEmgAfTsRJp48Ork6BQoMIMNgZ0uxVHEEGTaLovH/ejUpJgH5xBZePwVxg3IOm5pm Jba5fDQJid+9Vs7T+Y4KajhkG9Rd8Tm/GDGu4KNzujvO9R+RlyCNJ03IBbw4Qpl+l6MN grp8oy+1ghZ4wIFSPVI07ruDJCmYw2zJ6wGmJGprbhlXlzX6r3Rb2dM2X1ypSU5TaaVe D9xArf/hv1SJM9TIkDBEefkcc+zOx2z/Ezh9YAPIfXYCzsGga3XzotlclWZ9hrEuLT/f c2Jq2xXD3IRsyBkc47rG3/34x9H/CXeh+T1PtYplB7Djo6jCLo/lcTCOoOzchCd+le2I 1nwQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:mime-version:date:message-id:subject:from:to :content-type; bh=EcUEdYbyUQC7PmFh84DtRpqhO8Amaztgxyn7UywShAY=; b=P7Nx4fSwtTxQnFsOvJeQA4JePxZoIXt8/k6BEWDH5tCFJLZivMwRRwuEJeDJPK6MZP oSt78cuQ2mRrRQ4lKlxASPhIb8O5+J3ZM3Jgt08XUUf7qoLTGeCXYnhJNDEylpBjW/xt mby2QF0aE/WsyYYMOdfV8k20lpCsSZrAfJQAJkVjoJ231xvnBi3O0JgGrGn6MfymMnZd 0EIZ9cAKVC29WlqL9ApDxhnbaavcN0qglMVIH9LmeOOnZi7ssstlXPUb3uZH5e1Bo8ep TDz+rgyf7eRo62aB3HC4pfcShx5SrOta+PLU7LuWTeqn9Ww71Wm8x1DEUzImXfchHpv0 1Hvw== X-Gm-Message-State: AG10YORwEzTZ63lc+AYxkuE7MaBe0rmCLAqyduwx2CfXN7tMgrdufkSlM97mDa3qhJrWkOeOXTKwFpVzpneL9g== MIME-Version: 1.0 X-Received: by 10.31.47.88 with SMTP id v85mr7716627vkv.118.1454109972613; Fri, 29 Jan 2016 15:26:12 -0800 (PST) Received: by 10.31.236.5 with HTTP; Fri, 29 Jan 2016 15:26:12 -0800 (PST) Date: Fri, 29 Jan 2016 16:26:12 -0700 Message-ID: From: Philip Smith To: gforth@gnu.org Content-Type: multipart/alternative; boundary=001a1144084661d23a052a815c6f X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400c:c05::236 Subject: [gforth] stuff.fs possible bug in \\\ word X-BeenThere: gforth@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Gforth discussion and announcements List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 29 Jan 2016 23:26:15 -0000 --001a1144084661d23a052a815c6f Content-Type: text/plain; charset=UTF-8 Looking through source file stuff.fs and found this gem! I have version 0.7.9_20160113 ! \ \\\ - skip to end of file : \\\ ( -- ) \ gforth \G skip remaining source file source-id dup 0> IF >r r@ file-size throw r> reposition-file throw BEGIN refill 0= UNTIL postpone \ THEN ; immediate But when i tested it i do not get the skip to end of file that i thought i should get! I think the intent here was to see if source-id is a file handle and if so do the skipping so i tried this change: : \\\ ( -- ) \ gforth \G skip remaining source file source-id dup 0<> IF \ **** basically changed 0> to 0<> >r r@ file-size throw r> reposition-file throw BEGIN refill 0= UNTIL postpone \ THEN ; immediate The \\\ word now skips to the end of the file so is this a bug and the solution is 0<> not 0> or am i wrong! -- \|||/ -----0oo---( o o )---oo0------ (_) >From the hand of PKS --001a1144084661d23a052a815c6f Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Looking through source file stuff.fs and found this gem! I= have version 0.7.9_20160113 !

\ \\\ - skip to end = of file

: \\\ ( -- ) \ gforth
=C2=A0 =C2= =A0 \G skip remaining source file
=C2=A0 =C2=A0 source-id dup 0&g= t; IF
>r r@= file-size throw r> reposition-file throw
BEGIN =C2=A0refill 0=3D UNTIL =C2=A0postpone= \ =C2=A0THEN ; immediate

But when i tested it i d= o not get the skip to end of file that i thought i should get!
I = think the intent here was to see if source-id is a file handle and if so do= the skipping so i tried this change:

: \\\ (= -- ) \ gforth
=C2=A0 =C2=A0 \G skip remaining source file
<= div>=C2=A0 =C2=A0 source-id dup 0<> IF =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0\ =C2=A0**** basically changed 0> to 0<>=C2=A0
<= div> >r r@ file-size t= hrow r> reposition-file throw
BEGIN =C2=A0refill 0=3D UNTIL =C2=A0postpone \ =C2=A0THE= N ; immediate

The \\\ word now skips to the = end of the file so is this a bug and the solution is 0<> not 0> = =C2=A0or am i wrong!=C2=A0

--
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 \|||/
= -----0oo---( o o )---oo0------
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 (_)
From the hand of PKS

--001a1144084661d23a052a815c6f-- From MAILER-DAEMON Fri Jan 29 18:44:49 2016 Received: from list by lists.gnu.org with archive (Exim 4.71) id 1aPIif-0008NQ-DI for mharc-gforth@gnu.org; Fri, 29 Jan 2016 18:44:49 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:44819) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aPIid-0008NC-6v for gforth@gnu.org; Fri, 29 Jan 2016 18:44:48 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aPIiZ-00083Y-St for gforth@gnu.org; Fri, 29 Jan 2016 18:44:47 -0500 Received: from mout.gmx.net ([212.227.17.22]:56772) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aPIiZ-00082f-Iv for gforth@gnu.org; Fri, 29 Jan 2016 18:44:43 -0500 Received: from daiyu.localnet ([79.197.84.116]) by mail.gmx.com (mrgmx102) with ESMTPSA (Nemesis) id 0MgYGJ-1alUfm0Gjn-00Nzrv; Sat, 30 Jan 2016 00:44:41 +0100 From: Bernd Paysan To: gforth@gnu.org Date: Sat, 30 Jan 2016 00:44:39 +0100 Message-ID: <1627882.HORFUTcZRS@daiyu> User-Agent: KMail/4.14.10 (Linux/4.4.0-2-default; KDE/4.14.16; x86_64; ; ) In-Reply-To: References: MIME-Version: 1.0 Content-Transfer-Encoding: 7Bit Content-Type: text/plain; charset="us-ascii" X-Provags-ID: V03:K0:nvn6+ghEOG+Bt92TnZufAtnE2R46eeJ6Flw8wK5bK6E25bTOfMI bcBa87APfFME6OwaxAHD7wK73+DM8if+w00YZ4zdoJdNoF5NDl2292qlqUHMOxt445u4BTN fRrnbKgEibPVIEZ10shvwkWkoyXMZm6KXRGeO97ecr3HcbsjGORYPX8k/eA7ZniVSX4kVO3 9R+0zE8XrbathVBEvbSpA== X-UI-Out-Filterresults: notjunk:1;V01:K0:AXnURIiJRYM=:0S+6QfdT3lKIEUCoUSS01Y KKC98SlDzFW1oKy/noOuHca14uqR/iDfJrJWpsXRDskp6wL6QJnB/nNlrWiPAn++6wOLxixER lMnUB5QV2Ge9i7SqU6YYmVODJuSiGWZ2gH3xkzUetSVQzMoTV+Hq6B8Zc6cKyqRXsKXnrU75+ kyRninbwrzuDBZjItzs4vKhAYmkbzYyT44hc/HJbz9saqetWIdW6L/iFzcoC0FsYpib2to7yJ DIQrEaAtUbghdB4DqlM89AhAh3d3v26pEl03eh5aKO5mfsMGIkNXZHLC0cgMusgdvhNSiwndI vJHBB34zesnoy19ipAH4GZE/8yXW1dlfCf9tEuY8qG0l5xSLVcNONITnOSQykPEJcyIiQYZwQ 0n3oGnICxojBCkVOCmgKHqG0cYjk12vKI9JTRVSvlFdivg4sBdok+hV+prLRZjUKrBRYqgDJN zAYqtqkVkTjDVwhHt5+nUQrE8UKP/SFO0xIAGzNJ7MfdQKiB1X61pVDe6ECY6xD5kScvtQBms xEfhp3NC2PHCcl+vkHcPJtOnH9Ss32fd7NcmNb4ZpmUVvxo5rxb7FbrfV01cX38wnJvdSlGf4 AVdG9IrhcZPF4lditWW1GT3z59it3X3RJ1gxi5HGOFFyGevWk+v3X6f4tAfoxR9QPEE8Xt2TY bstZoKkjI1IwkGzcH8/jxKZTwv+rrGXsDLb5cfQ52KjmQ2cR7vNGCl8lS88U0dVeuyDlSKc5G vNbZ8BUX4Umjh0RwP1TeunSKXcCZxhEn63gIEF7hhHlFXY3vXV/wgzGYmi5WjgXu0UdU3ykio /mJJg4T X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 212.227.17.22 Cc: Philip Smith Subject: Re: [gforth] stuff.fs possible bug in \\\ word X-BeenThere: gforth@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Gforth discussion and announcements List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 29 Jan 2016 23:44:48 -0000 Am Freitag, 29. Januar 2016, 16:26:12 schrieb Philip Smith: > Looking through source file stuff.fs and found this gem! I have version > 0.7.9_20160113 ! > > \ \\\ - skip to end of file > > : \\\ ( -- ) \ gforth > > \G skip remaining source file > source-id dup 0> IF > > >r r@ file-size throw r> reposition-file throw > > BEGIN refill 0= UNTIL postpone \ THEN ; immediate > > But when i tested it i do not get the skip to end of file that i thought i > should get! > I think the intent here was to see if source-id is a file handle and if so > > do the skipping so i tried this change: > : \\\ ( -- ) \ gforth > > \G skip remaining source file > source-id dup 0<> IF \ **** basically changed 0> to 0<> > > >r r@ file-size throw r> reposition-file throw > > BEGIN refill 0= UNTIL postpone \ THEN ; immediate > > The \\\ word now skips to the end of the file so is this a bug and the > solution is 0<> not 0> or am i wrong! Source ID -1 is for evaluate, 0 for terminal input and everything else is a file. So it should be dup 1+ 2 u>= IF -- Bernd Paysan "If you want it done right, you have to do it yourself" net2o ID: kQusJzA;7*?t=uy@X}1GWr!+0qqp_Cn176t4(dQ* http://bernd-paysan.de/ From MAILER-DAEMON Sun Jan 31 22:44:23 2016 Received: from list by lists.gnu.org with archive (Exim 4.71) id 1aQ5Pb-00078I-Ey for mharc-gforth@gnu.org; Sun, 31 Jan 2016 22:44:23 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:59887) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aQ5PY-00077j-RC for gforth@gnu.org; Sun, 31 Jan 2016 22:44:21 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aQ5PX-0005oQ-TC for gforth@gnu.org; Sun, 31 Jan 2016 22:44:20 -0500 Received: from mail-pf0-x231.google.com ([2607:f8b0:400e:c00::231]:33023) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aQ5PX-0005oG-La for gforth@gnu.org; Sun, 31 Jan 2016 22:44:19 -0500 Received: by mail-pf0-x231.google.com with SMTP id x125so76114246pfb.0 for ; Sun, 31 Jan 2016 19:44:19 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :content-type; bh=iIwzVnMYJwgzx0U7Fbo8CkEd9ZcELaA8TPDk++da+Ys=; b=sAW9Cmw2FMsXbm/gp37vc63TkBgThQfFAZKXzLuBaFlDsXRcKPyepAzvf/imLIVHvQ R2mRdUh/immEkOP5ggLYPuyzOTYtRTJIN8XxnRhCiy07eAUiSxxXx25ZJVCpKKL57Aas uu9VjHg1RHJfF+bP3oRvV90aDP6LpbvssG4BAX9dB7Co0BVMBx8wA5L3G1d2vrJnX8ZA +DrSAGrmxUpCrT/d46BPMpvHLbK5dj20dTviJISGed7SGYo4UNmHcFDYd70iM9+Ee3ed Q4s/iwP1KVXRAQibBuMahi9jmG9THK3zjJqgULmIpRo6lGQoT6vYm7+i4dCXk7qVGELg dQhg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:mime-version:in-reply-to:references:date :message-id:subject:from:to:content-type; bh=iIwzVnMYJwgzx0U7Fbo8CkEd9ZcELaA8TPDk++da+Ys=; b=bysWB3oFjxPvbsclAqK7Og7P8RoGGjDXULBAEPy6dkBh2MuYrT6jdvQ2LnqOjj0dg6 KO+4QETmIvH+8/wnNr4Qs1tVNsZIQ9Z1TvOQx9p67DvN6deqW7CyVTLmxY5zWvu2tK5z ZldQ4R39ycBZknp/3tPdP2s+B+TSlAoyxizY2SwJ5PYnZkD2eP5uRR7DWl+Kp1+x24rF B+ey8SCdJnOJRKpaN/f/XqzUZdPu+W5khPPPyG0Nb6oHwosbl7nz4AdD2uHFnCbBijjs pxyyODlMYjNAUXs8HLuTeO9DJeapG7fAbb+VngXok2YmLyqUWAzsCBLAPFr//jUw/xLR TY3w== X-Gm-Message-State: AG10YOQrwjsljIeD3pxVH5fDVV6T5n/unAtaGPmDfaBamfIoh5cV0ayLYiOdbkdD2aFmJKM8svxAe/GAZWkZzQ== MIME-Version: 1.0 X-Received: by 10.98.72.3 with SMTP id v3mr26662604pfa.100.1454298258361; Sun, 31 Jan 2016 19:44:18 -0800 (PST) Received: by 10.66.15.41 with HTTP; Sun, 31 Jan 2016 19:44:18 -0800 (PST) Received: by 10.66.15.41 with HTTP; Sun, 31 Jan 2016 19:44:18 -0800 (PST) In-Reply-To: References: Date: Sun, 31 Jan 2016 22:44:18 -0500 Message-ID: From: James Gere To: gforth@gnu.org Content-Type: multipart/alternative; boundary=94eb2c0b914a1650b7052aad337a X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400e:c00::231 Subject: [gforth] A little do-nothing in recognizer.fs: get-stack X-BeenThere: gforth@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Gforth discussion and announcements List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 01 Feb 2016 03:44:21 -0000 --94eb2c0b914a1650b7052aad337a Content-Type: text/plain; charset=UTF-8 In line 79 of recognizer.fs , at the start of "get-stack", the sequence: dup swap -- seems unintentional unless it's a place- or time- holder. Since the code works, "2dup swap" makes no sense. This is the only example in all of Gforth presently. --94eb2c0b914a1650b7052aad337a Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable

=C2=A0=C2=A0=C2=A0=C2=A0 In line 79 of recognizer.fs , at th= e start of "get-stack",=C2=A0 the sequence:
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 dup swap
=C2=A0 -- seems unintentional unless it's a place- or time- holder.=C2= =A0=C2=A0
=C2=A0=C2=A0=C2=A0 Since the code works, "2dup swap" makes no sen= se.
=C2=A0=C2=A0=C2=A0 This is the only example in all of Gforth presently.

--94eb2c0b914a1650b7052aad337a--