Project

General

Profile

Useful string functions

  • Remove the last character of a string :
fun removeLastChar (s)=
    substr s 0 (strlen s)-1;;
  • Compare the last character. Return 1 if it is the same.
fun testLastChar (s, c)=
    let substr s (strlen s)-1 1 -> ch in
    !strcmp c ch;;
  • Return the position of the last occurence of a character
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
                );;
  • Return the position of the last /
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
    );;
  • Return the position of the last .
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
    );;
  • returns whether a string has only the characters of a pattern : fun [S S] I
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
    );;

Author : iri
Date : december 2011

Return to Examples