Paolo Guccini
"Impossibile" non è mai la risposta giusta
Cosa fa:
Questo interprete di linguaggio permette di eseguire un programma scritto in Basic (con un set minimo di istruzioni). Includendolo in altre applicazioni, permette di sviluppare software con le fuzionalità analoghe a quelli che implementano gli script, macro o VBA Visual Basic for Application.
Parti di questo progetto:
Il materiale accessibile da queste pagine fanno parte di una serie di progetti per i quali non è previsto ulteriore sviluppo, ma mantengono la propria validità per studio o base per implementarle in altri progetti. Il loro impiego in altri software e' libero. La loro riproduzione su siti e/o stampa deve avvenire nel rispetto della normativa del diritto d'autore. Per qualunque domanda, mandare una email utilizzando la sezione Contatti di questo sito.
Modulo:
Listato/Codice sorgente:
File header/include: /* ------------------------------------------------------------------------ * * basstr.h * */ #if defined ( __cplusplus ) #define EXTERN_C extern "C" #else #define EXTERN_C #endif typedef unsigned int u_int ; EXTERN_C char * strcpydelim( char * dest , char *sorg ) ; //EXTERN_C char * strlwr( char * ) ; //EXTERN_C char * strupr( char * ) ; //EXTERN_C char * strcatcheck( char *dest , char * sorg , int maxlen ) ; #define strcatcheck strncat EXTERN_C char * tab2spc( char * dest , char * sorg , int tab ) ; EXTERN_C char * tab2spcchk( char * dest , int maxlen , char * sorg , int tab ) ; EXTERN_C int lentab2spc( char * sorg , int tab ) ; EXTERN_C int strhas( char * , int ) ; EXTERN_C char * strzncpy( char * dest , char * sorg , int nummaxchar ) ; EXTERN_C char * strrepli( char * dest , char * sorg , int nvolte ) ; EXTERN_C char * strrjust( char * , int ) ; EXTERN_C char * strcapital( char * ) ; EXTERN_C char * strrevuprlwr( char * s ) ; EXTERN_C char * strnolastnewline( char * ) ; // elimina char 0x13 0x10 CR LF EXTERN_C char * strnolastnl( char * ) ; // elimina il char 0x10 NL EXTERN_C char * accentare( char * dest , char * riga ) ; EXTERN_C char * noacapoinutile( char * riga ) ; EXTERN_C char * strnoaccent( char * dest , char * riga ) ; EXTERN_C char * strsubst( char * , char * , char * , char * ) ; EXTERN_C int substrcmp( char *s1 , int pos1 , int len1 , char *s2 , int pos2, int len2 ) ; EXTERN_C char * strskipisspace( char * str ) ; EXTERN_C char * strrtrim( char * ) ; EXTERN_C char * strltrim( char * ) ; EXTERN_C char * strcpymid( char * , char * , int , int ) ; EXTERN_C char * strcpyright( char * , char * , int l ) ; EXTERN_C char * strcpyleft( char * , char * , int l ) ; EXTERN_C char * strinsmid( char * str , char * adding , int pos ) ; /* TABELLA DI LOOKUP */ EXTERN_C int mtxlookup( char * val , char * mtx , int mtxnum , int mtxlen ) ; EXTERN_C int mtxextractitem( char * item , char * riga , int lung_item ) ; EXTERN_C int mtxextractvalue( char * value , char * riga , int numvalue , int lenvalue ) ; EXTERN_C int structlookup( char * val , char * structmtx , u_int mtxlen , u_int structnum , u_int structlen ) ; // PZLKUP.C EXTERN_C int pzlookup( char * val ,char * pmtx [] , u_int ptot ) ; EXTERN_C int takestrsxsepdx( char *sx , int lensx , char *dx , int lendx , char *strsorg , char * separatori , char *delimitatori , int delspace ) ; /* PADSTR.C */ EXTERN_C char * padstrleft( char *dest , char * sorg , int lung , char *car ) ; EXTERN_C char * padstrleftnegdx( char *dest , char * sorg , int lung , char *car ) ; EXTERN_C char * padstrleftnegsx( char *dest , char * sorg , int lung , char *car ) ; EXTERN_C char * funtrim( char *funzione ) ; //int readdelimited( char * rec , char * dest , char * campi [] , int totcampi ) ; EXTERN_C int submemcmp( char * , int , int , char * , int , int ) ; EXTERN_C int memrtrim( char *sorg , int lungdati ) ; EXTERN_C int memrjust( char *sorg , int lungdati , int margine ) ; EXTERN_C int memrepli( char *dest , char *sorg , int lungdati , int n ) ; EXTERN_C void hexdumpmake( char * outh , char * outc , char * in , int len ) ; EXTERN_C void recdump( long int , /* numero record */ char * , /* puntatore area memoria da dumpare */ int ) ; /* numero caratteri da dumpare */ //EXTERN_C char * picture( char * dest , char numero[] , char picture[] ) ; //EXTERN_C char * picture( char * dest , char * , char * ) ; char * picture( char * dest , char * , char * ) ; EXTERN_C void wildcards_mask( char * dest , char * mask , char * nome ) ; EXTERN_C void wildcards_maskdir( char * nomefileout , char * maskout , char * ff_nome ) ; // MATEMATICHE ------------------------------ EXTERN_C unsigned long pdecim( long a , long b , int n ) ; /* ------------------------------------------------------------------------- */ EXTERN_C int strisalnum( char * ) ; EXTERN_C int strisalpha( char * ) ; EXTERN_C int strisdigit( char * ) ; EXTERN_C int strisupper( char * ) ; EXTERN_C int striscntrl( char * ) ; EXTERN_C int strislower( char * ) ; EXTERN_C int strisascii( char * ) ; EXTERN_C int strisgraph( char * ) ; EXTERN_C int strisprint( char * ) ; EXTERN_C int strispunct( char * ) ; EXTERN_C int strisspace( char * ) ; EXTERN_C int strisxdigit( char * ) ; EXTERN_C int strisnumber( char * ) ; // ------------------------------------------------------------------------- */ void sharewaremsg( void ) ; /* ------------------------------------------------------------------------- */ /* eof */