Changeset 316fa3 in git


Ignore:
Timestamp:
Jul 2, 2002, 3:24:55 PM (22 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'd1d239e9808fca76a9497a01fa91ad4e8db6fba5')
Children:
75d7c7ae96c7b7aea216ce91c6f3ce9d7020ed06
Parents:
5486955b7fd0f14aa5ab71ed118e2e118f66f0ba
Message:
*hannes: help for c-proc: a start with dummy help


git-svn-id: file:///usr/local/Singular/svn/trunk@6180 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/fehelp.cc

    r548695 r316fa3  
    117117  if (str == NULL) {heBrowserHelp(NULL); return;}
    118118
     119  BOOLEAN key_is_regexp = (strchr(str, '*') != NULL);
     120#ifdef HAVE_NS
     121  if (!key_is_regexp)
     122  {
     123    // test for help mod::p;
     124    char *cc=strstr(str,"::");
     125    if ((cc!=NULL) && (cc!=str))
     126    {
     127      char *cc=strstr(str,"::");
     128      *cc='\0';
     129      cc+=2;
     130      idhdl pack=basePack->idroot->get(str,0);
     131      if (IDTYP(pack)==PACKAGE_CMD)
     132      {
     133        package save=currPack;
     134        currPack=IDPACKAGE(pack);
     135        BOOLEAN r=heOnlineHelp(cc);
     136        currPack=save;
     137        if (r) return;
     138        else
     139        {
     140          cc-=2; *cc=':';
     141        }
     142      }
     143    }
     144  }
     145#endif
    119146  if (strlen(str) > MAX_HE_ENTRY_LENGTH - 2)  // need room for extra **
    120147    str[MAX_HE_ENTRY_LENGTH - 3] = '\0';
    121148
    122   BOOLEAN key_is_regexp = (strchr(str, '*') != NULL);
    123149  heEntry_s hentry;
    124150  char* idxfile = feResource('x' /*"IdxFile"*/);
     
    548574  if ((h!=NULL) && (IDTYP(h)==PROC_CMD))
    549575  {
    550     char *lib=iiGetLibName(IDPROC(h));
    551     if((lib!=NULL)&&(*lib!='\0'))
    552     {
    553       Print("// proc %s from lib %s\n",s,lib);
    554       s=iiGetLibProcBuffer(IDPROC(h), 0);
    555       if (s!=NULL)
    556       {
    557         PrintS(s);
    558         omFree((ADDRESS)s);
    559       }
     576    procinfo *p=IDPROC(h);
     577#ifdef HAVE_NS
     578    if (p->language==LANG_SINGULAR)
     579#endif
     580    {
     581      char *lib=iiGetLibName(p /*IDPROC(h)*/);
     582      if((lib!=NULL)&&(*lib!='\0'))
     583      {
     584        Print("// proc %s from lib %s\n",s,lib);
     585        s=iiGetLibProcBuffer(p /*IDPROC(h)*/, 0);
     586        if (s!=NULL)
     587        {
     588          PrintS(s);
     589          omFree((ADDRESS)s);
     590        }
     591        return TRUE;
     592     }
     593    }
     594#ifdef HAVE_NS
     595    else if (p->language==LANG_C)
     596    {
     597      Print("// c-proc %s\n",s);
    560598      return TRUE;
    561599    }
     600#endif
    562601    return FALSE;
    563602  }
Note: See TracChangeset for help on using the changeset viewer.