00001 //--------------------------------------------------------------- 00002 // Go4 Release Package v2.10-5 (build 21005) 00003 // 03-Nov-2005 00004 //--------------------------------------------------------------- 00005 // The GSI Online Offline Object Oriented (Go4) Project 00006 // Experiment Data Processing at DVEE department, GSI 00007 //--------------------------------------------------------------- 00008 // 00009 //Copyright (C) 2000- Gesellschaft f. Schwerionenforschung, GSI 00010 // Planckstr. 1, 64291 Darmstadt, Germany 00011 //Contact: http://go4.gsi.de 00012 //---------------------------------------------------------------- 00013 //This software can be used under the license agreements as stated 00014 //in Go4License.txt file which is part of the distribution. 00015 //---------------------------------------------------------------- 00016 #include "typedefs.h" 00017 /*****************+***********+****************************************/ 00018 /* */ 00019 /* GSI, Gesellschaft fuer Schwerionenforschung mbH */ 00020 /* Postfach 11 05 52 */ 00021 /* D-64220 Darmstadt */ 00022 /* */ 00023 /*1+ C Procedure *************+****************************************/ 00024 /* */ 00025 /*+ Module : f_his_toupper */ 00026 /* */ 00027 /*--------------------------------------------------------------------*/ 00028 /*+ CALLING : f_his_toupper(string,i_max) */ 00029 /*--------------------------------------------------------------------*/ 00030 /* */ 00031 /*+ PURPOSE : Convert string to upper case. */ 00032 /* */ 00033 /*+ ARGUMENTS : */ 00034 /* */ 00035 /*+ string : (char *) input/output */ 00036 /* pointer to character string */ 00037 /* */ 00038 /*+ i_max : int input */ 00039 /* maximum number of char to be converted. */ 00040 /* */ 00041 /*+ Return type : void */ 00042 /* */ 00043 /*2+Description***+***********+****************************************/ 00044 /* */ 00045 /*+ CALLING : f_his_tolower(string,i_max) */ 00046 /* */ 00047 /*+ FUNCTION : Converts string to upper case until '\0' or */ 00048 /* the specified maximum number of characters */ 00049 /* */ 00050 /*3+Function******+***********+****************************************/ 00051 /* */ 00052 /*2+Implementation************+****************************************/ 00053 /*+ Utility : f_his_toupper */ 00054 /*+ File name : f_his_toupper.c */ 00055 /*+ Home direct.: /sbs/prod/src */ 00056 /*+ Version : 1.01 */ 00057 /*+ Author : Ilya Kuznetsov */ 00058 /*+ Created : 20-Sep-1994 */ 00059 /*+ Object libr.: libxxx.a */ 00060 /*+ Updates : Date Purpose */ 00061 /*- 11-Oct-94 : changes/RSM */ 00062 /*1- C Procedure *************+****************************************/ 00063 #include <stdio.h> 00064 #include <stdlib.h> 00065 #include <string.h> 00066 #include <ctype.h> 00067 00068 void f_his_toupper(c,i) 00069 /* +++ convert string to uppercase, max i char +++ */ 00070 CHARS *c; 00071 INTS4 i; 00072 { 00073 INTS4 i_j=0; 00074 while (!((c[i_j]=='\0') || (i_j==i))) 00075 { 00076 c[i_j]=(CHARS)toupper((INTS4)c[i_j]); 00077 i_j++; 00078 } 00079 c[i_j] = '\0'; 00080 } 00081 00082 //----------------------------END OF GO4 SOURCE FILE ---------------------