Expanded description
| Topic |
Description |
| Name |
title_case |
| Synopsis |
/infobank/programs/refmt/title_case/title_case.for |
| Description |
Program to convert text to title case.
|
| Input |
A list of pathnames for the files to convert.
|
| Author |
Clint Steele 4/26/2002
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/titlecase.temp')
|
| Reads |
read (90, '(q,a)', end = 99)
* AFileLength, AFile(1:AFileLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (92, '(/)')
write (92, '(a)') ALine(1:ALineLength)
|
| Calls |
call openem (1,0)
call changecase ('SMALLS', ALine(10:ALineLength))
call changecase ('SMALLS', ALine(1:ALineLength))
call changecase ('CAPITALS', ALine(1:1))
call changecase ('CAPITALS',
* ALine(Loop+1:Loop+1))
call system ('/bin/mv /tmp/titlecase.temp '//
* AFile(1:AFileLength))
|
|
