/[cmucl]/src/code/extfmts.lisp
ViewVC logotype

Diff of /src/code/extfmts.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by rtoy, Fri Mar 19 15:18:58 2010 UTC revision 1.24 by rtoy, Mon Apr 19 02:18:03 2010 UTC
# Line 683  Line 683 
683    
684  (defun string-to-octets (string &key (start 0) end (external-format :default)  (defun string-to-octets (string &key (start 0) end (external-format :default)
685                                       (buffer nil bufferp))                                       (buffer nil bufferp))
686    _N"Convert String to octets using the specified External-format.  The    "Convert String to octets using the specified External-format.  The
687     string is bounded by Start (defaulting to 0) and End (defaulting to     string is bounded by Start (defaulting to 0) and End (defaulting to
688     the end of the string.  If Buffer is given, the octets are stored     the end of the string.  If Buffer is given, the octets are stored
689     there.  If not, a new buffer is created."     there.  If not, a new buffer is created."
# Line 723  Line 723 
723                                       (string nil stringp)                                       (string nil stringp)
724                                       (s-start 0) (s-end nil s-end-p)                                       (s-start 0) (s-end nil s-end-p)
725                                       (state nil))                                       (state nil))
726    _N"Octets-to-string converts an array of octets in Octets to a string    "Octets-to-string converts an array of octets in Octets to a string
727    according to the specified External-format.  The array of octets is    according to the specified External-format.  The array of octets is
728    bounded by Start (defaulting ot 0) and End (defaulting to the end of    bounded by Start (defaulting ot 0) and End (defaulting to the end of
729    the array.  If String is not given, a new string is created.  If    the array.  If String is not given, a new string is created.  If
# Line 773  Line 773 
773                               (code-char b)))))))                               (code-char b)))))))
774    
775  (defun string-encode (string external-format &optional (start 0) end)  (defun string-encode (string external-format &optional (start 0) end)
776    _N"Encode the given String using External-Format and return a new    "Encode the given String using External-Format and return a new
777    string.  The characters of the new string are the octets of the    string.  The characters of the new string are the octets of the
778    encoded result, with each octet converted to a character via    encoded result, with each octet converted to a character via
779    code-char.  This is the inverse to String-Decode"    code-char.  This is the inverse to String-Decode"
# Line 806  Line 806 
806          finally (return (values result (1+ pos))))))          finally (return (values result (1+ pos))))))
807    
808  (defun string-decode (string external-format &optional (start 0) end)  (defun string-decode (string external-format &optional (start 0) end)
809    _N"Decode String using the given External-Format and return the new    "Decode String using the given External-Format and return the new
810    string.  The input string is treated as if it were an array of    string.  The input string is treated as if it were an array of
811    octets, where the char-code of each character is the octet.  This is    octets, where the char-code of each character is the octet.  This is
812    the inverse of String-Encode."    the inverse of String-Encode."
# Line 820  Line 820 
820    
821    
822  (defun set-system-external-format (terminal &optional filenames)  (defun set-system-external-format (terminal &optional filenames)
823    _N"Change the external format of the standard streams to Terminal.    "Change the external format of the standard streams to Terminal.
824    The standard streams are sys::*stdin*, sys::*stdout*, and    The standard streams are sys::*stdin*, sys::*stdout*, and
825    sys::*stderr*, which are normally the input and/or output streams    sys::*stderr*, which are normally the input and/or output streams
826    for *standard-input* and *standard-output*.  Also sets sys::*tty*    for *standard-input* and *standard-output*.  Also sets sys::*tty*

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5