home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / getline < prev    next >
Encoding:
Text File  |  2020-01-01  |  3.1 KB  |  74 lines
  1. #!/usr/local/bin/kermit +
  2. #
  3. # g e t l i n e  --  Get first free dialout line.
  4. #
  5. # Given a string of the form:
  6. #
  7. #  device,modem,speed:device,modem,speed:device,modem,speed...
  8. # 
  9. # ...this script cycles through the devices until it finds a free one
  10. # that it can assign.  Upon failure it exits with a failure code.
  11. # 
  12. # If it succeeds it returns with the associated modem type and speed also
  13. # set: if called as a "kerbang" script, it leaves you at the C-Kermit>
  14. # prompt; if called from another script, returns to the calling script.
  15. #
  16. # The string can be provided as a command-line argument or (if no
  17. # command-line argument is given) the value of the DIALOUTS environment
  18. # variable (DIALOUTS symbol or logical name in VMS).
  19. #
  20. # Illustrates using \fsplit() to break up delimited strings into arrays.
  21. #
  22. # Author: F. da Cruz, Columbia University, April 1999
  23. # Updated Oct 1999 for QNX port locking.
  24. #
  25. local \&a[] \&b[] \%i myname          ; Local variables
  26. local list defmodem defspeed usage    ; More local variables
  27.  
  28. .myname := \fbasename(\%0)            ; Name of this script
  29. .defmodem = usr                       ; Default modem type (*)
  30. .defspeed = 57600                     ; Default speed (*)
  31.  
  32. ; (*) Change as needed
  33.  
  34. define USAGE {
  35.     echo {\m(myname): \%1}
  36.     echo Please supply a device list as (the only) command-line argument or
  37.     echo in the DIALOUTS environment variable.  A device list looks like:
  38.     echo {"device,modem,speed:device,modem,speed:device,modem,speed..."}
  39.     exit 1
  40. }
  41. if > \v(argc) 2 {                     ; Check for bad command line
  42.     usage {Too many arguments.}
  43. }
  44. if def \%1 .list := \%1               ; Get command-line argument 
  45. if not def list .list := \$(DIALOUTS) ; If none get DIALOUTS variable
  46. if not def list {                     ; If none give message and fail
  47.     usage {No device list given.}
  48. }
  49. set quiet on                          ; Suppress error messages
  50. set qnx-port-lock on                  ; Significant in QNX - ignored elsewhere
  51. for \%i 1 \fsplit(\m(list),&a,:) 1 {  ; Loop for each triplet
  52.     dcl \&b[3]                        ; Re-create this array each time
  53.     .\%m := \fsplit(\&a[\%i],&b,{,})  ; Split this triplet
  54.     if not def \&b[1] continue        ; Watch out for empty ones
  55.     echo Trying \&b[1]...
  56.     if not def \&b[2] {               ; If no modem type included
  57.         .\&b[2] = \m(defmodem)        ; supply default
  58.     }
  59.     if not def \&b[3] {               ; Ditto for speed
  60.         .\&b[3] = \m(defspeed)
  61.     }
  62.     set modem type \&b[2]             ; Try to set modem type
  63.     if fail continue                  ; Failed - go to next triplet
  64.     set line \&b[1]                   ; Try to get the line
  65.     if fail continue                  ; Failed - go to next triplet
  66.     set speed \&b[3]                  ; Set the speed but ignore errors
  67.     if !\v(local) continue            ; Make sure we're in local mode
  68.     echo {  Line:  \v(line)}          ; Report what we got...
  69.     echo {  Modem: \v(modem)}
  70.     echo {  Speed: \v(speed)}
  71.     end 0                             ; And return successfully
  72. }
  73. exit 1 No devices free                ; Didn't get one - fail
  74.