Script Library: rightstring.r

Script Library: 1247 scripts
rightstring.r

REBOL [
   File: %rightstring.r
   Date: 28-Aug-2005
   Title: "rightString Function"
     Version: 1.1
   Purpose: {A simple string function which returns the right most n characters.}
   Library: [
      level: 'beginner
      platform: 'all
      type: 'function
      domain: [text text-processing]
      tested-under: [REBOL/Core 2.5.6.3.1 "windows XP Professionsl"]
      support: none
      license: cc-by
      see-also: none
   ]
     Copyright: {Copyright (C) 2005 - Digital Bear Consulting}
     Author: {Dale K. Brearcliffe}    
]


rightString: function [
   "Returns the right most arg2 characters of string arg1."
   arg1 [string!]
     arg2 [number!]
   ][
     l
     lt
     ][
   l: length? arg1
     if (l <= arg2) [return arg1]
   if arg2 = 0 [return none]
     either arg2 > 0 [
        lt: 0 - arg2
     ][
        lt: arg2
     ]
     return skip tail arg1 lt
]