🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sources.bugs
Article #306

lharc fixes

#306
From: Trevor Paquette
Date: Thu, 15 Mar 1990 17:17
44 lines
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!paquette

Show 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