Scol

h1. Useful string functions

* Remove the last character of a string :

<pre>

fun removeLastChar(s)=

	substr s 0 (strlen s)-1;;

</pre>

* Compare the last character. Return 1 if it is the same.

<pre>

fun testLastChar(s, c)=

	let substr s (strlen s)-1 1 -> ch in

	!strcmp c ch;;

</pre>

* Return the position of the last occurence of a character

<pre>

fun getLastPosChar(string, char)=

         let 0 -> i in

         let (strfind char string 0) + 1 -> npos in

         while npos != nil do

                (

                set i = npos;

                set npos = (strfind char string npos) + 1;

                i

                );;

</pre>

* Return the position of the last /

<pre>

fun getLastPosSlash(s)=

  if s == nil then nil else

	let strlen s -> n in

	let n-1 -> i in

	(

	 while (i >=0) && ((nth_char s i) != '/) do

		set i = i-1;

	 i

	);;

</pre>

* Return the position of the last .

<pre>

fun getLastPosPoint(s)=

  if s == nil then nil else

	let (strlen s) - 1 -> i in

	(

	  while (i >= 0) && ((nth_char s i) != '.) do

		  set i = i - 1;

	  i

	);;

</pre>

* returns whether a string has only the characters of a pattern : fun [S S] I

<pre>

fun stringIsPattern(s, pattern)=

	let 0 -> i in

	let 1 -> r in

	(

	while ((i < (strlen s)) && (r == 1)) do

		let strfind substr s i 1 pattern 0 -> p in

		if p == nil then

			set r = 0

		else

			set i = i+1;

	r

	);;

</pre>

Author : iri

Date   : december 2011

*Return to [[Examples]]*