14 #define CHECK_DEST if (!dest) _errorr("destination is not allocated")
22 return ( ( C ==
' ' || C ==
'\t' || C ==
'\n' || C ==
'\0' || C ==
'\r' || C == EOF) ?
false :
true);
28 return ( ( C ==
'\n' || C ==
'\0' || C ==
'\r' || C == EOF) ?
false :
true);
34 return ( ( C ==
' ' || C ==
'\t' ) ?
true :
false);
39 return ( ( C < 48 || C > 57 ) ?
false :
true);
55 if (src==NULL)
return NULL;
56 long len = strlen (src) + 1;
57 char *dest =
new char[len];
58 return (
char *) memcpy (dest, src, len);
60 char*
strdupl (
const char *src1,
const char *src2)
62 char *aux =
new char[strlen(src1) + strlen(src2) + 1];
63 sprintf (aux,
"%s%s", src1, src2);
66 char*
strdupl (
const char *src1,
const char *src2,
const char *src3)
68 char *aux =
new char[strlen(src1) + strlen(src2) + strlen(src3) + 1];
69 sprintf (aux,
"%s%s%s", src1, src2, src3);
75 long len = strlen (src) + 2;
76 char *dest =
new char[len];
77 memcpy (dest, src, len);
99 for (
int i=1; i<argc; i++)
108 fprintf (stream,
"\n Command line:");
109 fprintf (stream,
"\n %s ",argv[0]);
110 for (
int i=1;i<argc;i++)
111 fprintf (stream,
" %c",argv[i][0]);
113 fprintf (stream,
"\n options: ");
114 for (
int i=1;i<argc;i++)
115 fprintf (stream,
" %s",argv[i]);
117 fprintf (stream,
"\n\n");
135 if (c == EOF) { ungetc(c, stream);
return false; }
138 else { ungetc(c, stream);
return true; }
148 while ((c = getc(stream)) ==
'#')
160 if (c ==
'\n')
continue;
162 while ( getc(stream) !=
'\n') ;
173 if (c ==
'\n')
break;
174 if (c == EOF ) { ungetc(c, stream);
return false; }
203 while ( (c = fgetc (stream)) != C )
205 if (c == EOF ) { ungetc(c, stream);
return false; }
206 else c = fgetc(stream);
214 bool FP_scan_array (FILE *stream,
int n,
int *dest) {
while (n--)
if (fscanf (stream,
"%d", dest++) == 0)
return false;
return true; }
215 bool FP_scan_array (FILE *stream,
int n,
long *dest) {
while (n--)
if (fscanf (stream,
"%ld", dest++) == 0)
return false;
return true; }
216 bool FP_scan_array (FILE *stream,
int n,
double *dest) {
while (n--)
if (fscanf (stream,
"%lf", dest++) == 0)
return false;
return true; }
226 while ((c = getc(stream)) != EOF)
243 long lines = 0, fp = 0;
245 if (rwd) fp = ftell(stream);
247 while ((c = getc(stream)) != EOF)
251 if (rwd) fseek(stream, fp, SEEK_SET);
267 while ((c = getc(stream)) != EOF)
280 while ((c = getc(stream)) != EOF)
313 while ((c = getc(stream)) ==
'#' || c ==
'\n')
327 if (dest[n] == EOF) {
332 if (dest[n] ==
'\r') getc(stream);
342 if (dest)
_errorr(
"allocated");
347 dest =
new char[n+1];
350 while (i--) dest[i] = aux[i];
381 if (cs)
while (expctd[n] !=
'\0') { c = getc(src);
if ( c != expctd[n] ) { ungetc (c, src);
break; } n++; }
382 else while (expctd[n] !=
'\0') { c = getc(src);
if (tolower(c) != tolower(expctd[n])) { ungetc (c, src);
break; } n++; }
384 return (expctd[n] ==
'\0');
411 if (c ==
'\r') c = getc(src);
412 if (c == EOF) ungetc(c, src);
413 if (c ==
'\n')
return true;
433 void errorr_expected (
const char* file,
int line,
const char *msg,
const char *expctd,
const char *src) {
errorr (file, line,
"%s, expected \"%s\" != \"%s\"", msg, expctd, src); }
434 void errorr_expected (
const char* file,
int line,
const char *msg,
int expctd,
const char *src) {
errorr (file, line,
"%s, expected \"%d\" != \"%s\"", msg, expctd, src); }
435 void errorr_expected (
const char* file,
int line,
const char *msg,
long expctd,
const char *src) {
errorr (file, line,
"%s, expected \"%ld\" != \"%s\"", msg, expctd, src); }
441 if (*src !=
'#') src++;
443 while (*(--src) ==
' ') ;
460 while (src[-1]==
' ' || src[-1]==
'\t') src--;
467 while (src[0]==
' ' || src[0]==
'\t') src++;
477 if (src[0]==
'\n' || src[0]==
'\0')
return false;
490 if (src[0]==
'\n' || src[0]==
'\0')
return false;
493 if (src[0]==
'+' || src[0]==
'-') src++;
511 while (n--)
if (src[n] != w[n])
_errorr (
"unscan error");
521 if (src[0]==
'\n' || src[0]==
'\0' || src[0]==
'\r')
524 dest = src[0]; src++;
536 strncpy (dest, src, n);
561 if (dest)
_errorr(
"allocated");
567 dest =
new char[n+1];
570 while (i--) dest[i] = src[i];
584 if (cs) {
while (expctd[++n] !=
'\0')
if ( src[n] != expctd[n] )
return false; }
585 else {
while (expctd[++n] !=
'\0')
if (tolower(src[n]) != tolower(expctd[n]))
return false; }
590 void SP_scan_expected_word_FL (
const char* file,
int line,
const char *&src,
const char *expctd,
const char *msg,
bool cs) {
if ( !
SP_scan_expected_word (src, expctd, cs))
errorr_expected (file, line, msg, expctd, src); }
591 void SP_scan_expected_word_FL (
const char* file,
int line,
const char *&src,
const char *expctd1,
const char *expctd2,
const char *msg,
bool cs) {
if ( !
SP_scan_expected_word (src, expctd2, cs) && !
SP_scan_expected_word (src, expctd1, cs))
errorr (file, line,
"%s, expected \"%s\" or \"%s\" != \"%s\"", msg, expctd1, expctd2, src); }
592 void SP_scan_expected_word_FL (
const char* file,
int line,
const char *&src,
const char *expctd1,
const char *expctd2,
const char *expctd3,
const char *msg,
bool cs) {
if (!
SP_scan_expected_word (src, expctd3, cs) && !
SP_scan_expected_word (src, expctd2, cs) && !
SP_scan_expected_word (src, expctd1, cs))
errorr (file, line,
"%s, expected \"%s\" or \"%s\" or \"%s\" != \"%s\"", msg, expctd1, expctd2, expctd2, src); }
604 _warningg2 (
"The length of array of doubles is not \"%d\"", L);
628 fprintf (stream,
"%c", src[0]);
639 fprintf (stream,
"%c", src[0]);
654 for (j=i+1; j<n; j++)
655 if (p[i]==p[j])
return i+1;
663 ; sprintf (strchr(s,
'\0'),
" ");
664 while (n--) sprintf (strchr(s,
'\0'),
" %s", *(argv-n));
675 while ((c = getc (stream)) !=
'*' ) ;
686 while ((c = getc (sour)) !=
'*') putc (c,dest);
692 while (n--)
do{ c=getc(sour); putc(c,dest); }
while(c!=
'\n');
698 while ((c = getc (sour)) !=
'\n') putc (c,dest);
705 while ((c = getc(sour)) != EOF) putc (c,dest);
710 const char *ss = strstr (s1,s2);
711 if (ss==NULL)
return 1;
713 sscanf (ss,
"%ld",&a);
720 const char *ss = strstr (s1,s2);
721 if (ss==NULL)
return 1;
723 sscanf (ss,
"%lf",&a);
734 while ((c = getc(stream)) !=
'\n') ss[i++] = c;
char * strdupl(const char *src)
standard strdup - Memory for the new string is obtained with malloc(3), and can be freed with free(3)...
void errorr(const char *file, int line, const char *format,...)
*** *** *** *** ERROR FCE *** *** *** ***
bool FP_skip_to_line_starting_with(FILE *stream, const char *string, bool cs)
move file descriptor to the line starting with string, exactly behind the string
void SP_unscan_word(const char *&src, const char *w)
*** *** *** SCANNING *** *** *** unscan word == shift pointer back over word
void ad_line(FILE *stream, char *s)
bool SP_print_word(const char *&src, FILE *stream)
... word
int FP_scan_word(FILE *src, char *dest)
... word; return value is length of the word
bool SP_print_space(const char *&src, FILE *stream)
*** *** *** PRINTING *** *** *** printing == print ...
void FP_skip_line_commented(FILE *stream)
move file descriptor to the start of the new noncommented line, without checking of EOF ...
void FP_skip_line_fast_skip_commented(FILE *stream, int n)
move file descriptor to the start of the n-th new line, without checking of EOF
bool SP_scan_expected_number(const char *&src, ArgType expctd)
... number and compare with expected one
bool SP_unskip_space(const char *&src)
*** *** *** SKIPING *** *** *** (un)skiping == shift src pointer at the end(start) of ...
long SP_scan_word(const char *&src, char *dest)
... word; return value is length of the word
long FP_number_of_lines(FILE *stream, bool rwd)
count number of lines in file
long find_double(long n, long *p)
*** *** *** *** OBSOLETE FUNCTIONS *** *** *** ***
void copy_star(FILE *sour, FILE *dest)
long FP_scan_line_skip_emptyORcommented(FILE *stream, char *dest)
*** *** *** SCANNING *** *** *** scanning == scan ...
void sprint_param(char *s, char *argv[], int n)
bool SP_skip_word(const char *&src, int n)
... word and space before
void errorr_expected(const char *file, int line, const char *msg, const char *expctd, const char *src)
*** *** *** *** STRING PROCESSING *** *** *** *** src pointer is always shifted over the skipped/sc...
void read_star(FILE *stream)
char * pathstrdupl(const char *src)
Structs Elem3D, PoinT and VectoR; classes Array, Array1d, Xscal, Dscal, Xvctr, Lvctr, Dvctr, Xmtrx, Lmtrx and Dmtrx.
Dvctr * resize_ignore_vals(long newsize)
bool isLineChar(char C)
return true if character C is "normal" char or "space" char –> C != ' ' '\0' '' ...
long FP_number_of_words(FILE *stream)
count number of words (see isWordChar) in file
long SP_scan_line(const char *&src, char *dest)
... line; return value is length of the line
long SP_scan_line_alloc(const char *&src, char *&dest)
... line; return value is length of the line; dest is NULL and allocated here
long giveLineLength(const char *src)
return length of line == sting compount of "line chars"
void FP_scan_expected_word_FL(const char *file, int line, FILE *src, const char *expctd, const char *msg, bool cs)
... word and compare with expected one, exit if false
void copy_file(FILE *sour, FILE *dest)
bool isWordChar(char C)
*** *** *** *** GENERAL FUNCTIONS *** *** *** *** return true if character C is "normal" char –> C...
#define _warningg2(_1, _2)
bool SP_scan_Dvctr_exit(const char *&src, int n, Dvctr *v)
bool FP_skip_line(FILE *stream, int n)
move file descriptor to the start of the n-th new line //[former read_line]
long FP_scan_line(FILE *stream, char *dest)
scan/copy line == string without ' ' from stream
bool SP_skip_space(const char *&src)
... space == ' ' and '' characters
void copy_line(FILE *sour, FILE *dest, int n)
void SP_scan_expected_word_FL(const char *file, int line, const char *&src, const char *expctd, const char *msg, bool cs)
... word and compare with expected one/two/three, exit if false
bool SP_scan_character(const char *&src, char &dest)
scanning == scan ... to variable dest and shift src pointer at the end of ...
void copy_star_end(FILE *sour, FILE *dest, int n)
read line of file until , no save, dava bacha na EOF
bool FP_scan_expected_line(FILE *src, const char *expctd, bool cs)
... line and compare with expected one
bool FP_skip_expected_string(FILE *src, const char *expctd, bool cs)
... word and compare with expected one
bool FP_skip_space(FILE *stream)
... space
bool FP_skip_behind_line_starting_with(FILE *stream, const char *string, bool cs)
move file descriptor to the start of the new line after the one starting with string ...
void read_star_end(FILE *stream, int n)
bool SP_scan_array_L(const char *&src, int L, double *a)
bool FP_skip_nonword(FILE *stream)
*** *** *** SKIPING *** *** *** skiping == shift stream pointer at the first char which is not ...
bool SP_scan_expected_word(const char *&src, const char *expctd, bool cs)
... word and compare with expected one
void copy_to_end_line(FILE *sour, FILE *dest)
bool SP_skip_int(const char *&src)
... word compound of digits and space before
int extract_double(const char *s1, const char *s2, double &a)
v retezci s1 se najde key retezec s2 a za nim se precte double
bool SP_scan_array(const char *&src, int n, ArgType *a)
... array of numbers
bool SP_scan_number(const char *&src, int &dest)
... number of type int/long/double
int extract_long(const char *s1, const char *s2, long &a)
double * give_ptr2val(long i=0)
return pointer to
long AP_find_option(int argc, char *argv[], const char *s)
*** *** *** *** ARGUMENTS PROCESSING *** *** *** *** terminology: tar -cz -f archiv.tgz archiv/ /// fce name | arguments /// fce name | options | parameters /// fce name | opt | opt | opt argum.
bool FP_skip_word(FILE *stream)
... word
long FP_scan_line_alloc(FILE *stream, char *&dest)
scan/copy line == string without ' ' from stream; dest is NULL and allocated here ...
bool SP_cutcomment(char *src)
cut of comment == end of line starting by '#'
bool FP_scan_array(FILE *stream, int n, int *dest)
scan/copy array of numbers from src to dest, src pointer is shifted over the field ...
bool isSpaceChar(char C)
return true if character C is "space" char –> C == ' ' ''
void FP_scan_expected_line_FL(const char *file, int line, FILE *src, const char *expctd, const char *msg, bool cs)
... line and compare with expected one, exit if false
bool FP_scan_expected_word(FILE *src, const char *expctd, bool cs)
... word and compare with expected one
void AP_fprint_arguments(FILE *stream, int argc, char *argv[])
print arguments to stream
bool FP_skip_comment(FILE *stream)
*** *** *** *** FILE PROCESSING *** *** *** *** general rules for file processing: ...