Changeset 3747de2 in git for Singular


Ignore:
Timestamp:
Jul 4, 2022, 2:52:51 PM (22 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
1e1107a681a138069578c0396533c84b0b2e0ca3919e5c241ab4ac5f2b38cbf61fe777597e7c7e18
Parents:
aa37e4aece0beb7d9cba9d0719980e09c39a99c5
Message:
internal help: show also url
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/fehelp.cc

    raa37e4 r3747de2  
    915915                   {
    916916                     if (*p=='H')
     917                     #ifdef SINGULAR_4_2
     918                       snprintf(temp,256,"%s/%d-%d/index.htm", htmldir,
     919                                  SINGULAR_VERSION/1000,
     920                                 (SINGULAR_VERSION % 1000)/100
     921                       );
     922                     #else
    917923                       snprintf(temp,256,"%s/%d-%d-%d/index.htm", htmldir,
    918924                                  SINGULAR_VERSION/1000,
    … …  
    920926                                 (SINGULAR_VERSION % 100)/10
    921927                       );
     928                     #endif
    922929                     else
    923930                       snprintf(temp,256,"%s/index.htm", htmldir);
    … …  
    926933                   {
    927934                     if (*p=='H')
     935                     #ifdef SINGULAR_4_2
     936                       sprintf(temp,"%s/%d-%d/%s", htmldir,
     937                                  SINGULAR_VERSION/1000,
     938                                 (SINGULAR_VERSION % 1000)/100,
     939                       hentry->url);
     940                     else
     941                       sprintf(temp,"%s/%s", htmldir, hentry->url);
     942                     #else
    928943                       sprintf(temp,"%s/%d-%d-%d/%s", htmldir,
    929944                                  SINGULAR_VERSION/1000,
    … …  
    932947                       hentry->url);
    933948                     else
    934                        sprintf(temp,"%s/%d-%d-%d/%s", htmldir, hentry->url);
     949                       sprintf(temp,"%s/%s", htmldir, hentry->url);
     950                     #endif
    935951                   }
    936952                   else
    937953                     if (*p=='H')
     954                     #ifdef SINGULAR_4_2
     955                       sprintf(temp,"%s/%d-%d/index.htm", htmldir,
     956                                  SINGULAR_VERSION/1000,
     957                                 (SINGULAR_VERSION % 1000)/100
     958                       );
     959                     #else
    938960                       sprintf(temp,"%s/%d-%d-%d/index.htm", htmldir,
    939961                                  SINGULAR_VERSION/1000,
    … …  
    941963                                 (SINGULAR_VERSION % 100)/10
    942964                       );
     965                     #endif
    943966                     else
    944967                       sprintf(temp,"%s/index.htm", htmldir);
    … …  
    10291052  WarnS("information on Singular running under Emacs, type C-h m.");
    10301053}
    1031 static int singular_manual(char *str, BOOLEAN isIndexEntry);
     1054static int singular_manual(char *str, BOOLEAN isIndexEntry, heEntry hentry);
    10321055static void heBuiltinHelp(heEntry hentry, int /*br*/)
    10331056{
    10341057  char* node = omStrDup(hentry != NULL && *(hentry->key) != '\0' ?
    10351058                       hentry->key : "Top");
    1036   singular_manual(node,(hentry != NULL) && *(hentry->url)!='\0');
     1059  singular_manual(node,(hentry != NULL) && *(hentry->url)!='\0',hentry);
    10371060  omFree(node);
    10381061}
    … …  
    10971120
    10981121/*************************************************/
    1099 static int singular_manual(char *str, BOOLEAN isIndexEntry)
     1122static int singular_manual(char *str, BOOLEAN isIndexEntry,heEntry hentry)
    11001123{ FILE *index=NULL;
    11011124  unsigned long offset;
    … …  
    11321155        && (fgets(buffer, BUF_LEN, index) != (char *)0)
    11331156        && (buffer[0] != FIN_INDEX));
     1157   char temp[256];temp[0]='\0';
     1158   char *htmldir = feResource('u'); /* always defined */
     1159   if (hentry != NULL && *(hentry->url) != '\0')
     1160   #ifdef HAVE_VSNPRINTF
     1161   {
     1162     #ifdef SINGULAR_4_2
     1163     snprintf(temp,256,"%s/%d-%d/%s", htmldir,
     1164       SINGULAR_VERSION/1000,
     1165       (SINGULAR_VERSION % 1000)/100,
     1166     #else
     1167     snprintf(temp,256,"%s/%d-%d-%d/%s", htmldir,
     1168       SINGULAR_VERSION/1000,
     1169       (SINGULAR_VERSION % 1000)/100,
     1170       (SINGULAR_VERSION % 100)/10,
     1171     #endif
     1172       hentry->url);
     1173   }
     1174   #else
     1175   {
     1176     #ifdef SINGULAR_4_2
     1177     sprintf(temp,"%s/%d-%d/%s", htmldir,
     1178     SINGULAR_VERSION/1000,
     1179     (SINGULAR_VERSION % 1000)/100,
     1180     #else
     1181     sprintf(temp,"%s/%d-%d-%d/%s", htmldir,
     1182     SINGULAR_VERSION/1000,
     1183     (SINGULAR_VERSION % 1000)/100,
     1184     (SINGULAR_VERSION % 100)/10,
     1185     #endif
     1186     hentry->url);
     1187   }
     1188   #endif
     1189   Print("url: %s\n",temp);
    11341190
    11351191  while(!feof(index))
Note: See TracChangeset for help on using the changeset viewer.