Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Colonel_Panic on November 07, 2021, 02:07:18 am

Title: watchcat --- LINUX "fun-tility"
Post by: Colonel_Panic on November 07, 2021, 02:07:18 am
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...
 
Title: Re: watchcat --- LINUX "fun-tility"
Post by: johnno56 on November 07, 2021, 04:56:28 am
Sorry, Colonel.

It 'almost' ran... Error message:

Line 20 (in main module)
File not found,

Running with 64 bit Linux Mint 20.2 Cinnamon
Title: Re: watchcat --- LINUX "fun-tility"
Post by: Colonel_Panic on November 07, 2021, 04:07:34 pm
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...
Title: Re: watchcat --- LINUX "fun-tility"
Post by: Colonel_Panic on November 07, 2021, 04:28:24 pm
I *think* I fixed the original post attachment download.
Title: Re: watchcat --- LINUX "fun-tility"
Post by: johnno56 on November 07, 2021, 04:41:48 pm
Cool. Ran like a charm... Thank you. :)
Title: Re: watchcat --- LINUX "fun-tility"
Post by: Colonel_Panic on November 07, 2021, 05:07:15 pm
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
  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$))
  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:
  25.   Line Input #3, x$
  26.   If Val(x$) > 0 Then t = t + 1: fil$(t) = x$
  27.   GoTo again1:
  29.   Close #3
  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
  62.  
  63. _Delay dlay
  64. If InKey$ = "" Then GoTo iterate:
  65.  
Title: Re: watchcat --- LINUX "fun-tility"
Post by: Colonel_Panic on November 07, 2021, 05:31:58 pm
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.
Text Only | Text with Attachments