Return to help.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/help.c, Revision 1.1

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/help.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */
        !             2: #include "ca.h"
        !             3: #include "parse.h"
        !             4:
        !             5: void Phelp();
        !             6: void ghelp(void);
        !             7:
        !             8: struct ftab help_tab[] = {
        !             9:        {"help",Phelp,-1},
        !            10:        {0,0,0},
        !            11: };
        !            12:
        !            13: void Phelp(arg,rp)
        !            14: NODE arg;
        !            15: Obj *rp;
        !            16: {
        !            17:        if ( !arg || !ARG0(arg) )
        !            18:                 help(0);
        !            19:        else
        !            20:                switch (OID(ARG0(arg))) {
        !            21:                        case O_P:
        !            22:                                help(NAME(VR((P)ARG0(arg))));
        !            23:                                break;
        !            24:                        case O_STR:
        !            25:                                help(BDY((STRING)ARG0(arg)));
        !            26:                                break;
        !            27:                        default:
        !            28:                                break;
        !            29:                }
        !            30:        *rp = 0;
        !            31: }
        !            32:
        !            33: static char *ghelpstr[] = {
        !            34: "<expression> ';'  : eval and print",
        !            35: "<expression> '$'  : eval",
        !            36: "end (quit)        : close the current input stream",
        !            37: "debug             : enter the debug mode",
        !            38: 0
        !            39: };
        !            40:
        !            41: void help(s)
        !            42: char *s;
        !            43: {
        !            44:        extern char *asir_libdir;
        !            45:        extern char *asir_pager;
        !            46:
        !            47:        if ( !s )
        !            48:                ghelp();
        !            49:        else {
        !            50: #if !defined(VISUAL)
        !            51:                int i;
        !            52:                FUNC f;
        !            53:                char name[BUFSIZ],com[BUFSIZ];
        !            54:                FILE *fp;
        !            55:
        !            56:                sprintf(name,"%s/help/%s",asir_libdir,s);
        !            57:                if ( fp = fopen(name,"r") ) {
        !            58:                        fclose(fp);
        !            59:                        sprintf(com,"%s %s",asir_pager,name);
        !            60:                        system(com);
        !            61:                } else {
        !            62:                        searchf(usrf,s,&f);
        !            63:                        if ( f && f->f.usrf->desc )
        !            64:                                fprintf(stderr,"%s\n",f->f.usrf->desc);
        !            65:                }
        !            66: #endif
        !            67:        }
        !            68: }
        !            69:
        !            70: void ghelp() {
        !            71:        int i;
        !            72:
        !            73:        for ( i = 0; ghelpstr[i]; i++ )
        !            74:                fprintf(stderr,"%s\n",ghelpstr[i]);
        !            75: }