Question about using SHELL "dir" on non windows OS.

[Dav]

Although Steve has provided me a better file select solution, I wanted to go ahead and finish up the SHELL version, so I added the Linux find command if linux OS is detected.   If one of you kind linux people could test this and see if this works for you I'd appreciate it.  Thanks.  I used to have QB64 on linux mint pen drive, but lost it...

Also, this function changes the foreground and background COLOR attributes.  I'd like to restore those upon exiting.  Is there a way to do that?  I'm trying _DEFAULTCOLOR, but it seems to only save foreground (text).  The background color stays changed. (fixed...)

- Dav

Code: QB64: [Select]

1.  
2. a$ = FileSelect$(5, 10, 15, 55, "*.*")
3.  
4. IF a$ <> "" THEN
5.     PRINT "You selected: "; a$
6. END IF
7.  
8. END
9.  
10.  
11. FUNCTION FileSelect$ (y, x, y2, x2, Filespec$)
12.  
13.     '=== save original place of cursor
14.     origy = CSRLIN: origx = POS(1)
15.  
16.     '=== save colors
17.     fg& = _DEFAULTCOLOR
18.     bg& = _BACKGROUNDCOLOR
19.  
20.     '=== Save whole screen
21.     DIM scr1 AS _MEM, scr2 AS _MEM
22.     scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
23.     _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
24.  
25.     loadagain:
26.  
27.     top = 0
28.     selection = 0
29.  
30.     IF INSTR(_OS$, "LINUX") THEN
31.         SHELL _HIDE "find . -type d > $_TeMP_FILE_LIST"
32.     ELSE
33.         SHELL _HIDE "dir /b /A:D > $_TeMP_FILE_LIST"
34.     END IF
35.  
36.     'get list...
37.     REDIM FileNames$(5000) 'space for 5000 filenames
38.  
39.     FileNames$(0) = ".."
40.  
41.     FF = FREEFILE
42.     OPEN "$_TeMP_FILE_LIST" FOR INPUT AS #FF
43.  
44.     LineCount = 1
45.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
46.         LINE INPUT #FF, rl$
47.         FileNames$(LineCount) = "[" + rl$ + "]"
48.         LineCount = LineCount + 1
49.     WEND
50.     CLOSE #FF
51.  
52.     KILL "$_TeMP_FILE_LIST"
53.  
54.     IF INSTR(_OS$, "LINUX") THEN
55.         SHELL _HIDE "find . -type f " + CHR$(34) + Filespec$ + CHR$(34) + " > $_TeMP_FILE_LIST"
56.     ELSE
57.         SHELL _HIDE "dir /b /A:-D " + Filespec$ + " > $_TeMP_FILE_LIST"
58.     END IF
59.  
60.     FF = FREEFILE
61.     OPEN "$_TeMP_FILE_LIST" FOR INPUT AS #FF
62.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
63.         LINE INPUT #FF, rl$
64.         'skip the temp file...
65.         IF rl$ <> "$_TeMP_FILE_LIST" THEN
66.             FileNames$(LineCount) = rl$
67.             LineCount = LineCount + 1
68.         END IF
69.     WEND
70.     CLOSE #FF
71.  
72.     KILL "$_TeMP_FILE_LIST"
73.  
74.     'draw a box
75.     COLOR _RGB(100, 100, 255)
76.     FOR l = 0 TO y2 + 1
77.         LOCATE y + l, x: PRINT STRING$(x2 + 4, CHR$(219));
78.     NEXT
79.  
80.     DO
81.  
82.         FOR l = 0 TO (y2 - 1)
83.             LOCATE (y + 1) + l, (x + 2)
84.             IF l + top = selection THEN
85.                 COLOR _RGB(0, 0, 0), _RGB(255, 255, 255) 'selected line
86.             ELSE
87.                 COLOR _RGB(255, 255, 255), _RGB(0, 0, 0) 'regular
88.             END IF
89.             PRINT LEFT$(FileNames$(top + l) + STRING$(x2, " "), x2);
90.         NEXT
91.  
92.         k$ = INKEY$
93.         SELECT CASE k$
94.             CASE IS = CHR$(0) + CHR$(72) 'Up arrow
95.                 IF selection > 0 THEN selection = selection - 1
96.                 IF selection < top THEN top = selection
97.             CASE IS = CHR$(0) + CHR$(80) 'Down Arrow
98.                 IF selection < (LineCount - 1) THEN selection = selection + 1
99.                 IF selection > (top + (y2 - 2)) THEN top = selection - y2 + 1
100.             CASE IS = CHR$(0) + CHR$(73) 'Page up
101.                 top = top - y2
102.                 selection = selection - y2
103.                 IF top < 0 THEN top = 0
104.                 IF selection < 0 THEN selection = 0
105.             CASE IS = CHR$(0) + CHR$(81) 'Page Down
106.                 top = top + y2
107.                 selection = selection + y2
108.                 IF top >= LineCount - y2 THEN top = LineCount - y2
109.                 IF top < 0 THEN top = 0
110.                 IF selection >= LineCount THEN selection = LineCount - 1
111.             CASE IS = CHR$(0) + CHR$(71) 'Home
112.                 top = 0: selection = 0
113.             CASE IS = CHR$(0) + CHR$(79) 'End
114.                 selection = LineCount - 1
115.                 top = selection - y2 + 1
116.                 IF top < 0 THEN top = 0
117.             CASE IS = CHR$(27) ' ESC cancels
118.                 FileSelect$ = ""
119.                 EXIT DO
120.             CASE IS = CHR$(13) 'Enter
121.                 'go up one dir
122.                 IF RTRIM$(FileNames$(selection)) = ".." THEN
123.                     cd$ = _CWD$
124.                     cd$ = LEFT$(cd$, _INSTRREV(cd$, "\"))
125.                     CHDIR cd$
126.                     ERASE FileNames$
127.                     GOTO loadagain
128.                 END IF
129.                 'see if directory
130.                 test$ = RTRIM$(FileNames$(selection))
131.                 IF LEFT$(test$, 1) = "[" THEN
132.                     test$ = MID$(test$, 2, LEN(test$) - 2)
133.                     CHDIR test$
134.                     ERASE FileNames$
135.                     GOTO loadagain
136.                 ELSE
137.                     IF RIGHT$(_CWD$, 1) = "\" THEN
138.                         c$ = _CWD$
139.                     ELSE
140.                         c$ = _CWD$ + "\"
141.                     END IF
142.                     FileSelect$ = c$ + RTRIM$(FileNames$(selection))
143.                     EXIT DO
144.                 END IF
145.         END SELECT
146.     LOOP
147.  
148.     _KEYCLEAR
149.  
150.     '=== Restore the whole screen
151.     _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
152.     _MEMFREE scr1: _MEMFREE scr2
153.  
154.     '=== restore original y,x
155.     LOCATE origy, origx
156.  
157.     COLOR fg&, bg&
158.  
159. END FUNCTION
160.  
161.  

[FellippeHeitor]

There's _DEFAULTCOLOR for the foreground and _BACKGROUNDCOLOR for the bg. Links to wiki:

Code: QB64: [Select]

1.  _DEFAULTCOLOR
2. _BACKGROUNDCOLOR

Save their values before you change COLOR, then restore when the procedure ends.

[Dav]

Ah... I missed that one.  Thanks, @FellippeHeitor.

EDIT: I fixed the code.  Restores color as should..

- Dav

[Pete]

Hold on Dav...

Code: QB64: [Select]

1. COLOR 14, 4
2. PRINT "SCREEN ZERO HERO!"
3. SLEEP
4. ' Now lets save this original color...
5. LOCATE 1, 1
6. a = SCREEN(1, 1, 1)
7. ' Now change color
8. COLOR 7, 0
9. LOCATE 3, 1
10. PRINT "Back to white on black..."
11. SLEEP
12. ' Now lets get back to our original color...
13.  
14. COLOR a MOD 16, a \ 16
15. LOCATE 5, 1
16. PRINT "That's how it's done, old school!"
17. END
18.  

Hey, I just got my dir stuff completed over at QBF, too. I have to smooth a few things out, but it completes the directory searching just fine.

Pete

[Dav]

Hmm,well that seems to work, @Pete.  But I'm not sure how...I must have missed old school class that day!

- Dav

[Pete]

SCREEN has a third parameter that reads the color attribute of the screen. The trick is knowing how to put that value back into the COLOR statement, which is foreground equals the number mod 16 and the background is the number integer division 16.

I'll have to give Steve's stuff a try out tomorrow, and have a peek at yours after you post it.

Pete

[FellippeHeitor]

Or just keep the _DEFAULTCOLOR and _BACKGROUNDCOLOR approach for all screen modes, 0 included. SCREEN won't work if nothing's been printed though, too.

[Pete]

Fell missed day 2 of Old School...

Code: QB64: [Select]

1. SCREEN 0, 0, 0, 0
2. ' PRINT "SCREEN ZERO HERO!"
3. SCREEN 0, 0, 1, 0
4. SLEEP
5. COLOR 14, 4
6. PRINT " ";
7. ' Now lets save this original color...
8. LOCATE 1, 1
9. a = SCREEN(1, 1, 1)
10. SCREEN 0, 0, 0, 0
11. ' Now change color
12. COLOR 7, 0
13. LOCATE 3, 1
14. PRINT "Back to white on black..."
15. SLEEP
16. ' Now lets get back to our original color...
17.  
18. COLOR a MOD 16, a \ 16
19. LOCATE 5, 1
20. PRINT "That's how it's done, old school!"
21. END
22.  

Of course you can just print a blank space to a part of the screen not in use, and read it. Flipping to a separate hidden page is a bit overkill.

Pete

[FellippeHeitor]

@Dav Also, you're saving the last COLOR parameters the user of your library had set - in this case the last COLOR parameters you had set yourself before calling the sub. No way to do that with the SCREEN trick, as you have to pick a location to read the color from.

@Pete ❤️

[Pete]

@Dav Also, you're saving the last COLOR parameters the user of your library had set - in this case the last COLOR parameters you had set yourself before calling the sub. No way to do that with the SCREEN trick, as you have to pick a location to read the color from.

@Pete ❤️

There's always a way. If there wasn't, we woudn't have QB64 in the first place. It's just a question of the level of complexity needed in the chewing gum and bailing wire operations. I've gone as far as memory mapping, in a graphics gui thing I put together. This was before _MEMBLOCK came out and made my approach obsolete.

It's always a trade off. Better keywords create easier coding, but take away from solution based thinking on a lower level. One can only hope that coders will be freed up to use those solution skills for higher purposes.

Personally, I wanted this _DEFAULTCOLOR and _BACKGROUNDCOLOR stuff in QuickBASIC. I never could understand why the last color set couldn't be retrieved from memory. In Atari, that was accomplished with PEEK/POKE. Also, speaking of AtariBASIC, we could easily change the 8x8 pixels of any character, into a custom character. That feature made it super easy to underline words. I suppose if I want to do that with QB64, I'd have to go the way of unicode characters. That's probably something I'll be looking into in the near future. Fingers crossed it will include SCREEN 0, the only screen mode anyone should ever need.

Pete

[Dav]

Even though I'll be using direntry.h in the future, I went ahead and finished off this SHELL "dir" file box routine.  By doing so, I found out something worth noting about using KILL.   I was having a problem deleting the temp file using KILL in certain directories, such as "Documents and Settings".  The program would error report the file doesn't exist and halt, even though the file did exist.  Looks like KILL can't be used on files in restricted directories, it won't see them.  So I decided to use SHELL "del" to delete the temp file instead and it won't error out.  The file won't delete that way either under that directory, but the program will continue and not stop.

Here is what I ended up with.  Shows current directory at top now, and the ".." doesn't show when at the root.  Directories are different colors.  I hope I'm doing the right call under linux to delete the temp file.  For Mac, I have no idea...

Edit:  I guess the best thing to do is always use _FILEEXISTS before using KILL, all the time.

- Dav

Code: QB64: [Select]

1. '==============
2. 'FILESELECT.BAS
3. '==============
4. 'Simple file selector box. Coded by Dav, FEB/2021
5. '(with the kind help of the QB64.org forum gurus)
6.  
7. 'Navigate through directories and select a file.
8. 'Use arrows, page up/down, home, end to scroll list.
9. 'Press enter to select highlighted file or enter the dir.
10.  
11. 'things to do: auto center box on screen, and ditch x/y input?
12. '              ...will need to adjust box size based on file/dir chr length
13. '              Add user defined colors instead...?
14.  
15.  
16. SCREEN _NEWIMAGE(600, 600, 32)
17.  
18. CLS , _RGB(32, 32, 32)
19.  
20. '=== draw stuff
21. FOR x = 1 TO 600 STEP 3
22.     FOR y = 1 TO 600 STEP 3
23.         PSET (x, y), _RGB(RND * 255, RND * 255, RND * 255)
24.     NEXT
25. NEXT
26.  
27. a$ = FileSelect$(5, 10, 15, 55, "*.*")
28.  
29. IF a$ <> "" THEN
30.     PRINT "You selected: "; a$
31. END IF
32.  
33. END
34.  
35.  
36. FUNCTION FileSelect$ (y, x, y2, x2, Filespec$)
37.  
38.     '=== save original place of cursor
39.     origy = CSRLIN: origx = POS(1)
40.  
41.     '=== save colors
42.     fg& = _DEFAULTCOLOR
43.     bg& = _BACKGROUNDCOLOR
44.  
45.     '=== Save whole screen
46.     DIM scr1 AS _MEM, scr2 AS _MEM
47.     scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
48.     _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
49.  
50.     loadagain:
51.  
52.     top = 0
53.     selection = 0
54.  
55.     IF INSTR(_OS$, "LINUX") THEN
56.         SHELL _HIDE "find . -type d > $_TeMP_FILE_LIST"
57.     ELSE
58.         SHELL _HIDE "dir /b /A:D > $_TeMP_FILE_LIST"
59.     END IF
60.  
61.     'get list...
62.     REDIM FileNames$(5000) 'space for 5000 filenames
63.  
64.     'only show the ".." if not at root dir
65.     IF LEN(_CWD$) <> 3 THEN
66.         FileNames$(0) = ".."
67.         LineCount = 1
68.     ELSE
69.         LineCount = 0
70.     END IF
71.  
72.     FF = FREEFILE
73.     OPEN "$_TeMP_FILE_LIST" FOR INPUT AS #FF
74.  
75.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
76.         LINE INPUT #FF, rl$
77.         FileNames$(LineCount) = "[" + rl$ + "]"
78.         LineCount = LineCount + 1
79.     WEND
80.     CLOSE #FF
81.  
82.     'KILL "$_TeMP_FILE_LIST"
83.     IF INSTR(_OS$, "LINUX") THEN
84.         SHELL _HIDE "rm $_TeMP_FILE_LIST"
85.         SHELL _HIDE "find . -type f " + CHR$(34) + Filespec$ + CHR$(34) + " > $_TeMP_FILE_LIST"
86.     ELSE
87.         SHELL _HIDE "del $_TeMP_FILE_LIST"
88.         SHELL _HIDE "dir /b /A:-D " + Filespec$ + " > $_TeMP_FILE_LIST"
89.     END IF
90.  
91.     FF = FREEFILE
92.     OPEN "$_TeMP_FILE_LIST" FOR INPUT AS #FF
93.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
94.         LINE INPUT #FF, rl$
95.         'skip the temp file...
96.         IF rl$ <> "$_TeMP_FILE_LIST" THEN
97.             FileNames$(LineCount) = rl$
98.             LineCount = LineCount + 1
99.         END IF
100.     WEND
101.     CLOSE #FF
102.  
103.     'KILL "$_TeMP_FILE_LIST"
104.     IF INSTR(_OS$, "LINUX") THEN
105.         SHELL _HIDE "rm $_TeMP_FILE_LIST"
106.     ELSE
107.         SHELL _HIDE "del $_TeMP_FILE_LIST"
108.     END IF
109.  
110.  
111.     'draw a box
112.     COLOR _RGB(100, 100, 255)
113.     FOR l = 0 TO y2 + 1
114.         LOCATE y + l, x: PRINT STRING$(x2 + 4, CHR$(219));
115.     NEXT
116.  
117.     'show current working dir
118.     COLOR _RGB(255, 255, 255), _RGB(100, 100, 255)
119.     CurDir$ = _CWD$
120.     'Shorten it is too long, for display purposes
121.     IF LEN(CurDir$) > x2 - x THEN
122.         CurDir$ = MID$(CurDir$, 1, x2 - x - 3) + "..."
123.     END IF
124.     LOCATE y, x + 2: PRINT CurDir$;
125.  
126.     DO
127.  
128.         FOR l = 0 TO (y2 - 1)
129.             LOCATE (y + 1) + l, (x + 2)
130.             IF l + top = selection THEN
131.                 COLOR _RGB(0, 0, 64), _RGB(255, 255, 255) 'selected line
132.             ELSE
133.  
134.                 COLOR _RGB(255, 255, 255), _RGB(0, 0, 64) 'regular
135.  
136.                 'directories get a different color...
137.                 IF MID$(FileNames$(top + l), 1, 1) = "[" THEN
138.                     COLOR _RGB(255, 255, 0), _RGB(0, 0, 64)
139.                 END IF
140.             END IF
141.             PRINT LEFT$(FileNames$(top + l) + STRING$(x2, " "), x2);
142.         NEXT
143.  
144.         k$ = INKEY$
145.         SELECT CASE k$
146.             CASE IS = CHR$(0) + CHR$(72) 'Up arrow
147.                 IF selection > 0 THEN selection = selection - 1
148.                 IF selection < top THEN top = selection
149.             CASE IS = CHR$(0) + CHR$(80) 'Down Arrow
150.                 IF selection < (LineCount - 1) THEN selection = selection + 1
151.                 IF selection > (top + (y2 - 2)) THEN top = selection - y2 + 1
152.             CASE IS = CHR$(0) + CHR$(73) 'Page up
153.                 top = top - y2
154.                 selection = selection - y2
155.                 IF top < 0 THEN top = 0
156.                 IF selection < 0 THEN selection = 0
157.             CASE IS = CHR$(0) + CHR$(81) 'Page Down
158.                 top = top + y2
159.                 selection = selection + y2
160.                 IF top >= LineCount - y2 THEN top = LineCount - y2
161.                 IF top < 0 THEN top = 0
162.                 IF selection >= LineCount THEN selection = LineCount - 1
163.             CASE IS = CHR$(0) + CHR$(71) 'Home
164.                 top = 0: selection = 0
165.             CASE IS = CHR$(0) + CHR$(79) 'End
166.                 selection = LineCount - 1
167.                 top = selection - y2 + 1
168.                 IF top < 0 THEN top = 0
169.             CASE IS = CHR$(27) ' ESC cancels
170.                 FileSelect$ = ""
171.                 EXIT DO
172.             CASE IS = CHR$(13) 'Enter
173.                 'go up one dir
174.                 IF RTRIM$(FileNames$(selection)) = ".." THEN
175.                     cd$ = _CWD$
176.                     cd$ = LEFT$(cd$, _INSTRREV(cd$, "\"))
177.                     CHDIR cd$
178.                     ERASE FileNames$
179.                     GOTO loadagain
180.                 END IF
181.                 'see if directory
182.                 test$ = RTRIM$(FileNames$(selection))
183.                 IF LEFT$(test$, 1) = "[" THEN
184.                     test$ = MID$(test$, 2, LEN(test$) - 2)
185.                     CHDIR test$
186.                     ERASE FileNames$
187.                     GOTO loadagain
188.                 ELSE
189.                     IF RIGHT$(_CWD$, 1) = "\" THEN
190.                         C$ = _CWD$
191.                     ELSE
192.                         C$ = _CWD$ + "\"
193.                     END IF
194.                     FileSelect$ = C$ + RTRIM$(FileNames$(selection))
195.                     EXIT DO
196.                 END IF
197.         END SELECT
198.     LOOP
199.  
200.     _KEYCLEAR
201.  
202.     '=== Restore the whole screen
203.     _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
204.     _MEMFREE scr1: _MEMFREE scr2
205.  
206.     '=== restore original y,x
207.     LOCATE origy, origx
208.  
209.     COLOR fg&, bg&
210.  
211. END FUNCTION
212.  

[bplus]

Steve advised me one time to use one filename stored under Windows temp folder from environment variable.

Just write over that file, no need to kill, kill, kill unless you just like saying that to Windows.

I like your one box method everything in one window, Tiny Navigator is going to be rid of that pesky need to press f to select from files listing. Simple solutions often the best!

[Dav]

That's a good thought, @bplus.  I'm not sure in Linux has a environment temp setting though, but perhaps I can do the one temp file in the programs _STARTDIR$ directory instead, that would bypass writing temp files in every directory browsed and writing any to restricted directories too.  Thanks for the idea. 

- Dav

[bplus]

That's a good thought, @bplus.  I'm not sure in Linux has a environment temp setting though, but perhaps I can do the one temp file in the programs _STARTDIR$ directory instead, that would bypass writing temp files in every directory browsed and writing any to restricted directories too.  Thanks for the idea. 

- Dav

Well I thought when you were going to go for cross platform, you'd use the direntry.h method.

I know you wrote that somewhere, were you just teas'n me?  ;-))

[Dav]

I'll be using direntry, but I wanted to get this method figured out.  One of my quirks I guess, can't let things go very easy while they're still gnawing on me.

- Dav