<RefEntry id="include-characters"> <!-- This file is generated automatically from the DSSSL source. --> <!-- Do not edit this file! --> <?html-filename include-characters.html> <RefMeta> <RefEntryTitle>include-characters</RefEntryTitle> <RefMiscInfo Role="file">dblib.dsl</RefMiscInfo> </RefMeta> <RefNameDiv> <RefName>include-characters</RefName> <RefPurpose>Return the character content of fileref</RefPurpose> </RefNameDiv> <RefSynopsisDiv><Title>Synopsis</Title> <Synopsis> (include-characters fileref) </Synopsis> </RefSynopsisDiv> <RefSect1><Title>Description</Title> <para> Opens and loads fileref with (read-entity); returns the content of fileref as characters. Trims the last trailing newline off the file so that "the right thing" happens in asis environments.</para> </RefSect1> <RefSect1><Title>Author</Title> <para> Norman Walsh, <ndw@nwalsh.com> </para> </RefSect1> <RefSect1><Title>Source Code</Title> <ProgramListing> (define (include-characters fileref) ;; Return the character content of fileref (let* ((newline #\U-000D) (file-content (read-entity fileref)) (file-length (string-length file-content)) ;; If the last char is a newline, drop it, otherwise print it... (content (if (equal? newline (string-ref file-content (- file-length 1))) (substring file-content 0 (- file-length 1)) file-content))) content)) </ProgramListing> </RefSect1> </RefEntry>