Ignore:
Timestamp:
08/30/20 19:06:47 (11 months ago)
Author:
Kon Lovett
Message:

add -strict-types, type is interface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/string-utils/trunk/to-hex.scm

    r38445 r38937  
    6161(import (chicken foreign))
    6262
    63 ;;;
     63;;
     64
     65(: str_to_hex (string string fixnum fixnum -> string))
     66(: blob_to_hex (string blob fixnum fixnum -> string))
     67(: u8vec_to_hex (string u8vector fixnum fixnum -> string))
     68(: s8vec_to_hex (string s8vector fixnum fixnum -> string))
     69(: mem_to_hex (string pointer fixnum fixnum -> string))
     70(: hex_to_str (string string fixnum fixnum -> string))
     71(: hex_to_blob (blob string fixnum fixnum -> blob))
    6472
    6573;;
     
    8997;;
    9098
    91 (: str_to_hex (string string fixnum fixnum -> string))
    92 ;
    9399(define (str_to_hex out in off len)
    94100  (C_str_to_hex out in off len)
    95101  out )
    96102
    97 (: blob_to_hex (string blob fixnum fixnum -> string))
    98 ;
    99103(define (blob_to_hex out in off len)
    100104  (C_blob_to_hex out in off len)
    101105  out )
    102106
    103 (: u8vec_to_hex (string u8vector fixnum fixnum -> string))
    104 ;
    105107(define (u8vec_to_hex out in off len)
    106108  (C_u8vec_to_hex out in off len)
    107109  out )
    108110
    109 (: s8vec_to_hex (string s8vector fixnum fixnum -> string))
    110 ;
    111111(define (s8vec_to_hex out in off len)
    112112  (C_s8vec_to_hex out in off len)
    113113  out )
    114114
    115 (: mem_to_hex (string pointer fixnum fixnum -> string))
    116 ;
    117115(define (mem_to_hex out in off len)
    118116  (C_mem_to_hex out in off len)
     
    121119;;
    122120
    123 (: hex_to_str (string string fixnum fixnum -> string))
    124 ;
    125121(define (hex_to_str out in off len)
    126122  (C_hex_to_str out in off len)
    127123  out )
    128124
    129 (: hex_to_blob (blob string fixnum fixnum -> blob))
    130 ;
    131125(define (hex_to_blob out in off len)
    132126  (C_hex_to_str out in off len)
Note: See TracChangeset for help on using the changeset viewer.