Changeset 36059 in project


Ignore:
Timestamp:
08/06/18 22:36:34 (16 months ago)
Author:
Kon Lovett
Message:

utf8 string interp

Location:
release/5/string-utils/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/string-utils/trunk/string-utils.egg

    r35957 r36059  
    33
    44((synopsis "String Utilities")
    5  (version "2.0.5")
     5 (version "2.1.0")
    66 (category data)
    77 (author "[[kon lovett]]")
     
    1212  (srfi-69 "0.1")
    1313        (miscmacros "1.0")
     14        (utf8 "3.5.0")
    1415        (check-errors "2.0.0"))
    1516 (test-dependencies test)
     
    4243    (component-dependencies string-interpolation-syntax)
    4344    (csc-options "-O3" "-d1" "-no-procedure-checks") )
    44   #; ;UTF8
    4545  (extension utf8-string-interpolation
    4646    #;(inline-file)
  • release/5/string-utils/trunk/tests/string-utils-test.scm

    r35834 r36059  
    7979)
    8080
    81 #|
    8281(import (prefix utf8-string-interpolation utf8::))
     82
    8383(test-group "String Interpolation (UTF-8)"
    8484        (test "听诎䞊海的 3 䞜西埈莵" (utf8::string-interpolate "听诎䞊海的 #(+ 1 2) 䞜西埈莵"))
     
    8787        (test "听诎䞊海的 3 䞜西埈莵" (utf8::string-interpolate "听诎䞊海的 $(+ 1 2) 䞜西埈莵" eval-tag: #\$ eval-env: (scheme-report-environment 5)))
    8888)
    89 |#
    9089
    9190(import string-interpolation-syntax (chicken port))
  • release/5/string-utils/trunk/utf8-string-interpolation.scm

    r35791 r36059  
    88  string-interpolate)
    99
    10 (import
    11   (except scheme read-char #;peek-char #;read)
    12   (except chicken reverse-list->string))
     10(import (except scheme read-char #;peek-char #;read)
     11  (chicken base)
     12  (chicken type)
     13  (only (chicken string) ->string)
     14  (only utf8-srfi-13 string-concatenate-reverse #;reverse-list->string)
     15  (only utf8 read-char list->string #;peek-char #;read)
     16  (only (srfi 1) reverse!)
     17  (only type-checks check-string)
     18  string-interpolation-syntax)
    1319
    1420;refs interaction-environment parentheses-synonyms
    15 
    16 (import
    17   (only (chicken string) ->string)
    18   (only utf8-srfi-13 string-concatenate-reverse #;reverse-list->string)
    19   (only utf8 #;peek-char read-char #;read list->string)
    20   (only (srfi 1) reverse!)
    21   (only type-checks check-string))
    2221
    2322;;;
Note: See TracChangeset for help on using the changeset viewer.