[Scsh-checkins] CVS: scsh-0.6/scsh network.scm,1.12,1.13 scsh-interfaces.scm,1.9,1.10

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv29716

Modified Files:
        network.scm scsh-interfaces.scm 
Log Message:
added internet-address->dotted-string

Index: network.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/network.scm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** network.scm 2000/07/27 13:38:35     1.12
--- network.scm 2000/09/24 20:51:04     1.13
***************
*** 147,150 ****
--- 147,159 ----
         (byte-vector-ref address 0)))
  
+ ;;; This proc and its inverse should be in a general IP module.
+ (define (internet-host-address->dotted-string bv)
+   (let* ((byte0 (byte-vector-ref bv 0))
+        (byte1 (byte-vector-ref bv 1))
+        (byte2 (byte-vector-ref bv 2))
+        (byte3 (byte-vector-ref bv 3)))
+     (string-append (number->string byte3) "." (number->string byte2) "."
+                  (number->string byte1) "." (number->string byte0))))
+ 
  (define (internet-host-address-to-number address)
    (byte-vector->integer address))

Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-interfaces.scm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** scsh-interfaces.scm 2000/07/27 13:38:35     1.9
--- scsh-interfaces.scm 2000/09/24 20:51:04     1.10
***************
*** 670,673 ****
--- 670,674 ----
          internet-host-address-to-number
          internet-host-address-to-bytes
+         internet-host-address->dotted-string
          
          host-info