GSI Object Oriented Online Offline (Go4) GO4-6.4.0
Loading...
Searching...
No Matches
f_his_toupper.c
Go to the documentation of this file.
1// $Id$
2//-----------------------------------------------------------------------
3// The GSI Online Offline Object Oriented (Go4) Project
4// Experiment Data Processing at EE department, GSI
5//-----------------------------------------------------------------------
6// Copyright (C) 2000- GSI Helmholtzzentrum fuer Schwerionenforschung GmbH
7// Planckstr. 1, 64291 Darmstadt, Germany
8// Contact: http://go4.gsi.de
9//-----------------------------------------------------------------------
10// This software can be used under the license agreements as stated
11// in Go4License.txt file which is part of the distribution.
12//-----------------------------------------------------------------------
13
14/*****************+***********+****************************************/
15/* */
16/* GSI, Gesellschaft fuer Schwerionenforschung mbH */
17/* Postfach 11 05 52 */
18/* D-64220 Darmstadt */
19/* */
20/*1+ C Procedure *************+****************************************/
21/* */
22/*+ Module : f_his_toupper */
23/* */
24/*--------------------------------------------------------------------*/
25/*+ CALLING : f_his_toupper(string,i_max) */
26/*--------------------------------------------------------------------*/
27/* */
28/*+ PURPOSE : Convert string to upper case. */
29/* */
30/*+ ARGUMENTS : */
31/* */
32/*+ string : (char *) input/output */
33/* pointer to character string */
34/* */
35/*+ i_max : int input */
36/* maximum number of char to be converted. */
37/* */
38/*+ Return type : void */
39/* */
40/*2+Description***+***********+****************************************/
41/* */
42/*+ CALLING : f_his_tolower(string,i_max) */
43/* */
44/*+ FUNCTION : Converts string to upper case until '\0' or */
45/* the specified maximum number of characters */
46/* */
47/*3+Function******+***********+****************************************/
48/* */
49/*2+Implementation************+****************************************/
50/*+ Utility : f_his_toupper */
51/*+ File name : f_his_toupper.c */
52/*+ Home direct.: /sbs/prod/src */
53/*+ Version : 1.01 */
54/*+ Author : Ilya Kuznetsov */
55/*+ Created : 20-Sep-1994 */
56/*+ Object libr.: libxxx.a */
57/*+ Updates : Date Purpose */
58/*- 11-Oct-94 : changes/RSM */
59/*1- C Procedure *************+****************************************/
60
61#include "f_his_toupper.h"
62
63#include <ctype.h>
64
66/* +++ convert string to uppercase, max i char +++ */
67{
68 INTS4 i_j=0;
69 while (!((c[i_j]=='\0') || (i_j==i)))
70 {
71 c[i_j]=(CHARS)toupper((INTS4)c[i_j]);
72 i_j++;
73 }
74 c[i_j] = '\0';
75}
void f_his_toupper(CHARS *c, INTS4 i)
int INTS4
Definition typedefs.h:28
char CHARS
Definition typedefs.h:21