rapidbatch/trimvar.c at main · phorward/rapidbatch · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/* -MODULE----------------------------------------------------------------------
RapidBATCH
Copyright (C) 2009 by Phorward Software Technologies
http://www.phorward-software.com ++ contact<at>phorward<dash>software<dot>com

File:		trimvar.c
Author:		Andreas Harbecke
Usage:		Implements the TRIMVAR standard function
----------------------------------------------------------------------------- */

/*
 * Includes
 */
#include "rb_global.h"

/*
 * Global variables
 */

/*
 * Functions
 */


/*RBDOC

	%%function
	trimvar( str )

	%%desc:en
	Removes beginning and trailing whitespace (tabulators, blanks)
	from a string '''str''' and returns the ''trimmed'' string.
	%%desc:ge
	Entfernt führenden und endenden Leerzeichen und Tabulatoren aus
	einem String '''str''', und gibt diesen zurück.

	%%parm:en
	str		The string to be trimmed.
	%%parm:ge
	str		Der zu bearbeitende String.

	%%return:en
	Returns the 'trimmed' string.

	%%return:ge
	Gibt den ''getrimmten'' String zurück.\n
	Enthält der Eingabestring keine führenden oder endenden
	Leerzeichen, so ist der Rückgabestring äquivalent zum
	Eingabestring.

	%%notice:en
	%%notice:ge

RBDOC*/

RB_FCT( trimvar )
{
/*RBAUTOIMPORT function trimvar v*/

	char*	sourceString;
	char*	ret;

	PROC( "trimvar" );
	RB_FCT_DUMP_PARMS();

	sourceString = RB_PARM_VAL_GET_STR( RB_FCT_PARM_ACCESS( 0 ) );
	VARS( "sourceString", "%s", sourceString );

	if( !( ret = pstrdup( pstrtrim( sourceString ) ) ) )
		OUTOFMEM;

	/*
	TIMEDUMP;

	bgnstr = sourceString;
	while( *bgnstr == ' ' || *bgnstr == '\t' )
		bgnstr++;

	endstr = pstrlen ( bgnstr ) + bgnstr - 1;
	while( *endstr == ' ' || *endstr == '\t' )
		endstr--;

	*(endstr + 1) = '\0';

	TIMEDUMP;
	*/

	VARS( "ret", "%s", ret );
	RB_PARM_VAL_SET_STR( RB_FCT_RET, ret );

	RETURN( 0 );
}