mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 04:09:10 +03:00
26 lines
917 B
C
26 lines
917 B
C
#pragma once
|
|
|
|
#include "cBackend.h"
|
|
#include "casts.h"
|
|
|
|
/* stringLength : String -> Int64!? WTH!. do you have over 4Gbytes text on
|
|
* memory!? */
|
|
#define stringLength(x) (idris2_mkInt64(strlen(((Value_String *)(x))->str)))
|
|
#define head(x) (idris2_cast_String_to_Char(x))
|
|
Value *tail(Value *str);
|
|
Value *reverse(Value *str);
|
|
Value *strIndex(Value *str, Value *i);
|
|
Value *strCons(Value *c, Value *str);
|
|
Value *strAppend(Value *a, Value *b);
|
|
Value *strSubstr(Value *s, Value *start, Value *len);
|
|
char *fastPack(Value *charList);
|
|
Value *fastUnpack(char *str);
|
|
char *fastConcat(Value *strList);
|
|
|
|
Value *stringIteratorNew(char *str);
|
|
Value *onCollectStringIterator(Value_Pointer *ptr, void *null);
|
|
Value *onCollectStringIterator_arglist(Value_Arglist *arglist);
|
|
Value *stringIteratorToString(void *a, char *str, Value *it_p,
|
|
Value_Closure *f);
|
|
Value *stringIteratorNext(char *s, Value *it_p);
|