Re: [Ql-Users] A feature or a bug?

2016-06-15 Thread Ralf Reköndt
"Wolf" <w...@wlenerz.com> To: <ql-us...@q-v-d.com> Sent: Wednesday, June 15, 2016 6:49 AM Subject: Re: [Ql-Users] A feature or a bug? Hi, I often use something like this for ftest 100 DEFine FuNction ftest2(file$) 110 LOCal dad$,ded$,prd$,a 120 dad$=DATAD$ 130 d

Re: [Ql-Users] A feature or a bug?

2016-06-15 Thread Derek Stewart
OK, sorry, but message implied this. Back to sleep again. Regards, Derek On 14/06/16 18:49, Marcel Kilgus wrote: Derek Stewart wrote: I am a little confused, where does DEV1_ default to DATAD$ Never. I said DATAD$ is DEV1_ on my machine. Marcel

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Wolf
Hi, I often use something like this for ftest 100 DEFine FuNction ftest2(file$) 110 LOCal dad$,ded$,prd$,a 120 dad$=DATAD$ 130 ded$=DESTD$ 140 prd$=PROGD$ 150 DATA_USE "" 160 DEST_USE "" 170 PROG_USE "" 180 a=FTEST(file$) 190 DATA_USE dad$ 200 DEST_USE ded$ 210 PROG_USE prd$

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Norman Dunbar
Yes. Cheers, Norm. On 14 June 2016 20:53:15 BST, "Ralf Reköndt" wrote: >Does this ommit TK2? > >- Original Message - >From: "George Gwilt" > >> Using Turbo Toolkit’s DEVICE_STATUS might be safer. >> >> George >

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Norman Dunbar
You could use max_devs and dev_name from the truly wonderful DJTOOLKIT too, if you were inclined! I'm surprised that DJ didn't mention it! ;) Cheers, Norm. -- Sent from my Android device with K-9 Mail. Please excuse my brevity. ___ QL-Users Mailing

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Ralf Reköndt
Does this ommit TK2? - Original Message - From: "George Gwilt" Using Turbo Toolkit’s DEVICE_STATUS might be safer. George ___ QL-Users Mailing List

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Ralf Reköndt
Tuesday, June 14, 2016 6:07 PM Subject: Re: [Ql-Users] A feature or a bug? Can someone explain this? 10 f$="":REMark empty string 20 if FTEST(f$)=0 30 DIR f$ 40 ELSE 50 PRINT f$," can't be a file name" 60 ENDIF Why is line 30 executed (displaying the directory of datad$)

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Ralf Reköndt
- Original Message - From: "Marcel Kilgus" Ralf Reköndt wrote: It's really that awful, as OPEN tries the device you told it, then, if no success, uses DATAD$ or somewhat others, DEV or such. DATAD$, PROGD$ or DESTD$ is prepended to the filename, depending on the call. DEV is just

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
Dilwyn Jones wrote: > There are device open functions out there in other toolkits which do the > same job without checking the TK2 defaults system. This is an important point. This is not an OS feature, i.e. the raw TRAPs do not behave this way, it's strictly a feature of the BASIC commands. That

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Dilwyn Jones
and DEVICE_STATUS (Turbo compiler) just to name a few. Dilwyn -Original Message- From: Ralf Reköndt Sent: Tuesday, June 14, 2016 7:20 PM To: ql-us...@q-v-d.com Subject: Re: [Ql-Users] A feature or a bug? It's really that awful, as OPEN tries the device you told it, then, if no success, uses

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Ralf Reköndt
ot present. - Original Message - From: "Marcel Kilgus" <ql-us...@mail.kilgus.net> To: <ql-us...@q-v-d.com> Sent: Tuesday, June 14, 2016 7:57 PM Subject: Re: [Ql-Users] A feature or a bug? François Van Emelen wrote: So, this seems to be a feature... a very

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
François Van Emelen wrote: > So, this seems to be a feature... a very dangerous one : replacing DIR > f$ in line 30 with DELETE f$ would wipe all directories and files on > that device. That would actually be a somewhat cool feature, but DELETE is not as cool, so nothing will happen. Try it :)

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Dilwyn Jones
I think it's just that Marcel normally just uses DATA_USE dev1_ on his system. Dilwyn -Original Message- From: Derek Stewart Sent: Tuesday, June 14, 2016 6:27 PM To: ql-us...@q-v-d.com Subject: Re: [Ql-Users] A feature or a bug? On 14/06/16 14:43, Marcel Kilgus wrote: Marcel Kilgus

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
Derek Stewart wrote: > I am a little confused, where does DEV1_ default to DATAD$ Never. I said DATAD$ is DEV1_ on my machine. Marcel ___ QL-Users Mailing List

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Derek Stewart
On 14/06/16 14:43, Marcel Kilgus wrote: Marcel Kilgus wrote: François Van Emelen wrote: 10 f$="":REMark empty string 20 if FTEST(f$)=0 30 DIR f$ 40 ELSE 50 PRINT f$," can't be a file name" 60 ENDIF Why is line 30 executed (displaying the directory of datad$) instead of line 50? Because

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread George Gwilt
> On 14 Jun 2016, at 16:45, François Van Emelen > wrote: > > Op 14/06/2016 om 16:18 schreef George Gwilt: >>> On 14 Jun 2016, at 14:56, Bob Spelten wrote: >>> >>> Op Tue, 14 Jun 2016 15:43:00 +0200 schreef Marcel Kilgus >>>

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Dilwyn Jones
Can someone explain this? 10 f$="":REMark empty string 20 if FTEST(f$)=0 30 DIR f$ 40 ELSE 50 PRINT f$," can't be a file name" 60 ENDIF Why is line 30 executed (displaying the directory of datad$) instead of line 50? IF line 30 is replace with VIEW f$ then the content of win (in my case Win2_)

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread François Van Emelen
Op 14/06/2016 om 16:18 schreef George Gwilt: On 14 Jun 2016, at 14:56, Bob Spelten wrote: Op Tue, 14 Jun 2016 15:43:00 +0200 schreef Marcel Kilgus : Marcel Kilgus wrote: François Van Emelen wrote: 10 f$="":REMark empty string 20 if FTEST(f$)=0 30

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread George Gwilt
> On 14 Jun 2016, at 14:56, Bob Spelten wrote: > > Op Tue, 14 Jun 2016 15:43:00 +0200 schreef Marcel Kilgus > : > >> Marcel Kilgus wrote: >>> François Van Emelen wrote: 10 f$="":REMark empty string 20 if FTEST(f$)=0 30 DIR f$ 40

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
Bob Spelten wrote: > I understand the datad$ but the problem is why FTEST returns a zero? I don't understand, why shouldn't it? > FTEST should return a -7, so DIR is should not be done. Clearly the directory pointed to by DATAD$ exists, so why whould it return -7? Marcel

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Bob Spelten
Op Tue, 14 Jun 2016 15:43:00 +0200 schreef Marcel Kilgus : Marcel Kilgus wrote: François Van Emelen wrote: 10 f$="":REMark empty string 20 if FTEST(f$)=0 30 DIR f$ 40 ELSE 50 PRINT f$," can't be a file name" 60 ENDIF Why is line 30 executed (displaying the

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Timothy Swenson
I tried this and it worked as reported. I then did this: data_use "" then I ran it again, and got the error message. This confirms that datad$ is being picked up and used in the FTEST. Tim ___ QL-Users Mailing List

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
Marcel Kilgus wrote: > François Van Emelen wrote: >> 10 f$="":REMark empty string >> 20 if FTEST(f$)=0 >> 30 DIR f$ >> 40 ELSE >> 50 PRINT f$," can't be a file name" >> 60 ENDIF >> >> Why is line 30 executed (displaying the directory of datad$) instead of >> line 50? > Because SMSQ/E defaults to

Re: [Ql-Users] A feature or a bug?

2016-06-14 Thread Marcel Kilgus
François Van Emelen wrote: > 10 f$="":REMark empty string > 20 if FTEST(f$)=0 > 30 DIR f$ > 40 ELSE > 50 PRINT f$," can't be a file name" > 60 ENDIF > > Why is line 30 executed (displaying the directory of datad$) instead of > line 50? Because SMSQ/E defaults to dev1_ if you don't give a