c'e' un modo "semplice" di ottenere la stessa cosa
Con riferimento alle console virtuali, atteso che il file di sistema "
/proc/consoles" contiene tutte i file-device delle console virtuali correntemente utilizzate, quindi attive, possiamo dunque in modo agevole utilizzare questo semplicissimo codice:
Public Sub Main()
Dim s As String
Dim ss As String[]
s = File.Load("/proc/consoles")
ss = Split(s, "\n")
For Each s In ss
Print s
Next
End
I simboli alfabetici presenti in ciascuna riga mostrata hanno il significato (si faccia particolare attenzione alla lettera "E" !) descritto nel file
proc.txt, che qui riporto in sintesi:
2.0 /proc/consoles
------------------
Shows registered system console lines.
To see which character device lines are currently used for the system console
/dev/console, you may simply look into the file /proc/consoles:
> cat /proc/consoles
tty0 -WU (ECp) 4:7
The columns are:
| device | | name of the device | | operations | | R = can do read operations | | | | W = can do write operations | | | | U = can do unblank | | flags | | E = it is enabled | | | | C = it is preferred console | | | | B = it is primary boot console | | | | p = it is used for printk buffer | | | | b = it is not a TTY but a Braille device | | | | a = it is safe to use when cpu is offline | | major:minor | | major and minor number of the device separated by a colon |
|
