Article View: comp.sources.bugs
Article #306lharc fixes
From: Trevor Paquette
Date: Thu, 15 Mar 1990 17:17
Date: Thu, 15 Mar 1990 17:17
44 lines
1417 bytes
1417 bytes
The fix to getting lharc to work is actually quite simple.
Change the following lines in "lharc.c":
about line 811:
CHANGE
if (!lower_case_used && isupper (name[i]))
name[i] = tolower (name[i]);
TO
if (!lower_case_used && isupper (name[i])) {
/* name[i] = tolower (name[i]); */
}
or just comment out the entire if statement.
about line 1120
CHANGE
for ( ptr = data + I_NAME, cnt = 0; cnt < name_length; ptr++, cnt++ )
{
*ptr = toupper(*ptr);
if ( *ptr == '/' )
TO
for ( ptr = data + I_NAME, cnt = 0; cnt < name_length; ptr++, cnt++ )
{
/* *ptr = toupper(*ptr);*/
if ( *ptr == '/' )
Comment out the toupper function call. This should make it work. I know it
now works on Suns.
hope this helps.
Trev
___________________________________________/No man is a failure who has friends
Trevor Paquette ICBM:51'03"N/114'05"W|I accept the challange, body and soul,
{ubc-cs,utai,alberta}!calgary!paquette|to seek the knowledge of the ones of old
paquette@cpsc.ucalgary.ca | - engraved on the Kersa Blade of Esalon
Technical Details
Message-ID:
<2612@cs-spool.calgary.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!attcan!uunet!van-bc!ubc-cs!alberta!calgary!cpsc!paquetteShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!van-bc!ubc-cs!alberta!calgary!cpsc!paquette From: paquette@cpsc.ucalgary.ca (Trevor Paquette) Newsgroups: comp.sources.bugs Subject: lharc fixes Message-ID: <2612@cs-spool.calgary.UUCP> Date: 15 Mar 90 17:17:47 GMT Sender: news@calgary.UUCP Lines: 44