watchcat --- LINUX "fun-tility"

[Colonel_Panic]

I think any Linux guy has seen or heard of (or runs, lol) "conky"

its a cool... "thing to watch" that people "design" cool looks for.
really neat, like a executive magnetic sculpture.

anyways, I couldnt figure out where CONKY "gets" the thermal temperatures and stuff like that.
so... I found "CPU stuff" and PROCesses ifo and stuff, so, I made a little...
in WINDOWS it would be similar to a task VIEWer I suppose.

EDIT: I plan to add stuff if i can later on. I plan on the user can enter "watch these" entries, and...

those ones? I want to HIGHLIGHT with either color or graphics, or... both?
anyways, this is just silly fun, and, I am learning to get bytes out of "weird special linux files"
which is why I am doing this. Learning where stuff is in Linux. Cant hurt I figure.

LINUX executable...
 

[johnno56]

Sorry, Colonel.

It 'almost' ran... Error message:

Line 20 (in main module)
File not found,

Running with 64 bit Linux Mint 20.2 Cinnamon

[Colonel_Panic]

oopsie.

these are my first few "deploys".
apologies.

this is funny...

Code: QB64: [Select]

1.  
2. Open "/home/sedstar/Desktop/qb64/programs/CONKY/procbase" For Input As #3
3.  
4.  

==========================
ha, was up late, forgot it has a file dependency.
let me re-deploy like I do my other one...

[Colonel_Panic]

I *think* I fixed the original post attachment download.

[johnno56]

Cool. Ran like a charm... Thank you. :)

[Colonel_Panic]

coolness...

got code ?

Code: QB64: [Select]

1. Screen _NewImage(80 * 8, 45 * 16, 32)
2. Color _RGB32(255, 255, 0)
3. dlay = 1
4. Dim fil$(1024)
5. workingDirectory$ = _CWD$ + "/"
6. ChDir "/proc/"
7. 'Input "strip="; strip
8. iterate:
9. t = 0
10. Cls
11. Open "cpuinfo" For Input As #3
12. For c = 1 To 8
13.   Line Input #3, x$
14.   cp$ = Right$(x$, Len(x$) - InStr(x$, ":"))
15.   Print cp$
16.   'If c = 8 Then Print Using "###### Mhz"; Int(Val(cp$))
17. Next c: Print
18. Close #3
19. '_Delay dlay ': Cls
20. S$ = "dir -p --format=single-column > " + workingDirectory$ + "procbase"
21. t7 = Shell(S$)
22. Open workingDirectory$ + "procbase" For Input As #3
23. again1:
24. If Not EOF(3) Then
25.   Line Input #3, x$
26.   If Val(x$) > 0 Then t = t + 1: fil$(t) = x$
27.   GoTo again1:
28. Else
29.   Close #3
30. End If
31. 'Print t
32. _Delay dlay: Cls
33. Print Using "###### Mhz"; Int(Val(cp$))
34. Print "       Name:           Umask:  State:          Tgid:   Ngid:   Pid:    PPid:"
35. Print "       -----           ------  ------          -----   -----   ----    -----"
36. For v = 1 To t
37.   'Print fil$(v);
38.   'On Error GoTo around_this:
39.   If _FileExists(fil$(v) + "status") Then
40.     Open fil$(v) + "status" For Input As #3
41.     For w = 1 To 7
42.       Line Input #3, d$
43.       d$ = Right$(d$, Len(d$) - InStr(d$, ":"))
44.       If w = 1 Then
45.         If Len(d$) < 15 Then d$ = d$ + String$(15 - Len(d$), " ")
46.         If Len(d$) > 15 Then d$ = Left$(d$, 15)
47.         Print d$; " ";
48.       End If
49.       If w > 1 Then Print _Trim$(d$); " ";
50.     Next w: Print
51.   End If
52.   '  around_this:
53.   Close #3
54.   If v / 39 = Int(v / 39) Then
55.     _Delay dlay
56.     Cls
57.     Print Using "###### Mhz"; Int(Val(cp$))
58.     Print "       Name:           Umask:  State:          Tgid:   Ngid:   Pid:    PPid:"
59.     Print "       -----           ------  ------          -----   -----   ----    -----"
60.   End If
61. Next v
62.  
63. _Delay dlay
64. If InKey$ = "" Then GoTo iterate:
65.  

[Colonel_Panic]

PROGRAM NOTES:
================

--- this little program makes a FILE, named 'procbase'
--- it will always make this tiny text database right in the same folder
--- it makes, and re-makes, the same little file constantly

--- this is not, repeat: *NOT* how this is supposed to be done!
--- next time i go over this? I will change the format, to where I will SHELL out a CAT/dd with >
-------- this will essentially copy and reformat this file, relocating it at the same time
-------- whats the big deal? I am not supposed to be OPENing this file and LINE INPUTing out of it like this
-------- if you follow this example, you will run into spots where you get weird EOF and other errors
-------- once i CAT and dd the relocated copy up front? *then* I will have a file I can "prance around in" w/o weird errors


what you are seeing? is a BASIC programmer (me) slowly fumbling around, learning to program in a LINUX environment
I am trying to get used to "playing with" special files. Just dont get the idea you *should* do this, this way...
you should (probably) CAT/dd > the file, then play.