C++ (Cpp) get_c_string_dim Exemples

Exemple #1

Fichier : slibu.c Projet : UlricE/SiagOffice

LISP md5_update(LISP ctx,LISP str,LISP len)
{char *buffer; long dim,n;
 buffer = get_c_string_dim(str,&dim);
 if TYPEP(len,tc_c_file)
   {md5_update_from_file(get_md5_ctx(ctx), get_c_file(len,NULL),
			 (unsigned char *)buffer,dim);
    return(NIL);}

Exemple #2

Fichier : parser_pratt.c Projet : ChrisX34/stuff

LISP pratt_read_token(LISP buffer,LISP chars,LISP stream)
{LISP c,tail;
 char *tk;
 long j=0,tkdim;
 tk = get_c_string_dim(buffer,&tkdim);
 while(1)
   if NULLP(c = lgetc(stream))
     return(get_eof_val());
   else if EQ(sym_nl_whitespace,tail = aref1(chars,c))