/*+ * VOID scvtlu(text) * FAST TEXT *text; * * Description : Routine to convert a string in-place from lower- to * upper-case characters * * Arguments : text = STRING to be converted * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : SCVTLU.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : scvtlu.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include VOID scvtlu(text) FAST TEXT *text; { /* * convert lower-case characters */ while(*text) { *text = ('a' <= *text && *text <= 'z') ? *text - 32 : *text; ++text; } }