LiveCode Forums.

NoN' wrote:Hello David,

On Mac you can use with advantage the BSD commands.

Under Revo, these commands are accessible via the function : shell ()
Here is a script which allows to get back the list of the active ports such as it appears in " informations system ".

The ideal being to launch the script at the opening of the stack.

Code: Select all

on openstack
  set cursor to busy
  put "put return & shell (" & quote & "system_profiler SPNetworkDataType" & quote & ") after resum" into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPIDEDataType" & quote & ") after resum" into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPSCSIDataType" & quote & ") after resum" into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPUSBDataType" & quote & ") after resum" & quote into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPFireWireDataType" & quote & ") after resum" into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPAirPortDataType" & quote & ") after resum" into lacomm
  do lacomm
  put "put return & shell (" & quote & "system_profiler SPModemDataType" & quote & ") after resum" into lacomm
  do lacomm
  sort resum
  repeat with i = the number of lines in resum down to 1
    if char 1 of line i of resum is not " " then next repeat
    if char 1 to 5 of line i of resum = "     " then
      exit repeat
    else
      if "Hardware" is in line i of resum then
        next repeat
      end if
      if "modem" is in line i of resum then
        put word 1 of line i of resum after portList
        put return after last char of portList
        next repeat
      end if
      delete char 1 to 4 of line i of resum
      put line i of resum after portList
      put return into last char of portList
    end if
  end repeat
  delete last char of portList
  put "Choose a port" & return & "-" & return & portList into btn "ThePorts"
end openstack

[/size]

The last part of this code just extract the type of the existing ports and bring it to a button with pull down menu. But a lot of other informations are accessible via the "system_profiler" command. By exemple, with the "SPUSBDataType" argument :

USB Bus:

Vendor Name: Apple Computer, Inc.
Product ID: 32773 ($8005)
Speed: Up to 12 Mb/sec
Bus Power (mA): 500

U3 Smart Drive:

Capacity: 974.5 MB
Drive Type: CD-ROM
Removable Media: Yes
Detachable Drive: Yes
BSD Name: disk3
OS9 Drivers: No
Product ID: 7760 ($1e50)
Speed: Up to 12 Mb/sec
Vendor Name: EMTEC
Bus Power (mA): 500
Serial Number: 070007771FB00018

With the hope it will help you.

regards,

renaud

 put "put shell (" & quote & "system_profiler SPNetworkDataType" & quote & ") into resum"  into lacomm
   do lacomm

  if line i of resum contains "BSD Device Name" then
         put last item of line i of resum & return after ron2
      end if

NoN' wrote:Hi Vasco,

After seven years of reflection, I can tell you that the solution was already in my precedent post...

Try that :

Code: Select all

on mouseUp

   set cursor to busy
   
   put "put shell (" & quote & "system_profiler SPUSBDataType" & quote & ") into resum"  into lacomm
   do lacomm
   
  set itemdelimiter to ":"
   
   repeat with i = 1 to the number of lines in resum
      if line i of resum contains "BSD name" then
         put last item of line i of resum & return after ron2
      end if
   end repeat
   delete last char of ron2
   
  put "Choose a port" & return & "-" & return & ron2 into btn "ThePorts"
end mouseup

Hope it will help

regards,

renaud

NoN' wrote:Don't be sorry and bravo, it's a beautiful transformation for a "non programmer"!

Have a good day.

renaud

set cursor to busy
put shell ("ls /dev/cu.*") into resum
put "Choose a port" & return & "-" & return & resum into btn "ThePorts"

Klaus wrote:Hi friends,

why not just:

Code: Select all

...
## put "put shell (" & quote & "system_profiler SPUSBDataType" & quote & ") into resum"  into lacomm
## do lacomm
put shell ("system_profiler SPUSBDataType") into resum
...

?


Best

Klaus