Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], =?windows-1253?B?UGhvZWJ1cyBSLiBEb2tvcyAo1u/f4u/yINEuIM30/Orv8ik=?= [EMAIL PROTECTED] writes On Thu, 14 Apr 2005 14:22:06 -0400, Malcolm Cadman [EMAIL PROTECTED] wrote: In message [EMAIL PROTECTED], Darren Branagh [EMAIL PROTECTED] writes It reminds me of a famous quote by George Best :- 90% of my money I spent on booze, birds and gambling - the rest I wasted. Yes, that was one of his most lucid statements ... Yet possibly the greatest footballer that I have ever seen play. But how much better would he be if he used a QL to review his tactics? Could have had the success of the Greeks ? ... :-) -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
RE: [ql-users] QStarter, QFiles
It reminds me of a famous quote by George Best :- 90% of my money I spent on booze, birds and gambling - the rest I wasted. Cheers, Darren. -Original Message- From: Dilwyn Jones [mailto:[EMAIL PROTECTED] Sent: 13 April 2005 21:15 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Yes, it like all code writing ... the major part of say 90% to 95% is relatively easy, yet it is the last 1% to 5% that is hard. -- Malcolm Cadman Refer to my Murphy's Law docs for the one which says that the first 90% of a project takes 90% of the time. The rest takes the other 90%. -- Dilwyn Jones -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Darren Branagh [EMAIL PROTECTED] writes It reminds me of a famous quote by George Best :- 90% of my money I spent on booze, birds and gambling - the rest I wasted. Yes, that was one of his most lucid statements ... Yet possibly the greatest footballer that I have ever seen play. -Original Message- From: Dilwyn Jones [mailto:[EMAIL PROTECTED] Sent: 13 April 2005 21:15 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Yes, it like all code writing ... the major part of say 90% to 95% is relatively easy, yet it is the last 1% to 5% that is hard. -- Malcolm Cadman Refer to my Murphy's Law docs for the one which says that the first 90% of a project takes 90% of the time. The rest takes the other 90%. -- Dilwyn Jones -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
On Thu, 14 Apr 2005 14:22:06 -0400, Malcolm Cadman [EMAIL PROTECTED] wrote: In message [EMAIL PROTECTED], Darren Branagh [EMAIL PROTECTED] writes It reminds me of a famous quote by George Best :- 90% of my money I spent on booze, birds and gambling - the rest I wasted. Yes, that was one of his most lucid statements ... Yet possibly the greatest footballer that I have ever seen play. But how much better would he be if he used a QL to review his tactics? Ffibys ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Dilwyn Jones [EMAIL PROTECTED] writes Yes, it like all code writing ... the major part of say 90% to 95% is relatively easy, yet it is the last 1% to 5% that is hard. -- Malcolm Cadman Refer to my Murphy's Law docs for the one which says that the first 90% of a project takes 90% of the time. The rest takes the other 90%. Yes, myth has an uncanny way of being factual ... :-) -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: Re: [ql-users] QStarter, QFiles
[EMAIL PROTECTED] wrote: Thanks. Will compare routines tonight. Is this the utility which was with Winback? I see what you are getting at: GET might return the error if there is nothing to be GOT...so if the filename length word is 0, get will not fetch a null string? Yes, this is the utility that was supplied with WinBack - Directory_bas - I extracted from it because it had less clutter compared to the similar routine within WinBack itself. Cheers, Norman. ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: Re: [ql-users] QStarter, QFiles
Just another simple thing ... are you using the 'zero' in the dimensioned array for the 'file_string' ? DIM f$(100) actually has 101 places reserved, as 0 to 100. Yes I do. As best as I can remember from memory the MAWDRAW command is used for drawing the files list in the menu, this uses an array slice depending on how many filenames there are. If there's 60 files it's be: MAWDRAW #channel%,1,f$(0 to 59) I may need to rig up a test routine in SBASIC for you to run on your machine for me to get some figures back to see why it's different on your system, OK, best to the latter, as my machine is not 'portable' to shows; and I will not be attending the AGM. OK Send me a SBASIC test routine with suitable break points to check progress. When you have time. Of course! I feel sure it will turn out to be something minor that is throwing the error. Indeed, I'm sure I'll be kicking myself when I discover the error! Dilwyn Jones ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Dilwyn Jones [EMAIL PROTECTED] writes Just another simple thing ... are you using the 'zero' in the dimensioned array for the 'file_string' ? DIM f$(100) actually has 101 places reserved, as 0 to 100. Yes I do. As best as I can remember from memory the MAWDRAW command is used for drawing the files list in the menu, this uses an array slice depending on how many filenames there are. If there's 60 files it's be: MAWDRAW #channel%,1,f$(0 to 59) I may need to rig up a test routine in SBASIC for you to run on your machine for me to get some figures back to see why it's different on your system, OK, best to the latter, as my machine is not 'portable' to shows; and I will not be attending the AGM. OK Send me a SBASIC test routine with suitable break points to check progress. When you have time. Of course! I feel sure it will turn out to be something minor that is throwing the error. Indeed, I'm sure I'll be kicking myself when I discover the error! Yes, it like all code writing ... the major part of say 90% to 95% is relatively easy, yet it is the last 1% to 5% that is hard. -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
Yes, it like all code writing ... the major part of say 90% to 95% is relatively easy, yet it is the last 1% to 5% that is hard. -- Malcolm Cadman Refer to my Murphy's Law docs for the one which says that the first 90% of a project takes 90% of the time. The rest takes the other 90%. -- Dilwyn Jones -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
[EMAIL PROTECTED] wrote: The directory pointer points at the two byte filename length counter in the directory, then GET reads the filename, which is a standard internal format string. What seems to be happening is that we are in a directory entry, GET fetches a length word, but fails to find that number of characters, which I thought was impossible. Morning Dilwyn, Are you testing for a null directory entry ? When a file has been deleted, the name size in the directory entry is set to zero. If I'm not mistaken, the code in WinBack (remeber that) has a recursive directory traversal routine which opens the directory and reads entries from it. I suspect the code in there may be useful. I cams across a similar problem when I was writing WinBack all those years ago. Cheers, Norman. ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: Re: [ql-users] QStarter, QFiles
I think it does (null filename length would be a deleted file or one of the old software protection files on a level 1 filing system I think, not applicable in Malcolm's case as he uses QPC2), but I'll check again when I get home. Thanks for the suggestion. Dilwyn Jones Morning Dilwyn, Are you testing for a null directory entry ? When a file has been deleted, the name size in the directory entry is set to zero. If I'm not mistaken, the code in WinBack (remeber that) has a recursive directory traversal routine which opens the directory and reads entries from it. I suspect the code in there may be useful. I cams across a similar problem when I was writing WinBack all those years ago. Cheers, Norman. ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
Check out lines 1250 and 1255 in the following extract from Directory_bas which
is the utility to build a SuperBasic file which rebuilds you Win_ directory
structure.
Cheers,
Norman.
1140 DEFine PROCedure check_dir (d$)
1145 LOCal name_len%, curr_d$(40), curr_f$(41), entry$(64), loop
1150 LOCal ch%, qdos, err_loop, error_code%, loop_yn
1155 :
1160 curr_d$ = d$
1165 CURSOR_ON #1 !
1170 REPeat err_loop
1175 qdos = FOPEN_DIRECTORY(curr_d$)
1180 IF qdos 0
1185 FORCE_ERROR qdos, 'Cannot open directory on ' curr_d$
1190 ELSE
1195 EXIT err_loop
1200 END IF
1205 END REPeat err_loop
1210 REPeat loop
1215 IF END_OF_DIRECTORY(qdos) THEN EXIT loop: END IF
1220 IF INKEY$(#1, 2) = CHR$(27)
1225aborted = 1:REMark ** ESC pressed during processing **
1230EXIT loop
1235 END IF
1240 entry$ = FREAD_DIRECTORY$(qdos)
1245 IF entry$ = '' THEN NEXT loop: END IF
1250 name_len% = CODE(entry$(15)) * 256 + CODE(entry$(16))
1255 IF NOT (name_len%) THEN NEXT loop: END IF
1260 curr_f$ = entry$(17 TO (17 + name_len% - 1))
1265 IF CODE(entry$(6)) = 255
1270PRINT ! curr_f$ !
1275PRINT #3,next_line% ' DATA ' curr_f$ ''
1280next_line% = next_line% + 5
1285check_dir ('win1_' curr_f$)
1290IF aborted THEN EXIT loop: END IF
1295 END IF
1300 END REPeat loop
1305 CLOSE_DIRECTORY (qdos)
1310 CURSOR_OFF #1
1315 END DEFine check_dir
___
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
Re: Re: [ql-users] QStarter, QFiles
Thanks. Will compare routines tonight. Is this the utility which was with Winback? I see what you are getting at: GET might return the error if there is nothing to be GOT...so if the filename length word is 0, get will not fetch a null string? Can't believe I didn't check for this as deleted file nulls should be common enough for anyone's hard disk to make it fallover if this was the case. Actually, I pity Duncan...he knew it was possible, tried (probably for ages) to make it happen and couldn't! Dilwyn Jones From: [EMAIL PROTECTED] Date: 2005/04/12 Tue PM 12:41:57 GMT To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Check out lines 1250 and 1255 in the following extract from Directory_bas which is the utility to build a SuperBasic file which rebuilds you Win_ directory structure. Cheers, Norman. 1250 name_len% = CODE(entry$(15)) * 256 + CODE(entry$(16)) 1255 IF NOT (name_len%) THEN NEXT loop: END IF ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Dilwyn Jones [EMAIL PROTECTED] writes Have tried to break QStarter - configuring it for a small number of executables +/- small window and other win drives but without success. Could there be a clash between the Easyptr extensions and some other key words in a toolkit or SBASIC to result in the EOF message? Oh well ... it seems robust from your tests. If I recall the EOF comes from reading beyond the expected input limit. So a key word clash shouldn't be involved. Maybe there isn't a check on the limit ? Like ... IF EOF THEN EXIT loop . CLOSE#Input_Channel_Number There is an IF EOF(#chan) THEN EXIT... clause in the line just before the one where you experienced the error message, Malcolm. Yes, I assumed there was such a check ... just speculating. I remember getting the 'end of file' message in one of my programs, until I found where the error was occurring. Just another simple thing ... are you using the 'zero' in the dimensioned array for the 'file_string' ? DIM f$(100) actually has 101 places reserved, as 0 to 100. The directory pointer points at the two byte filename length counter in the directory, then GET reads the filename, which is a standard internal format string. What seems to be happening is that we are in a directory entry, GET fetches a length word, but fails to find that number of characters, which I thought was impossible. Will you be at the AGM, Malcolm? I could run the sources on your machine there to test what's going wrong, failing that, I may need to rig up a test routine in SBASIC for you to run on your machine for me to get some figures back to see why it's different on your system, there may be some oddity such as a particular name length causing problems or recursion going wrong somewhere with particular nesting depths. It might be a simple programming error with local variables and global ones getting mixed up, although at this moment I can't find anything like that. OK, best to the latter, as my machine is not 'portable' to shows; and I will not be attending the AGM. Send me a SBASIC test routine with suitable break points to check progress. When you have time. I feel sure it will turn out to be something minor that is throwing the error. -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Duncan Neithercut [EMAIL PROTECTED] writes Hi Malcolm Cadman Have tried to break QStarter - configuring it for a small number of executables +/- small window and other win drives but without success. Could there be a clash between the Easyptr extensions and some other key words in a toolkit or SBASIC to result in the EOF message? Oh well ... it seems robust from your tests. If I recall the EOF comes from reading beyond the expected input limit. So a key word clash shouldn't be involved. Maybe there isn't a check on the limit ? Like ... IF EOF THEN EXIT loop . CLOSE#Input_Channel_Number -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
Have tried to break QStarter - configuring it for a small number of executables +/- small window and other win drives but without success. Could there be a clash between the Easyptr extensions and some other key words in a toolkit or SBASIC to result in the EOF message? Oh well ... it seems robust from your tests. If I recall the EOF comes from reading beyond the expected input limit. So a key word clash shouldn't be involved. Maybe there isn't a check on the limit ? Like ... IF EOF THEN EXIT loop . CLOSE#Input_Channel_Number There is an IF EOF(#chan) THEN EXIT... clause in the line just before the one where you experienced the error message, Malcolm. The directory pointer points at the two byte filename length counter in the directory, then GET reads the filename, which is a standard internal format string. What seems to be happening is that we are in a directory entry, GET fetches a length word, but fails to find that number of characters, which I thought was impossible. Will you be at the AGM, Malcolm? I could run the sources on your machine there to test what's going wrong, failing that, I may need to rig up a test routine in SBASIC for you to run on your machine for me to get some figures back to see why it's different on your system, there may be some oddity such as a particular name length causing problems or recursion going wrong somewhere with particular nesting depths. It might be a simple programming error with local variables and global ones getting mixed up, although at this moment I can't find anything like that. -- Dilwyn Jones -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 11/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
RE: [ql-users] QStarter, QFiles
Hi Malcolm Cadman Have tried to break QStarter - configuring it for a small number of executables +/- small window and other win drives but without success. Could there be a clash between the Easyptr extensions and some other key words in a toolkit or SBASIC to result in the EOF message? Duncan Neithercut -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Malcolm Cadman Sent: 09 April 2005 19:08 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles In message [EMAIL PROTECTED], Duncan Neithercut [EMAIL PROTECTED] writes Have also tried the configuration of Malcom Cadman : win1_ subdirectories: Worked OK - got a big list of executable files Umm ... I am glad that it is working for you, Duncan. Yet curious for myself ... I am using QPC2 with SMSQ/E. Which I assume it what Dilwyn is using. End of file error messages are irrating, yet I believe there is a simple cure. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dilwyn Jones Sent: 09 April 2005 13:53 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Thanks. Dilwyn Jones QStarter 1.01 - Works on a Q60 with smsqe 3.09 Duncan Neithercut -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
Thanks. Dilwyn Jones QStarter 1.01 - Works on a Q60 with smsqe 3.09 Duncan Neithercut -Original Message- -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
RE: [ql-users] QStarter, QFiles
Have also tried the configuration of Malcom Cadman : win1_ subdirectories: Worked OK - got a big list of executable files Duncan Neithercut -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dilwyn Jones Sent: 09 April 2005 13:53 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Thanks. Dilwyn Jones QStarter 1.01 - Works on a Q60 with smsqe 3.09 Duncan Neithercut -Original Message- -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Duncan Neithercut [EMAIL PROTECTED] writes Have also tried the configuration of Malcom Cadman : win1_ subdirectories: Worked OK - got a big list of executable files Umm ... I am glad that it is working for you, Duncan. Yet curious for myself ... I am using QPC2 with SMSQ/E. Which I assume it what Dilwyn is using. End of file error messages are irrating, yet I believe there is a simple cure. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dilwyn Jones Sent: 09 April 2005 13:53 To: [EMAIL PROTECTED] Subject: Re: [ql-users] QStarter, QFiles Thanks. Dilwyn Jones QStarter 1.01 - Works on a Q60 with smsqe 3.09 Duncan Neithercut -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
Re: [ql-users] QStarter, QFiles
In message [EMAIL PROTECTED], Dilwyn Jones [EMAIL PROTECTED] writes At last I've been able to update the QStarter program thanks to an upgrade of an extensions file from Marcel. The updated v1.01 has just been uploaded to my website. Another new little program has been uploaded - QFiles is a button which calls a File_Select$ menu from QMenu to allow indirect pointer driven file selection from non-pointered programs such as Quill. Click on the QFiles button, select the file with the usual File_Select$ menu and the filename is placed in the stuffer buffer, ready to be recovered with a simple ALT-SPACE keypress in the non-pointered program. Obviously pointer environment and QMenu (Menu Extension from Jochen Merz) are required. If your version of QMenu is recent enough, QFiles will also use the System Palette colours. OK. I downloaded Qstarter v1.01 This runs, and I configured it to have win1_ as the default path and 'Yes' to search sub-directories. It chugged away ... and then came up with an error : line 2880 GET end of file -- Malcolm Cadman ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
RE: [ql-users] QStarter, QFiles
QStarter 1.01 - Works on a Q60 with smsqe 3.09 Duncan Neithercut -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dilwyn Jones Sent: 07 April 2005 23:18 To: QL Users List Subject: [ql-users] QStarter, QFiles At last I've been able to update the QStarter program thanks to an upgrade of an extensions file from Marcel. The updated v1.01 has just been uploaded to my website. Another new little program has been uploaded - QFiles is a button which calls a File_Select$ menu from QMenu to allow indirect pointer driven file selection from non-pointered programs such as Quill. Click on the QFiles button, select the file with the usual File_Select$ menu and the filename is placed in the stuffer buffer, ready to be recovered with a simple ALT-SPACE keypress in the non-pointered program. Obviously pointer environment and QMenu (Menu Extension from Jochen Merz) are required. If your version of QMenu is recent enough, QFiles will also use the System Palette colours. -- Dilwyn Jones -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005 ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm ___ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
