home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / caselib.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  1.8 KB  |  74 lines
  1. FUNCTION UC_CHAR(INPUT_CHARACTER : CHAR) : CHAR;
  2.  
  3. { COMMENT :
  4.     ACCEPTS ANY CHARACTER AS INPUT : IF IT IS A LOWER CASE
  5.     ALPHABETIC CHARACTER THEN ITS UPPER CASE EQUIVALENT IS
  6.     RETURNED.OTHERWISE THE INPUT CHARACTER ITSELF IS RETURNED.
  7. }
  8. VAR
  9.     ORDINAL_VALUE    : INTEGER;
  10.  
  11. BEGIN
  12.  IF INPUT_CHARACTER IN ['a'..'z'] THEN BEGIN
  13.   ORDINAL_VALUE    := ORD(INPUT_CHARACTER);
  14.   ORDINAL_VALUE := ORDINAL_VALUE - 32;
  15.   UC_CHAR    := CHR(ORDINAL_VALUE);
  16.   END
  17.   ELSE UC_CHAR  := INPUT_CHARACTER;
  18. END; { OF : FUNCTION UC_CHAR }
  19.  
  20. FUNCTION LC_CHAR(INPUT_CHARACTER : CHAR) : CHAR;
  21.  
  22. { COMMENT :
  23.     ACCEPTS ANY CHARACTER AS INPUT : IF IT IS AN UPPER CASE
  24.     ALPHABETIC CHARACTER THEN ITS LOWER CASE EQUIVALENT IS
  25.     RETURNED.OTHERWISE THE INPUT CHARACTER ITSELF IS RETURNED.
  26. }
  27. VAR
  28.     ORDINAL_VALUE    : INTEGER;
  29.  
  30. BEGIN
  31.  IF INPUT_CHARACTER IN ['A'..'Z'] THEN BEGIN
  32.   ORDINAL_VALUE    := ORD(INPUT_CHARACTER);
  33.   ORDINAL_VALUE := ORDINAL_VALUE + 32;
  34.   UC_CHAR    := CHR(ORDINAL_VALUE);
  35.   END
  36.   ELSE LC_CHAR  := INPUT_CHARACTER;
  37. END; { OF : FUNCTION LC_CHAR }
  38.  
  39. FUNCTION UC_STRING(INPUT_STRING : STRING255) : STRING255;
  40.  
  41. VAR
  42.     CHARACTER,
  43.     LAST_CHARACTER    : INTEGER;
  44.     TEMP_CHARACTER    : CHAR;
  45.     TEMP_STRING    : STRING255;
  46.  
  47. BEGIN
  48. SETLENGTH(TEMP_STRING,0)
  49. LAST_CHARACTER    := LENGTH(INPUT_STRING);
  50. FOR CHARACTER := 1 TO LAST_CHARACTER DO BEGIN
  51.  TEMP_CHARACTER    := UC_CHAR(INPUT_STRING[CHARACTER]);
  52.  APPEND(TEMP_STRING,TEMP_CHARACTER)
  53.  END;
  54. UC_STRING := TEMP_STRING;
  55. END; { OF : PROCEDURE UC_STRING }
  56.  
  57. FUNCTION LC_STRING(INPUT_STRING : STRING255) : STRING255;
  58.  
  59. VAR
  60.     CHARACTER,
  61.     LAST_CHARACTER    : INTEGER;
  62.     TEMP_CHARACTER    : CHAR;
  63.     TEMP_STRING    : STRING255;
  64.  
  65. BEGIN
  66. SETLENGTH(TEMP_STRING,0)
  67. LAST_CHARACTER    := LENGTH(INPUT_STRING);
  68. FOR CHARACTER := 1 TO LAST_CHARACTER DO BEGIN
  69.  TEMP_CHARACTER    := LC_CHAR(INPUT_STRING[CHARACTER]);
  70.  APPEND(TEMP_STRING,TEMP_CHARACTER)
  71.  END;
  72. LC_STRING := TEMP_STRING;
  73. END; { OF : PROCEDURE LC_STRING }
  74.