is this jexchar.jal inside the file sections could be used as starting point?
-- ---------------------------------------------------------------------------- -- Title: char information -- Author: Mohammad Hafiz Othman, Copyright (c) 2007, All rights reserved. -- -- Released under the ZLIB license (http://www.opensource.org/licenses/ zlib-license.html) -- -- ---------------------------------------------------------------------------- -- Returns if char is a lowercase letter -- ---------------------------------------------------------------------------- function isLower (byte in char) return bit is if (char >= "a") & (char <= "z") then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is an uppercase letter -- ---------------------------------------------------------------------------- function isUpper (byte in char) return bit is if (char >= "A") & (char <= "Z") then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is an alphanumeric -- ---------------------------------------------------------------------------- function isAlphaNumeric (byte in char) return bit is if ((char >= "A") & (char <= "Z")) | ((char >= "a") & (char <= "z")) | ((char >= "0") & (char <= "9")) then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is an alphahabet -- ---------------------------------------------------------------------------- function isAlpha (byte in char) return bit is if ((char >= "A") & (char <= "Z")) | ((char >= "a") & (char <= "z")) then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is a digit -- ---------------------------------------------------------------------------- function isDigit (byte in char) return bit is if ((char >= "0") & (char <= "9")) then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is a space -- ---------------------------------------------------------------------------- function isSpace (byte in char) return bit is if (char == " ") then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char could be printed -- ---------------------------------------------------------------------------- function isPrint (byte in char) return bit is if (char >= " ") then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is a special char -- ---------------------------------------------------------------------------- function isCtrl (byte in char) return bit is if (char < " ") then return true else return false end if end function -- ---------------------------------------------------------------------------- -- Returns if char is a hexadecimal -- ---------------------------------------------------------------------------- function isHexadecimal (byte in char) return bit is if ((char >= "A") & (char <= "F")) | ((char >= "a") & (char <= "f")) | ((char >= "0") & (char <= "9")) then return true else return false end if end function -- You received this message because you are subscribed to the Google Groups "jallib" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/jallib?hl=en.
