00001 //------------------------------------------------------------- 00002 // Go4 Release Package v3.04-01 (build 30401) 00003 // 28-November-2008 00004 //--------------------------------------------------------------- 00005 // The GSI Online Offline Object Oriented (Go4) Project 00006 // Experiment Data Processing at EE 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 /*****************+***********+****************************************/ 00017 /* */ 00018 /* GSI, Gesellschaft fuer Schwerionenforschung mbH */ 00019 /* Postfach 11 05 52 */ 00020 /* D-64220 Darmstadt */ 00021 /* */ 00022 /*1+ C Procedure *************+****************************************/ 00023 /* */ 00024 /*+ Module : f_his_toupper */ 00025 /* */ 00026 /*--------------------------------------------------------------------*/ 00027 /*+ CALLING : f_his_toupper(string,i_max) */ 00028 /*--------------------------------------------------------------------*/ 00029 /* */ 00030 /*+ PURPOSE : Convert string to upper case. */ 00031 /* */ 00032 /*+ ARGUMENTS : */ 00033 /* */ 00034 /*+ string : (char *) input/output */ 00035 /* pointer to character string */ 00036 /* */ 00037 /*+ i_max : int input */ 00038 /* maximum number of char to be converted. */ 00039 /* */ 00040 /*+ Return type : void */ 00041 /* */ 00042 /*2+Description***+***********+****************************************/ 00043 /* */ 00044 /*+ CALLING : f_his_tolower(string,i_max) */ 00045 /* */ 00046 /*+ FUNCTION : Converts string to upper case until '\0' or */ 00047 /* the specified maximum number of characters */ 00048 /* */ 00049 /*3+Function******+***********+****************************************/ 00050 /* */ 00051 /*2+Implementation************+****************************************/ 00052 /*+ Utility : f_his_toupper */ 00053 /*+ File name : f_his_toupper.c */ 00054 /*+ Home direct.: /sbs/prod/src */ 00055 /*+ Version : 1.01 */ 00056 /*+ Author : Ilya Kuznetsov */ 00057 /*+ Created : 20-Sep-1994 */ 00058 /*+ Object libr.: libxxx.a */ 00059 /*+ Updates : Date Purpose */ 00060 /*- 11-Oct-94 : changes/RSM */ 00061 /*1- C Procedure *************+****************************************/ 00062 00063 #include "f_his_toupper.h" 00064 00065 void f_his_toupper(CHARS* c, INTS4 i) 00066 /* +++ convert string to uppercase, max i char +++ */ 00067 { 00068 INTS4 i_j=0; 00069 while (!((c[i_j]=='\0') || (i_j==i))) 00070 { 00071 c[i_j]=(CHARS)toupper((INTS4)c[i_j]); 00072 i_j++; 00073 } 00074 c[i_j] = '\0'; 00075 } 00076 00077 //----------------------------END OF GO4 SOURCE FILE ---------------------