viola/ 755 6757 17 0 5236100132 5163 viola/README 644 6757 17 3155 5236076750 6156 July 27, 1992 This version of the Viola-based World-Wide Web browser uses a very recent if not the latest version of the W3 library. ========================================================================== To building the package, type: cd src BUILD With luck, the "viola" binary is regenerated. To run the WWW browser, type (in this directory): RUN RUN is a script that sets up the environment variables. If you move files around in this directory, that script may no longer work. ========================================================================== Set up: The viola application files are in the ``apps'' directory: res.HTMLStyle.v res.font.v res.v www.v wwwHistory.v wwwSrc.v Put them in some place like "/usr/local/lib/viola/apps", and set the VIOLA_PATH environment variable accordingly so that viola can find them. % setenv VIOLA_PATH ". ~/viola/apps /usr/local/lib/viola/apps" See the RUN script for the necessary environment variable settings. -------------------------------------------------------------------------- Bugs: If viola hangs on startup, it's probably because of The Font Problem. Please report it to me if it happens. You can edit the font specification file ("../apps/res.font.v") to suit your X server. -------------------------------------------------------------------------- Comments and questions: Please send WWW specific bugs to www-bugs@info.cern.ch, general comments to www-talk@info.cern.ch, and anything to wei@xcf.Berkeley.EDU. Pei Y. Wei wei@xcf.berkeley.edu Experimental Computing Facility University of California, Berkeley ql .mh_profile|slip@Xfixed .twmrc.simpleٴ diff.html.c٧ diff.tfed.c) viola_local_backupٛ default.html`!Edocs!5$ .maildevery4.sig~L.sig0` .forward.mht$ aliases.Z@8yU BookMarks ' ccsoplaces.ZP * lettviola/src/ 755 6757 17 0 5236101611 5755 viola/src/DefaultStyles.c 640 6757 17 14037 5234650115 11025 /* A real style sheet (inherited from the Character Grid browser) ** ** The dimensions are all in characters! */ #include "../libWWW/src/HTStyle.h" /* modified for viola */ #include "DefaultStyles.h" /* Template: ** link to next, name, tag, tagtype, ** font, size, colour, superscript, anchor id, ** indents: 1st, left, right, lineheight, descent, tabs, ** word wrap, free format, space: before, after, flags. */ PUBLIC HTTabStop tabs_8[] = { {0, 1}, {0, 9}, {0, 17}, {0, 25}, {0, 33}, {0, 41}, {0, 49}, {0, 57}, {0, 65}, {0, 73}, {0, 81}, {0, 89}, {0, 97}, {0, 105}, {0, 113}, {0, 121}, {0, 129} }; PUBLIC HTTabStop tabs_16[] = { {0, 1}, {0, 17}, {0, 33}, {0, 49}, {0, 65}, {0, 81}, {0, 97}, {0, 113}, {0, 129} }; PUBLIC HTTabStop tabs_dir[] = { {0, 16}, {0, 32}, {0, 48}, {0, 64}, {0, 80}, {0, 96}, {0, 112}, {0, 128}, {0, 144}, {0, 160}, {0, 176}, {0, 192}, {0, 208}, {0, 224}, {0, 240}, {0, 256}, {0, 272}, {0, 288}, {0, 304}, {0, 320}, {0, 336}, {0, 352}, {0, 368}, {0, 384}, {0, 400}, {0, 416}, {0, 432}, {0, 448}, {0, 464}, {0, 480}, {0, 496}, {0, 512}, {0, 528}, {0, 544}, {0, 560}, {0, 576}, {0, 592}, {0, 608}, {0, 624}, {0, 640}, {0, 656}, {0, 672}, {0, 688}, {0, 704}, {0, 720}, {0, 736}, {0, 752}, {0, 768}, {0, -1}/* end signal */ }; PUBLIC HTStyle HTStyleHidden = { 0, "Hidden", "S", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 0, 0, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleNormal = { &HTStyleHidden, "Normal", "P", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleVObj = { &HTStyleNormal, "VObj", "VOBJ", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStylePMenu = { &HTStyleVObj, "PMenu", "PMENU", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleXPM = { &HTStylePMenu, "XPM", "XPM", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleXBM = { &HTStyleXPM, "XBM", "XBM", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleIcon = { &HTStyleXBM, "Icon", "ICON", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStylePS = { &HTStyleIcon, "Hidden", "PS", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleOrderedList = { &HTStylePS, "OrderedList", "OL", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 8, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleList = { &HTStyleOrderedList, "List", "UL", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 8, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleListCompact = { &HTStyleList, "ListCompact", "ULC", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 150, 8, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleColumns16 = { &HTStyleListCompact, "Columns16", "ULC", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, tabs_16,/*not really*/ YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleGlossary = { &HTStyleColumns16, "Glossary", "DL", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 64, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleGlossaryCompact = { &HTStyleGlossary, "GlossaryCompact", "DLC", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 64, 8, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleListDirectory = { &HTStyleGlossaryCompact, "ListDirectory", "LI", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, tabs_dir, YES, NO, 0, 1, 0 }; PUBLIC HTStyle HTStyleDirectory = { &HTStyleListDirectory, "Dir", "DIR", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, tabs_dir, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleMenu = { &HTStyleDirectory, "Menu", "MENU", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleHighLight = { &HTStyleMenu, "HighLight", "HP", HT_INVERSE, 1.0, HT_BLACK, 0, 0, 0, 0, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleExampleA = { &HTStyleHighLight, "ExampleA", "XMPA", HT_FIXED, 1.0, HT_BLACK, 0, 0, 32, 32, 1, HT_LEFT, 1, 0, tabs_8, NO, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleExample = { &HTStyleExampleA, "Example", "XMP", HT_FIXED, 1.0, HT_BLACK, 0, 0, 32, 32, 1, HT_LEFT, 1, 0, tabs_8, NO, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleListing = { &HTStyleExample, "Listing", "LISTING", HT_FIXED, 1.0, HT_BLACK, 0, 0, 32, 32, 1, HT_LEFT, 1, 0, 0, NO, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleAddress = { &HTStyleListing, "Address", "ADDRESS", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 0, 0, 32, HT_RIGHT, 1, 0, 0, NO, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleHeading1 = { &HTStyleAddress, "Heading1", "H1", HT_BOLD_LARGEST, 1.0, HT_BLACK, 0, 0, 0, 0, 0, HT_CENTER, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleHeading2 = { &HTStyleHeading1, "Heading2", "H2", HT_BOLD_LARGE, 1.0, HT_BLACK, 0, 0, 0, 0, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleHeading3 = { &HTStyleHeading2, "Heading3", "H3", HT_BOLD, 1.0, HT_BLACK, 0, 0, 32, 32, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleHeading4 = { &HTStyleHeading3, "Heading4", "H4", HT_BOLD, 1.0, HT_BLACK, 0, 0, 32, 32, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleHeading5 = { &HTStyleHeading4, "Heading5", "H5", HT_BOLD, 1.0, HT_BLACK, 0, 0, 64, 64, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleHeading6 = { &HTStyleHeading5, "Heading6", "H6", HT_BOLD, 1.0, HT_BLACK, 0, 0, 128, 128, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; PUBLIC HTStyle HTStyleHeading7 = { &HTStyleHeading6, "Heading7", "H7", HT_BOLD, 1.0, HT_BLACK, 0, 0, 160, 170, 0, HT_LEFT, 1, 0, 0, YES, NO, 1, 0, 0 }; /* Style sheet points to the last in the list: */ PUBLIC HTStyleSheet sheet = { "default.style", &HTStyleHeading7 }; /* sheet */ PUBLIC HTStyleSheet * styleSheet = &sheet; StyleXPM, "XBM", "XBM", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleIcon = { &HTStyleXBM, "Icon", "ICON", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStylePS = { &HTStyleIcon, "Hidden", "PS", HT_NORMAL, 1.0, HT_BLACK, 0, 0, 32, 32, 32, HT_LEFT, 1, 0, 0, YES, NO, 1, 1, 0 }; PUBLIC HTStyle HTStyleOrderedList = { &HTStylePS, "OrderedLiviola/src/DefaultStyles.h 644 6757 17 305 5234652500 10767 extern HTStyle HTStyleList; extern HTStyle HTStyleOrderedList; extern HTStyle HTStyleMenu; extern HTStyle HTStyleListCompact; extern HTStyle HTStyleColumns16; extern HTStyle HTStyleListDirectory; iop.cpbiop.hzp cexec.cp!cexec.h p"cgen.cp#cgen.hp0p$ cl_BCard.cDp% cl_BCard.hXp& cl_FCard.c#lp' cl_FCard.hp(cl_GIF.cPp)cl_GIF.h8p* cl_HTML.cp+ cl_HTML.h4p,cl_Pviola/src/Imakefile 644 6757 17 4250 5231046047 7662 LOCAL_LIBRARIES = ../libXPM/libXpm.a $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) $(XLIB) $(XMULIB) SYS_LIBRARIES = -lm LDCOMBINEFLAGS = CDEBUGFLAGS = -g CC = cc WWW_BIN = ../libWWW/src XPA_BIN = ../libXPA/src SRCS = $(SRCS_VIOLA) SRCS_VIOLA = DefaultStyles.c \ ast.c \ attr.c \ biop.c \ cexec.c \ cgen.c \ cl_BCard.c \ cl_FCard.c \ cl_GIF.c \ cl_HTML.c \ cl_PS.c \ cl_TTY.c \ cl_XBM.c \ cl_XBMButton.c \ cl_XPM.c \ cl_XPMButton.c \ cl_client.c \ cl_cosmic.c \ cl_dial.c \ cl_field.c \ cl_generic.c \ cl_glass.c \ cl_hpane.c \ cl_menu.c \ cl_pane.c \ cl_project.c \ cl_radio.c \ cl_rubber.c \ cl_slider.c \ cl_socket.c \ cl_stack.c \ cl_toggle.c \ cl_tray.c \ cl_txt.c \ cl_txtButton.c \ cl_txtDisp.c \ cl_txtEdit.c \ cl_txtLabel.c \ cl_vpane.c \ class.c \ classlist.c \ error.c \ event.c \ event_x.c \ file.c \ glib.c \ glib_x.c \ gram.c \ hash.c \ html.c \ ident.c \ loader.c \ main.c \ method.c \ misc.c \ mystrings.c \ obj.c \ packet.c \ scan.l \ scanutils.c \ slib.c \ sys.c \ tfed.c \ vlist.c OBJS = $(OBJS_VIOLA) $(OBJS_WWW) $(OBJS_XPA) OBJS_VIOLA = DefaultStyles.o \ ast.o \ attr.o \ biop.o \ cexec.o \ cgen.o \ cl_BCard.o \ cl_FCard.o \ cl_GIF.o \ cl_HTML.o \ cl_PS.o \ cl_TTY.o \ cl_XBM.o \ cl_XBMButton.o \ cl_XPM.o \ cl_XPMButton.o \ cl_client.o \ cl_cosmic.o \ cl_dial.o \ cl_field.o \ cl_generic.o \ cl_glass.o \ cl_hpane.o \ cl_menu.o \ cl_pane.o \ cl_project.o \ cl_radio.o \ cl_rubber.o \ cl_slider.o \ cl_socket.o \ cl_stack.o \ cl_toggle.o \ cl_tray.o \ cl_txt.o \ cl_txtButton.o \ cl_txtDisp.o \ cl_txtEdit.o \ cl_txtLabel.o \ cl_vpane.o \ class.o \ classlist.o \ error.o \ event.o \ event_x.o \ file.o \ glib.o \ glib_x.o \ gram.o \ hash.o \ html.o \ ident.o \ loader.o \ main.o \ method.o \ misc.o \ mystrings.o \ obj.o \ packet.o \ scan.o \ scanutils.o \ slib.o \ sys.o \ tfed.o \ vlist.o OBJS_WWW = $(WWW_BIN)/libW3.a OBJS_XPA = $(XPA_BIN)/libXpa.a ComplexProgramTarget(viola) pglib_x.cIpglib_x.h ̾pgram.cp gram.outputpgram.y\phash.cphash.h5phtml.cDphtml.h pident.c0pident.hDp keyboard.hXplisten.c@lploader.cnploader.hs7apmain.cviola/src/ascii.h 640 6757 17 1374 5231040155 7304 /* * for Keyboard mapping (how adequate is this?) */ #define ASCII_A 65 #define ASCII_D 68 #define ASCII_a 97 #define ASCII_d 100 #define ASCII_v 118 #define ASCII_z 122 #define TAB 9 #define RETURN 13 #define BACK_SPACE 8 #define DELETE 127 #define CTRL_QUESTION 31 #define ESC 27 #define CTRL_a 1 #define CTRL_b 2 #define CTRL_c 3 #define CTRL_d 4 #define CTRL_e 5 #define CTRL_f 6 #define CTRL_g 7 #define CTRL_h 8 #define CTRL_i 9 #define CARRIAGE 10 #define CTRL_j 10 #define CTRL_k 11 #define CTRL_l 12 #define CTRL_m 13 #define CTRL_n 14 #define CTRL_o 15 #define CTRL_p 16 #define CTRL_q 17 #define CTRL_r 18 #define CTRL_s 19 #define CTRL_t 20 #define CTRL_u 21 #define CTRL_v 22 #define CTRL_w 23 #define CTRL_x 24 #define CTRL_y 25 #define CTRL_z 26 p9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.c#<p> cl_dial.h;VPp? cl_field.c dp@ cl_field.h|pA cl_generic.cdpB cl_generic.ho6pC cl_gviola/src/ast.c 640 6757 17 7000 5231040155 6766 /* * ast.c */ /* * Copyright 1991 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ #include #include #include "y.tab.h" #include "ast.h" AST *ASTStack; int ASTStackSize = DEFAULT_AST_STACK_SIZE; /* overiden with option, if large script is anticipated */ int ASTStackIdx = 0; int ASTTypeStrSize; char *ASTTypeStr[] = { "EXPR_PLUS", /* the EXPR's must be grouped in the front. */ "EXPR_MINUS", /* because codeGen() depends on it */ "EXPR_MOD", "EXPR_MULT", "EXPR_DIV", "EXPR_EQ", "EXPR_NE", "EXPR_LT", "EXPR_LE", "EXPR_GT", "EXPR_GE", "EXPR_AND", "EXPR_OR", "EXPR_CMP", /* end of EXPR's grouping */ "LIST", "LISTC", "STACK", "MOVTO", "MOVTO_LIST", "CALL", "CHAR", "IF", "INTEGER", "FLOAT", "STMTS", "STRING", "WHILE", "RETURN", "SWITCH", "CASE", "CASE_SEG", "CASE_CLAUSE", "DEFAULT_CLAUSE", "BREAK", "BODY", "EXPR", "DO", "FOR", "INC_PRE", "INC_POST", "DEC_PRE", "DEC_POST", "UMINUS", "PLUS_MOVTO", "MINUS_MOVTO", "MOD_MOVTO", "MULT_MOVTO", "DIV_MOVTO", "PERSISTENT", "REF", "LIST_REF", NULL }; char myinput() { char c = yyscript[yyscriptidx++]; if (c == '\n') yylineno++; return c; } int init_ast() { for (ASTTypeStrSize = 0; ASTTypeStr[ASTTypeStrSize]; ASTTypeStrSize++); do { if (ASTStackSize < 50) { fprintf(stderr, "can't get enough memory...\n"); return 0; } ASTStack = (AST*)malloc(ASTStackSize * sizeof (struct AST)); if (!ASTStack) { ASTStackSize = ASTStackSize / 2; fprintf(stderr, "trying to malloc for AST stack (size=%d)\n", ASTStackSize); } } while (!ASTStackSize); return 1; } AST *makeAST(type) int type; { if (++ASTStackIdx >= ASTStackSize) { /* try to make a larger AST stack... */ fprintf(stderr, "internal error: AST stack overflow: ASTStackIdx=%d, ASTStackSize=%d.\n", ASTStackIdx, ASTStackSize); fprintf(stderr, "use ``-astack'' option to allocate larger stack.\n"); /* XXX unimplemented */ exit(1); } bzero(&ASTStack[ASTStackIdx], sizeof(struct AST)); ASTStack[ASTStackIdx].type = type; ASTStack[ASTStackIdx].lineno = yylineno; return &ASTStack[ASTStackIdx]; } int countASTSiblings(ast) AST *ast; { int i; for (i = 0; ast; ast = ast->next) i++; return i; } void printAST(ast, tab) AST *ast; int tab; { int i; AST *children; for (; ast; ast = ast->next) { fprintf(stderr, "%d\t", ast->lineno); for (i = 0; i < tab; i++) putc(' ', stderr); fprintf(stderr, "%s\t", ASTTypeStr[ast->type]); switch (ast->type) { case AST_CALL: case AST_REF: fprintf(stderr, "info=%d", ast->attribute.info.i); break; case AST_STRING: fprintf(stderr, "info=\"%s\"", (char*)(ast->attribute.info.s)); break; case AST_CHAR: fprintf(stderr, "info='%c' (%d)", (char)(ast->attribute.info.c), (int)(ast->attribute.info.c)); break; case AST_FLOAT: fprintf(stderr, "info=%f", (float)(ast->attribute.info.f)); break; case AST_INTEGER: default: fprintf(stderr, "info=%d", (int)(ast->attribute.info.i)); break; } putc('\n', stderr); if (ast->children) printAST(ast->children, tab + 4); } } viola/src/ast.h 640 6757 17 3676 5231040155 7012 /* * Abstract Syntax Tree abstraction. */ #define DEFAULT_AST_STACK_SIZE 3000 #define SCRIPT_ORIGIN_OBJ_SCRIPT 0 #define SCRIPT_ORIGIN_CLASS_SCRIPT 1 #define SCRIPT_ORIGIN_TEMPORARY 2 extern FILE *yyin, *yyout; /*extern unsigned char yytext[];*/ extern int yylineno; extern int yytchar; extern int yyleng; extern char *yyscript; extern int yyscriptidx; extern char *yyobjcontext; extern int yyscriptcontext; extern char myinput(); #ifdef input #undef input #endif #define input() myinput() #ifdef unput #undef unput #endif #define unput(c) {if ((yyscript[--yyscriptidx] = c) == '\n') yylineno--;} enum ASTTypes { AST_EXPR_PLUS, AST_EXPR_MINUS, AST_EXPR_MOD, AST_EXPR_MULT, AST_EXPR_DIV, AST_EXPR_EQ, AST_EXPR_NE, AST_EXPR_LT, AST_EXPR_LE, AST_EXPR_GT, AST_EXPR_GE, AST_EXPR_AND, AST_EXPR_OR, AST_EXPR_CMP, AST_LIST, AST_LISTC, AST_STACK, AST_MOVTO, AST_MOVTO_LIST, AST_CALL, AST_CHAR, AST_IF, AST_INTEGER, AST_FLOAT, AST_STMTS, AST_STRING, AST_WHILE, AST_RETURN, AST_SWITCH, AST_CASE, AST_CASE_SEG, AST_CASE_CLAUSE, AST_DEFAULT_CLAUSE, AST_BREAK, AST_BODY, AST_EXPR, AST_DO, AST_FOR, AST_INC_PRE, AST_INC_POST, AST_DEC_PRE, AST_DEC_POST, AST_UMINUS, AST_PLUS_MOVTO, AST_MINUS_MOVTO, AST_MOD_MOVTO, AST_MULT_MOVTO, AST_DIV_MOVTO, AST_PERSISTENT, AST_REF, AST_LIST_REF, }; /* Attributes holder for AST (see below) */ typedef struct ATT { struct ATT *next; union { int i; float f; char c; char *s; } info; } ATT; /* Abstract Syntac Tree */ typedef struct AST { struct AST *next; /* sibling nodes */ struct AST *children; /* children nodes */ struct AST *parent; /* parent node */ struct ATT attribute; /* attribute */ int lineno; /* source line number */ int type; /* node type */ } AST; extern int ASTStackIdx; extern int ASTTypeStrSize; extern char *ASTTypeStr[]; #define clearASTStack() ASTStackIdx = 0 extern int init_ast(); extern int countASTSiblings(); extern AST *makeAST(); pevent.c pevent.h p event_x.c4viola/src/attr.c 640 6757 17 1506 5231040156 7157 /* * attr.c */ /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ #include #include "mystrings.h" #include "vlist.h" #include "attr.h" Attr *makeAttr(id, val) long id; long val; { Attr *attr = (Attr*)malloc(sizeof(struct Attr)); if (attr) { attr->id = id; attr->val = val; attr->next = NULL; return attr; } fprintf(stderr, "malloc() failed\n"); return NULL; } l.h9Pp? cl_field.cmdp@ cl_field.hU|pA cl_generic.ck[pB cl_generic.hpC cl_glass.cWpD cl_glass.hpE cl_hpane.cviola/src/attr.h 640 6757 17 1227 5231040156 7164 /* * attr.h */ typedef struct Attr { struct Attr *next; /* must be the first item (see vlist.h) */ long id; /* must be the second item (see vlist.h) */ long val; } Attr; Attr *makeAttr(); /* * scans and return the attribute node identified by ``id''. */ #define scanAttr(head_attr, id)\ (Attr*)scanVListNode((VList**)head_attr, id, cmp_int) /* * remove and return the attribute node identified by ``id''. */ #define removeAttr(head_attr, id)\ (Attr*)removeVListNode((VList**)head_attr, id, cmp_int) /* * prepend and return the attribute node. */ #define prependAttr(head_attr, attr)\ (Attr*)prependVListNode((VList**)head_attr, (VList*)attr) cl_XPMButton.hp9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.c<p> cl_dial.h)Pp? cl_field.c<dp@ cl_field.h<|pA cl_generic.cDnpB cl_generic.hGpC cl_glass.cpD cl_glass.h8pE cl_hpane.c}pF cl_hpane.hviola/src/biop.c 640 6757 17 31266 5231040156 7164 /* * when things work, send a black hole here to collapse things... */ #include #include "mystrings.h" #include "hash.h" #include "obj.h" #include "packet.h" #include "slotaccess.h" #include "biop.h" #include "misc.h" int i; char *cp, *cp1, *cp2; typedef struct ProcPair { void (*lf)(); void (*rf)(); } ProcPair; typedef struct ConvIdx { void (*(*opftTable)[4][4])(); ProcPair (*procTable)[4][4]; } ConvIdx; ProcPair conv1[4][4] = { /* for + - * / > >= < <= == != */ { { NULL, NULL /* int, int -> int */ },{ NULL, char2int /* int, char -> int */ },{ int2float, NULL /* int, float -> float*/ },{ int2str, NULL /* int, str -> str */ } },{ { NULL, NULL /* char, int -> int */ },{ NULL, NULL /* char, char -> char */ },{ char2float, NULL /* char, float -> float*/ },{ char2str, NULL /* char, str -> str */ } },{ { NULL, int2float /* float, int -> float*/ },{ NULL, char2float /* float, char -> float*/ },{ NULL, NULL /* float, float -> float*/ },{ float2str, NULL /* float, str -> str */ } },{ { NULL, int2str /* str, int -> str */ },{ NULL, char2str /* str, char -> str */ },{ NULL, float2str /* str, float -> str */ },{ NULL, NULL /* str, str -> str */ } } }; ProcPair conv2[4][4] = { /* for integer operation... mod? */ { { NULL, NULL /* int, int -> int */ },{ NULL, char2int /* int, char -> int */ },{ NULL, float2int /* int, float -> int */ },{ NULL, str2int /* int, str -> int */ } },{ { char2int, NULL /* char, int -> int */ },{ char2int, char2int /* char, char -> int */ },{ char2int, float2int /* char, float -> int */ },{ char2int, str2int /* char, str -> int */ } },{ { float2int, NULL /* float, int -> int */ },{ float2int, char2int /* float, char -> int */ },{ float2int, float2int /* float, float -> int */ },{ float2int, str2int /* float, str -> int */ } },{ { str2int, NULL /* str, int -> int */ },{ str2int, char2int /* str, char -> int */ },{ str2int, float2int /* str, float -> int */ },{ str2int, str2int /* str, str -> int */ } } }; /* * operation function tables */ void (*opft_plus[4][4])() = { int_plus, int_plus, float_plus, str_plus, int_plus, char_plus, float_plus, str_plus, float_plus, float_plus, float_plus, str_plus, str_plus, str_plus, str_plus, str_plus, }; void (*opft_minus[4][4])() = { int_minus, int_minus, float_minus, str_minus, int_minus, char_minus, float_minus, str_minus, float_minus, float_minus, float_minus, str_minus, str_minus, str_minus, str_minus, str_minus, }; void (*opft_mod[4][4])() = { int_mod, int_mod, float_mod, str_mod, int_mod, char_mod, float_mod, str_mod, float_mod, float_mod, float_mod, str_mod, str_mod, str_mod, str_mod, str_mod, }; void (*opft_mult[4][4])() = { int_mult, int_mult, float_mult, str_mult, int_mult, char_mult, float_mult, str_mult, float_mult, float_mult, float_mult, str_mult, str_mult, str_mult, str_mult, str_mult, }; void (*opft_div[4][4])() = { int_div, int_div, float_div, str_div, int_div, char_div, float_div, str_div, float_div, float_div, float_div, str_div, str_div, str_div, str_div, str_div, }; void (*opft_eq[4][4])() = { int_eq, int_eq, float_eq, str_eq, int_eq, char_eq, float_eq, str_eq, float_eq, float_eq, float_eq, str_eq, str_eq, str_eq, str_eq, str_eq, }; void (*opft_ne[4][4])() = { int_ne, int_ne, float_ne, str_ne, int_ne, char_ne, float_ne, str_ne, float_ne, float_ne, float_ne, str_ne, str_ne, str_ne, str_ne, str_ne, }; void (*opft_gt[4][4])() = { int_gt, int_gt, float_gt, str_gt, int_gt, char_gt, float_gt, str_gt, float_gt, float_gt, float_gt, str_gt, str_gt, str_gt, str_gt, str_gt, }; void (*opft_ge[4][4])() = { int_ge, int_ge, float_ge, str_ge, int_ge, char_ge, float_ge, str_ge, float_ge, float_ge, float_ge, str_ge, str_ge, str_ge, str_ge, str_ge, }; void (*opft_lt[4][4])() = { int_lt, int_lt, float_lt, str_lt, int_lt, char_lt, float_lt, str_lt, float_lt, float_lt, float_lt, str_lt, str_lt, str_lt, str_lt, str_lt, }; void (*opft_le[4][4])() = { int_le, int_le, float_le, str_le, int_le, char_le, float_le, str_le, float_le, float_le, float_le, str_le, str_le, str_le, str_le, str_le, }; void (*opft_and[4][4])() = { int_and, int_and, float_and, str_and, int_and, char_and, float_and, str_and, float_and, float_and, float_and, str_and, str_and, str_and, str_and, str_and, }; void (*opft_or[4][4])() = { int_or, int_or, float_or, str_or, int_or, char_or, float_or, str_or, float_or, float_or, float_or, str_or, str_or, str_or, str_or, str_or, }; ConvIdx biOpConvIdx[] = { { opft_plus, conv1 },{ opft_minus, conv1 },{ opft_mod, conv2 },{ opft_mult, conv1 },{ opft_div, conv1 },{ opft_eq, conv1 },{ opft_ne, conv1 },{ opft_lt, conv1 },{ opft_le, conv1 },{ opft_gt, conv1 },{ opft_ge, conv1 },{ opft_and, conv2 /*?*/ },{ opft_or, conv2 /*?*/ } }; int biOp(op, p1, p2) int op; Packet *p1; Packet *p2; { void (*biOpFunc)(), (*convf)(); ProcPair *convPair; if (p1->type == 4) { /* this is not efficient... should map * PKT_OBJ type into biop.c */ p1->type = PKT_STR; p1->info.s = p1->info.o ? GET_name(p1->info.o) : ""; } if (p1->type == 5) { p1->type = p1->info.p->type; p1->info = p1->info.p->info; } if (p2->type == 4) { /* this is not efficient... should map * PKT_OBJ type into biop.c */ p2->type = PKT_STR; p2->info.s = p2->info.o ? GET_name(p2->info.o) : ""; } if (p2->type == 5) { p2->type = p2->info.p->type; p2->info = p2->info.p->info; } convPair = &((*biOpConvIdx[op].procTable)[p1->type][p2->type]); if (convf = convPair->lf) convf(p1); if (convf = convPair->rf) convf(p2); biOpFunc = (*biOpConvIdx[op].opftTable)[p1->type][p2->type]; biOpFunc(p1, p2); return 1; } void convError() { fprintf(stderr, "conversion error...\n"); } void int2float(p) Packet *p; { p->type = PKT_FLT; p->info.f = (float)p->info.i; } void int2str(p) Packet *p; { p->type = PKT_STR; sprintf(buff, "%d", p->info.i); p->info.s = SaveString(buff); } void char2int(p) Packet *p; { p->type = PKT_INT; p->info.i = (int)p->info.c; } void char2float(p) Packet *p; { p->type = PKT_FLT; p->info.f = (float)p->info.c; } void char2str(p) Packet *p; { p->type = PKT_STR; p->info.s = (char*)malloc(sizeof(char) * 2); p->info.s[0] = p->info.c; p->info.s[1] = '\0'; } void float2str(p) Packet *p; { p->type = PKT_STR; sprintf(buff, "%f", p->info.f); p->info.s = SaveString(buff); } void float2int(p) Packet *p; { p->type = PKT_INT; p->info.i = (int)p->info.f; } void str2int(p) Packet *p; { p->type = PKT_INT; p->info.i = atoi(p->info.s); } void str2float(p) Packet *p; { p->type = PKT_FLT; p->info.f = (float)atof(p->info.s); } void int_plus(p1, p2) Packet *p1; Packet *p2; { p1->info.i += p2->info.i; } void char_plus(p1, p2) Packet *p1; Packet *p2; { p1->info.c += p2->info.c; } void float_plus(p1, p2) Packet *p1; Packet *p2; { p1->info.f += p2->info.f; } void str_plus(p1, p2) Packet *p1; Packet *p2; { cp1 = PkInfo2Str(p1); cp2 = PkInfo2Str(p2); cp = (char*)malloc(sizeof(char) * (strlen(cp1) + strlen(cp2) + 1)); strcpy(cp, cp2); strcat(cp, cp1); /* safe to free ?*/ /* free(p1->info.s); free(p2->info.s); */ p1->info.s = cp; } void int_minus(p1, p2) Packet *p1; Packet *p2; { p1->info.i -= p2->info.i; } void char_minus(p1, p2) Packet *p1; Packet *p2; { p1->info.c -= p2->info.c; } void float_minus(p1, p2) Packet *p1; Packet *p2; { p1->info.f -= p2->info.f; } void str_minus(p1, p2) Packet *p1; Packet *p2; { /* huh? */ } void int_mod(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i % p2->info.i; } void char_mod(p1, p2) Packet *p1; Packet *p2; { p1->info.c = p1->info.c % p2->info.c; } void float_mod(p1, p2) Packet *p1; Packet *p2; { p1->info.f = (int)p1->info.f % (int)p2->info.f; /*??*/ } void str_mod(p1, p2) Packet *p1; Packet *p2; { /* hummm */ } void int_mult(p1, p2) Packet *p1; Packet *p2; { p1->info.i *= p2->info.i; } void char_mult(p1, p2) Packet *p1; Packet *p2; { p1->info.c *= p2->info.c; } void float_mult(p1, p2) Packet *p1; Packet *p2; { p1->info.f *= p2->info.f; } void str_mult(p1, p2) Packet *p1; Packet *p2; { /* there is no possibility */ } void int_div(p1, p2) Packet *p1; Packet *p2; { if (p2->info.i) { p1->info.i /= p2->info.i; return; } else { fprintf(stderr, "error: int_div() div by zero.\n"); } } void char_div(p1, p2) Packet *p1; Packet *p2; { if (p2->info.c) { p1->info.c /= p2->info.c; return; } else { fprintf(stderr, "error: char_div() div by zero.\n"); } } void float_div(p1, p2) Packet *p1; Packet *p2; { if (p2->info.f) { p1->info.f /= p2->info.f; return; } else { fprintf(stderr, "error: float_div() div by zero.\n"); } } void str_div(p1, p2) Packet *p1; Packet *p2; { /* get out of here! */ } void int_eq(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i == p2->info.i; } void char_eq(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.c == p2->info.c; p1->type = PKT_INT; } void float_eq(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.f == p2->info.f; p1->type = PKT_INT; } void str_eq(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { if (!p1->info.s && !p2->info.s) p1->info.i = 1; else p1->info.i = 0; } else { p1->info.i = ((*(p1->info.s) == *(p2->info.s)) ? (strcmp(p1->info.s, p2->info.s) ? 0 : 1) : 0); } } void int_ne(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i != p2->info.i; } void char_ne(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c != p2->info.c; } void float_ne(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f != p2->info.f; } void str_ne(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { if (!p1->info.s && !p2->info.s) p1->info.i = 0; else p1->info.i = 1; } else { p1->info.i = ((*(p1->info.s) != *(p2->info.s)) ? 1 : (strcmp(p1->info.s, p2->info.s) ? 1 : 0)); } } void int_lt(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i < p2->info.i; } void char_lt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c < p2->info.c; } void float_lt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f < p2->info.f; } void str_lt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { p1->info.i = 0; /* not meaningful... */ } else { p1->info.i = (strcmp(p1->info.s, p2->info.s) < 0); } } void int_le(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i <= p2->info.i; } void char_le(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c <= p2->info.c; } void float_le(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f <= p2->info.f; } void str_le(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { p1->info.i = 0; /* not meaningful... */ } else { p1->info.i = (strcmp(p1->info.s, p2->info.s) <= 0); } } void int_gt(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i > p2->info.i; } void char_gt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c > p2->info.c; } void float_gt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f > p2->info.f; } void str_gt(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { p1->info.i = 0; /* not meaningful... */ } else { p1->info.i = (strcmp(p1->info.s, p2->info.s) > 0); } } void int_ge(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i >= p2->info.i; } void char_ge(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c >= p2->info.c; } void float_ge(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f >= p2->info.f; } void str_ge(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; if (!p1->info.s || !p2->info.s) { p1->info.i = 0; /* not meaningful... */ } else { p1->info.i = (strcmp(p1->info.s, p2->info.s) >= 0); } } void int_and(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i && p2->info.i; } void char_and(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c && p2->info.c; } void float_and(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f && p2->info.f; } void str_and(p1, p2) Packet *p1; Packet *p2; { /* get with it. */ } void int_or(p1, p2) Packet *p1; Packet *p2; { p1->info.i = p1->info.i || p2->info.i; } void char_or(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.c || p2->info.c; } void float_or(p1, p2) Packet *p1; Packet *p2; { p1->type = PKT_INT; p1->info.i = p1->info.f || p2->info.f; } void str_or(p1, p2) Packet *p1; Packet *p2; { /* sheesh... */ } viola/src/biop.h 640 6757 17 2052 5231040156 7140 /* * biop.h */ int biOp(); void convError(); void int2float(); void int2str(); void char2int(); void char2float(); void char2str(); void float2str(); void float2int(); void str2int(); void str2float(); void char_plus(); void float_plus(); void str_plus(); void int_plus(); void int_minus(); void int_mod(); void char_minus(); void float_minus(); void str_minus(); void char_mod(); void float_mod(); void str_mod(); void int_mult(); void char_mult(); void float_mult(); void str_mult(); void int_div(); void char_div(); void float_div(); void str_div(); void int_eq(); void char_eq(); void float_eq(); void str_eq(); void int_ne(); void char_ne(); void float_ne(); void str_ne(); void int_lt(); void char_lt(); void float_lt(); void str_lt(); void int_le(); void char_le(); void float_le(); void str_le(); void int_gt(); void char_gt(); void float_gt(); void str_gt(); void int_ge(); void char_ge(); void float_ge(); void str_ge(); void int_and(); void char_and(); void float_and(); void str_and(); void int_or(); void char_or(); void float_or(); void str_or(); .c p6cl_XPM.h"p7cl_XPMButton.c1p8cl_XPMButton.htp9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.cs<p> cl_dial.hPp? cl_field.cwdp@ cl_field.hx|pA cl_generic.c-pB cl_generic.htpC cl_glass.cpD cl_glass.hpE cl_hpane.cepF cl_hpane.h%p cl_menu.c p cl_mviola/src/cexec.c 640 6757 17 104110 5231040157 7330 /* * cexec.c * * Pseudo-code execution procedures */ /* * Copyright 1992 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ #include #include "hash.h" #include "obj.h" #include "packet.h" #include "class.h" #include "y.tab.h" #include "ast.h" #include "slotaccess.h" #include "cgen.h" #include "cexec.h" #include "vlist.h" #include "attr.h" #include "mystrings.h" #include "ident.h" #include "scanutils.h" int i; Packet reg1; Packet reg2; Packet *packetp; Attr *attrp; HashEntry *entry; char *passthru_argument= ""; int flag_printExec = 0; int flag_vwatch = 0; #define EXEC_STACK_SIZE_INCREMENT 10000 int execStackSize = 0; int execStackSizeCheck = 0; Packet *execStack; long stackExecIdx = -1; long stackBaseIdx = -1; int arg_strid; union PCode pcode_buff[5000]; /* limit on maximum opcode size */ int init_cexec() { arg_strid = storeIdent("arg"); /* can just dump this is ident list? */ return incrementExecStack(); } /* reallocating the stack is unsafe because of the stack's usage ... * oh well, just start out with a large enough stack, I guess. * a *real* solution is too expensive. */ int incrementExecStack() { Packet *newStack; newStack = (Packet*)malloc(sizeof(struct Packet*) * (execStackSize + EXEC_STACK_SIZE_INCREMENT)); if (!newStack) { return 0; } if (execStackSize > 0) { bcopy(newStack, execStack, execStackSize * sizeof(struct Packet*)); /* free(execStack);*/ } execStackSize = execStackSize + EXEC_STACK_SIZE_INCREMENT; execStackSizeCheck = execStackSize - 100; /* 100 as arbitrary margin */ execStack = newStack; return (int)execStack; } int getlistcount(pcode, stackBaseIdx) union PCode **pcode; int stackBaseIdx; { packetp = execStack[stackBaseIdx - (*(*pcode)++).i].info.p; for (i = 0, attrp = packetp->info.a; attrp; attrp = attrp->next) i++; return i; } dumpStack() { for (i = 0; i < stackExecIdx; i++) { printf(": %d\t ", i); dumpPacket(&execStack[i]); printf("\n"); } } Packet *getlistitem(pcode, stackBaseIdx) union PCode **pcode; int stackBaseIdx; { /* printf("****stackExecIdx=%d stackBaseIdx=%d pcode=%d reg=%d\n", stackExecIdx, stackBaseIdx, (*(*pcode)).i, reg1.info.i); dumpStack(); */ packetp = execStack[stackBaseIdx - (*(*pcode)++).i].info.p; /* printf("****packet ="); dumpPacket(packetp); printf("\n"); */ attrp = scanAttr(&(packetp->info.a), reg1.info.i); if (!attrp) { printf("undefined list item (id=%d)\n", reg1.info.i); return NULL; } packetp = (Packet*)attrp->val; return packetp; } makeArgList(obj, argc) VObj *obj; int argc; { int i; Attr *attrlist = NULL; Attr *varlist = GET__varList(obj); if (varlist) { attrlist = scanAttr(varlist, arg_strid); if (attrlist) { /* free attribute list */ attrlist = NULL; /*XXX*/ } } for (i = 0; i < argc; i++) { packetp = &(execStack[stackExecIdx - i]); /* printf("arg[%d]=", argc - i - 1); dumpPacket(packetp); printf("<<<\n"); */ attrp = makeAttr(argc - i - 1, (long)packetp); prependAttr(&attrlist, attrp); } if (!varlist) { attrp = makeAttr(arg_strid, NULL); SET__varList(obj, attrp); } else { attrp = scanAttr(&varlist, arg_strid); if (!attrp) { attrp = makeAttr(arg_strid, NULL); prependAttr(&varlist, attrp); } } packetp = makePacket(); packetp->info.a = attrlist; packetp->type = PKT_ATR; attrp->val = (long)packetp; } void dumpVarList(varlist) Attr *varlist; { Attr *attrlist; Attr *attrp2; int i = 0; for (attrp = varlist; attrp; attrp = attrp->next) { printf("%d) id=%d=\"%s\" ", i, attrp->id, (char*)getHashEntry(symID2Str, attrp->id)); packetp = (Packet*)attrp->val; if (packetp->type == PKT_ATR) { dumpPacket(packetp); printf(":\n"); for (attrp2 = packetp->info.a; attrp2; attrp2 = attrp2->next) { printf("\tid=%d,", attrp2->id); dumpPacket((Packet*)(attrp2->val)); printf(";\n"); } } else { dumpPacket(packetp); } printf(";\n"); i++; } printf("<\n"); } /* * should optimize this procedure... */ Packet *codeExec(self, pcode, pcode_start, pcode_end) VObj *self; union PCode *pcode; union PCode *pcode_start; union PCode *pcode_end; { int currBaseIdx = stackBaseIdx; while (pcode < pcode_end) { extern char *PCodeStr[]; if (flag_printExec) { fprintf(stderr, "pc=%d\tcurrBaseIdx=%d\tstackExecIdx=%d\n", pcode - pcode_start, currBaseIdx, stackExecIdx); } switch ((*pcode++).x) { case CODE_INTEGER: reg1.info.i = (*pcode++).i; reg1.type = PKT_INT; break; case CODE_CHAR: reg1.info.c = (*pcode++).c; reg1.type = PKT_CHR; break; case CODE_FLOAT: reg1.info.f = (*pcode++).f; reg1.type = PKT_FLT; break; case CODE_STRING: reg1.info.s = (*pcode++).s; reg1.type = PKT_STR; break; case CODE_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg1.info = packetp->info; /* switch (packetp->type) { case PKT_INT: reg1.info.i = packetp->info.i; break; case PKT_CHR: reg1.info.c = packetp->info.c; break; case PKT_FLT: reg1.info.f = packetp->info.f; break; case PKT_STR: reg1.info.s = packetp->info.s; break; case PKT_OBJ: reg1.info.o = packetp->info.o; break; case PKT_ATR: reg1.info.a = packetp->info.a; break; default: fprintf(stderr, "%d\tid=%d UNKNOWN TYPE\n", pcode - pcode_start - 1, *(pcode-1)); break; } */ reg1.type = packetp->type; break; case CODE_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = packetp->info; reg1.type = packetp->type; } break; case CODE_LISTC: reg1.info.i = getlistcount(&pcode, currBaseIdx); reg1.type = PKT_INT; break; case CODE_LIST_REF: packetp = execStack[currBaseIdx - (*pcode++).i].info.p; if (packetp) { reg1.info = packetp->info; reg1.type = packetp->type; } break; /* DEC */ case CODE_INC_PRE: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg1.info.i = ++(packetp->info.i); reg1.type = PKT_INT; break; case CODE_INC_POST: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg1.info.i = (packetp->info.i)++; reg1.type = PKT_INT; break; /* INC */ case CODE_DEC_PRE: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg1.info.i = --(packetp->info.i); reg1.type = PKT_INT; break; case CODE_DEC_POST: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg1.info.i = (packetp->info.i)--; reg1.type = PKT_INT; break; /* DIV */ case CODE_DIV_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_DIV, ®1, ®2); break; case CODE_DIV_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_DIV, ®1, ®2); break; case CODE_DIV_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_DIV, ®1, ®2); break; case CODE_DIV_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_DIV, ®1, ®2); break; case CODE_DIV_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_DIV, ®1, ®2); break; case CODE_DIV_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_DIV, ®1, ®2); } break; case CODE_DIV_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_DIV, ®1, ®2); break; /* PLUS */ case CODE_PLUS_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_PLUS, ®1, ®2); break; case CODE_PLUS_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_PLUS, ®1, ®2); } break; case CODE_PLUS_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_PLUS, ®1, ®2); break; /* MINUS */ case CODE_MINUS_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_MINUS, ®1, ®2); break; case CODE_MINUS_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_MINUS, ®1, ®2); break; case CODE_MINUS_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_MINUS, ®1, ®2); break; case CODE_MINUS_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_MINUS, ®1, ®2); break; case CODE_MINUS_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_MINUS, ®1, ®2); break; case CODE_MINUS_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_MINUS, ®1, ®2); } break; case CODE_MINUS_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_MINUS, ®1, ®2); break; /* MULT */ case CODE_MULT_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_MULT, ®1, ®2); break; case CODE_MULT_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_MULT, ®1, ®2); break; case CODE_MULT_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_MULT, ®1, ®2); break; case CODE_MULT_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_MULT, ®1, ®2); break; case CODE_MULT_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_MULT, ®1, ®2); break; case CODE_MULT_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_MULT, ®1, ®2); } break; case CODE_MULT_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_MULT, ®1, ®2); break; /* AND && */ case CODE_AND_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_AND, ®1, ®2); break; case CODE_AND_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_AND, ®1, ®2); break; case CODE_AND_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_AND, ®1, ®2); break; case CODE_AND_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_AND, ®1, ®2); break; case CODE_AND_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_AND, ®1, ®2); break; case CODE_AND_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_AND, ®1, ®2); } break; case CODE_AND_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_AND, ®1, ®2); break; /* OR || */ case CODE_OR_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_OR, ®1, ®2); break; case CODE_OR_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_OR, ®1, ®2); break; case CODE_OR_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_OR, ®1, ®2); break; case CODE_OR_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_OR, ®1, ®2); break; case CODE_OR_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_OR, ®1, ®2); break; case CODE_OR_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_OR, ®1, ®2); } break; case CODE_OR_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_OR, ®1, ®2); break; /* EQ == */ case CODE_EQ_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_EQ, ®1, ®2); } break; case CODE_EQ_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_EQ, ®1, ®2); break; case CODE_EQ_STACK: reg2.info = execStack[stackExecIdx].info; reg2.type = execStack[stackExecIdx].type; if (reg2.type == 4) { /* this is not efficient... should map * PKT_OBJ type into biop.c */ reg2.type = PKT_STR; reg2.info.s = GET_name(reg2.info.o); } if (reg2.type == 5) { reg2.type = reg2.info.p->type; reg2.info = reg2.info.p->info; /* dumpPacket(®2); printf("\n"); */ } biOp(CODE_EQ, ®1, ®2); break; /* NE != */ case CODE_NE_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_NE, ®1, ®2); } break; case CODE_NE_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_NE, ®1, ®2); break; case CODE_NE_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_NE, ®1, ®2); break; /* LT < */ case CODE_LT_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_LT, ®1, ®2); } break; case CODE_LT_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_LT, ®1, ®2); break; case CODE_LT_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_LT, ®1, ®2); break; /* LE <= */ case CODE_LE_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_LE, ®1, ®2); } break; case CODE_LE_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_LE, ®1, ®2); break; case CODE_LE_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_LE, ®1, ®2); break; /* GT > */ case CODE_GT_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_GT, ®1, ®2); break; case CODE_GT_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_GT, ®1, ®2); } break; case CODE_GT_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_GT, ®1, ®2); break; /* GE >= */ case CODE_GE_INT: reg2.info.i = (*pcode++).i; reg2.type = PKT_INT; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_CHAR: reg2.info.c = (*pcode++).c; reg2.type = PKT_CHR; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_FLOAT: reg2.info.f = (*pcode++).f; reg2.type = PKT_FLT; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_STR: reg2.info.s = (*pcode++).s; reg2.type = PKT_STR; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_LISTC: reg2.info.i = getlistcount(&pcode, currBaseIdx); reg2.type = PKT_INT; biOp(CODE_GE, ®1, ®2); break; case CODE_GE_LIST: if (packetp = getlistitem(&pcode, currBaseIdx)) { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; reg2.info = packetp->info; reg2.type = packetp->type; biOp(CODE_GE, ®1, ®2); } break; case CODE_GE_POP: reg2.info = reg1.info; reg2.type = reg1.type; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; biOp(CODE_GE, ®1, ®2); break; /* CALL */ case CODE_CALL: { int save_stackExecIdx; int funcid, argc; funcid = (*pcode++).i; argc = (*pcode++).i; /* fprintf(stderr, "%d\t%d (id)\n", funcid); fprintf(stderr, "%d\t%d (argc)\n", argc); fprintf(stderr, ">>1 base=%d, idx=%d, func=\"%s\" argc=%d\n", currBaseIdx, stackExecIdx, (char*)getHashEntry(symID2Str, funcid)->val, argc); */ stackBaseIdx = stackExecIdx; save_stackExecIdx = stackExecIdx - argc; /* XXX remember to optimize callMeth() */ if (callMeth(self, ®1, argc, &execStack[stackExecIdx - argc + 1], funcid)) { } else if (entry = getHashEntry(objID2Obj, funcid)) { /* printf("found object:%s...\n", GET_name((VObj*)entry->val)); printf("before >>>>> self=%s\n", GET_name(self)); dumpVarList(GET__varList(self)); printf("<<<<<\n"); */ makeArgList((VObj*)entry->val, argc); execObjScript((VObj*)entry->val); } else { char fname[64], *oname; int length; oname = (char*)getHashEntry(symID2Str, funcid)->val; strcpy(fname, oname); length = strlen(fname); if (length >= 2) { if (fname[length-2] != '.' || fname[length-1] != 'v') strcat(fname, ".v"); } /* fprintf(stderr, "accessing %s.\n", fname); */ load_object(fname); if (entry = getHashEntry(objID2Obj, storeIdent(oname))) { /* printf("!!found object:%s...\n", GET_name((VObj*)entry->val)); */ makeArgList((VObj*)entry->val, argc); execObjScript((VObj*)entry->val); } else { fprintf(stderr, "obj=%s: unknown call: %s()\n", GET_name(self), (char*)getHashEntry(symID2Str, funcid)->val); } } stackBaseIdx = currBaseIdx; stackExecIdx = save_stackExecIdx; } break; /* BR */ case CODE_BR: pcode += (*pcode).i; if (pcode > pcode_end) { fprintf(stderr, "seg fault.\n"); return 0; } break; /* BR_NZERO */ case CODE_BR_NZERO: if (reg1.info.i) { pcode += (*pcode).i; } else { pcode++; } if (pcode > pcode_end) { fprintf(stderr, "seg fault.\n"); return 0; } break; /* BR_ZERO */ case CODE_BR_ZERO: if (reg1.info.i) { pcode++; } else { pcode += (*pcode).i; } if (pcode > pcode_end) { fprintf(stderr, "seg fault.\n"); return 0; } break; /* MOVE_TO */ case CODE_MOVTO_REF: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; packetp->info = reg1.info; /* switch (reg1.type) { case PKT_INT: packetp->info.i = reg1.info.i; break; case PKT_CHR: packetp->info.c = reg1.info.c; break; case PKT_FLT: packetp->info.f = reg1.info.f; break; case PKT_STR: packetp->info.s = reg1.info.s; break; case PKT_OBJ: packetp->info.o = reg1.info.o; break; case PKT_ATR: packetp->info.a = reg1.info.a; break; default: fprintf(stderr, "%d\tid=%d UNKNOWN TYPE\n", pcode - pcode_start - 1, *(pcode-1)); break; } */ packetp->type = reg1.type; break; case CODE_MOVTO_LIST: packetp = execStack[currBaseIdx-(*pcode++).i].info.p; i = reg1.info.i; attrp = scanAttr(&(packetp->info.a), i); if (!attrp) { /* make the new list node */ attrp = makeAttr(i, (long)makePacket()); prependAttr(&(packetp->info.a), attrp); } packetp = (Packet*)attrp->val; reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx--].type; packetp->info = reg1.info; /* switch (reg1.type) { case PKT_INT: packetp->info.i = reg1.info.i; break; case PKT_CHR: packetp->info.c = reg1.info.c; break; case PKT_FLT: packetp->info.f = reg1.info.f; break; case PKT_STR: packetp->info.s = reg1.info.s; break; case PKT_OBJ: packetp->info.o = reg1.info.o; break; case PKT_ATR: packetp->info.a = reg1.info.a; break; default: fprintf(stderr, "%d\tid=%d UNKNOWN TYPE\n", pcode - pcode_start - 1, *(pcode-1)); break; } */ packetp->type = reg1.type; break; /* POP */ case CODE_POP: if (stackExecIdx > execStackSizeCheck) { if (!incrementExecStack()) return 0; fprintf(stderr, "warning: execution stack overflowed.\n"); } else { reg1.info = execStack[stackExecIdx].info; reg1.type = execStack[stackExecIdx].type; --stackExecIdx; } break; /* PUSH */ case CODE_PUSH: if (stackExecIdx > execStackSizeCheck) { if (!incrementExecStack()) return 0; fprintf(stderr, "warning: execution stack overflowed.\n"); } else { execStack[++stackExecIdx].info = reg1.info; execStack[stackExecIdx].type = reg1.type; } /* printf("PUSH::: stackExecIdx=%d currBaseIdx=%d reg=%d\n", stackExecIdx, currBaseIdx, reg1.info.i); dumpStack(); */ break; /* PUSH_REFP */ case CODE_PUSH_REFP: if (stackExecIdx > execStackSizeCheck) { if (!incrementExecStack()) return 0; fprintf(stderr, "warning: execution stack overflowed.\n"); } else { Attr *varlist = GET__varList(self); int varID = (*pcode++).i; /* lookup to see if varID corresponds to * some slot in this object. * If so, make link to that instead of a * variable...? */ /*??? SlotInfo **sip; sip = GET_classInfo(self)->slookup; i = GET_classInfo(self)->totalcount; for (; i >= 0; i--) { if (sip[i]->id == varID) { printf("***** found slot \"%s\"\n", (char*)getHashEntry(symID2Str, sip[i]->id)->val); } } */ if (attrp = scanAttr((&varlist), varID)) { packetp = (Packet*)attrp->val; } else { packetp = makePacket(); prependAttr(&varlist, makeAttr(varID, (long)packetp)); SET__varList(self, varlist); } execStack[++stackExecIdx].info.p = packetp; execStack[stackExecIdx].type = PKT_PKT; ++currBaseIdx; } break; case CODE_RETURN: return ®1; case CODE_BR_EQ: case CODE_BR_GE: case CODE_BR_GT: case CODE_BR_LE: case CODE_BR_LT: case CODE_BR_NE: case CODE_CMP: case CODE_GE: case CODE_GT: case CODE_LE: case CODE_LT: case CODE_NE: case CODE_LOAD: case CODE_STMTS: fprintf(stderr, "pc=%d, unmplemented pcode=%d\n", pcode - pcode_start - 1, (*(pcode - 1)).x); break; default: fprintf(stderr, "pc=%d, unknown pcode=%d\n", pcode - pcode_start - 1, (*(pcode - 1)).x); break; } } return ®1; } Packet *execObjScript(obj) VObj *obj; { union PCode *pcode = GET__script(obj); int pc_limit; if (pcode) { pc_limit = GET__scriptSize(obj); } else { extern AST *theAST; int size; yylineno = 0; yyscriptidx = 0; yyscript = GET_script(obj); yyobjcontext = GET_name(obj); yyscriptcontext = SCRIPT_ORIGIN_OBJ_SCRIPT; /* pass 1: build AST */ clearASTStack(); if (yyparse()) return NULL; /* if (flag_printAST) printAST(theAST, 0); */ /* collect identifiers and assign reference offset */ pc_limit = 0; if (!assignReferences(theAST, pcode_buff, &pc_limit)) return 0; if (flag_printAST) printAST(theAST, 0); while (theAST) { codeGen(theAST, pcode_buff, &pc_limit); theAST = theAST->next; } size = sizeof(union PCode) * pc_limit; pcode = (union PCode*)malloc(size); bcopy(pcode_buff, pcode, size); SET__script(obj, pcode); SET__scriptSize(obj, pc_limit); } if (flag_printPCode) { int pc = 0; printPCode(pcode, &pc, pc_limit); } codeExec(obj, pcode, pcode, pcode + pc_limit); return ®1; } Packet *execObjClassScript(obj, result) VObj *obj; Packet *result; { union PCode *pcode = GET__classScript(obj); int pc_limit; if (pcode) { pc_limit = GET__classScriptSize(obj); } else { extern AST *theAST; int size; yylineno = 0; yyscriptidx = 0; yyscript = GET_classScript(obj); yyobjcontext = GET_name(obj); yyscriptcontext = SCRIPT_ORIGIN_CLASS_SCRIPT; /* pass 1: build AST */ clearASTStack(); if (yyparse()) return NULL; if (flag_printAST) printAST(theAST, 0); /* collect identifiers and assign reference offset */ pc_limit = 0; if (!assignReferences(theAST, pcode_buff, &pc_limit)) return 0; if (flag_printAST) printAST(theAST, 0); while (theAST) { codeGen(theAST, pcode_buff, &pc_limit); theAST = theAST->next; } size = sizeof(union PCode) * pc_limit; pcode = (union PCode*)malloc(size); bcopy(pcode_buff, pcode, size); SET__classScript(obj, pcode); SET__classScriptSize(obj, pc_limit); } if (flag_printPCode) { int pc = 0; printPCode(pcode, &pc, pc_limit); } codeExec(obj, pcode, pcode, pcode + pc_limit); copyPacket(result, ®1); return result; } Packet *execScript(obj, result, script) VObj *obj; Packet *result; char *script; { union PCode *pcode; int size, pc_limit; extern AST *theAST; yylineno = 0; yyscriptidx = 0; yyobjcontext = GET_name(obj); yyscriptcontext = SCRIPT_ORIGIN_TEMPORARY; yyscript = script; /* pass 1: build AST */ clearASTStack(); if (yyparse()) return 0; if (flag_printAST) printAST(theAST, 0); /* collect identifiers and assign reference offset */ pc_limit = 0; if (!assignReferences(theAST, pcode_buff, &pc_limit)) return 0; for (; theAST; theAST = theAST->next) codeGen(theAST, pcode_buff, &pc_limit); size = sizeof(union PCode) * pc_limit; pcode = (union PCode*)malloc(size); bcopy(pcode_buff, pcode, size); if (flag_printPCode) { int pc = 0; printPCode(pcode, &pc, pc_limit); } codeExec(obj, pcode, pcode, pcode + pc_limit); copyPacket(result, ®1); free(pcode); return result; } int sendMessagePackets(self, packets, packetc) VObj *self; Packet *packets; int packetc; { int i; int save_stackExecIdx = stackExecIdx; int save_stackBaseIdx = stackBaseIdx; for (i = 0; i < packetc; i++) { execStack[++stackExecIdx].info = packets[i].info; execStack[stackExecIdx].type = packets[i].type; } makeArgList(self, packetc); stackBaseIdx = stackExecIdx; execObjScript(self); stackExecIdx = save_stackExecIdx; stackBaseIdx = save_stackBaseIdx; return 1; } int sendMessageAndInts(self, messg, intArray, intCount) VObj *self; char *messg; int *intArray; int intCount; { int i; int save_stackExecIdx = stackExecIdx; int save_stackBaseIdx = stackBaseIdx; execStack[++stackExecIdx].info.s = messg; execStack[stackExecIdx].type = PKT_STR; for (i = 0; i < intCount; i++) { execStack[++stackExecIdx].info.i = intArray[i]; execStack[stackExecIdx].type = PKT_INT; } makeArgList(self, intCount + 1); stackBaseIdx = stackExecIdx; execObjScript(self); stackExecIdx = save_stackExecIdx; stackBaseIdx = save_stackBaseIdx; return 1; } /* XXX macrolize later... */ int sendMessage1(self, messg) VObj *self; char *messg; { int save_stackExecIdx = stackExecIdx; int save_stackBaseIdx = stackBaseIdx; execStack[++stackExecIdx].info.s = messg; execStack[stackExecIdx].type = PKT_STR; makeArgList(self, 1); stackBaseIdx = stackExecIdx; execObjScript(self); stackExecIdx = save_stackExecIdx; stackBaseIdx = save_stackBaseIdx; return 1; } int sendMessage1N1int(self, messg, a) VObj *self; char *messg; int a; { int save_stackExecIdx = stackExecIdx; int save_stackBaseIdx = stackBaseIdx; execStack[++stackExecIdx].info.s = messg; execStack[stackExecIdx].type = PKT_STR; execStack[++stackExecIdx].info.i = a; execStack[stackExecIdx].type = PKT_INT; makeArgList(self, 2); stackBaseIdx = stackExecIdx; execObjScript(self); stackExecIdx = save_stackExecIdx; stackBaseIdx = save_stackBaseIdx; return 1; } int sendMessage1N2int(self, messg, a, b) VObj *self; char *messg; int a, b; { int buff[2]; buff[0] = a; buff[1] = b; return sendMessageAndInts(self, messg, buff, 2); } int sendMessage1N4int(self, messg, a, b, c, d) VObj *self; char *messg; int a, b, c, d; { int buff[4]; buff[0] = a; buff[1] = b; buff[2] = c; buff[3] = d; return sendMessageAndInts(self, messg, buff, 4); } int getVariable(varlist, name, retp) Attr *varlist; char *name; char **retp; { HashEntry *entry; int varid; Packet *pk; /* note: if the identifier is not even in the dictionary, then no * such variable exists -- all variable IDs are entered into the dict */ if (entry = getHashEntry(symStr2ID, (long)name)) { varid = entry->val; for (; varlist; varlist = varlist->next) { pk = (Packet*)(varlist->val); /* printf("id=%d=\"%s\"\n", varlist->id, pk->info.s);*/ if (varlist->id == varid) { *retp = saveString(pk->info.s); return 1; } } } return 0; } int setVariable(varlist, name, valp) Attr *varlist; char *name; char *valp; { return 0; } int destroyVariable(varlist, name, retp) Attr *varlist; char *name; { return 0; } xecStack()) return 0; fprintf(stderr, "warning: execution stack overflowed.\n"); } else { execStack[++stackExecIdx].info = reg1.info; execStack[stackExecIdx].type = reg1.type; } /* printf("PUSH::: stackExecIdx=%d currBaseIdx=%d reg=%d\n", stackExecIdx, currBaseIdx, reg1.info.i); dumpStack(); */ break; /* PUSH_REFP */ case CODE_PUSH_REFP: if (stackExecIdx > execStackSizeCheck) { if (!incrementExviola/src/cexec.h 640 6757 17 744 5231040157 7265 extern Packet *codeExec(); extern Packet *execObjScript(); extern Packet *execObjClassScript(); extern Packet *execScript(); extern void dumpVarList(); extern int sendMessagePackets(); extern int sendMessageAndInts(); extern int sendMessage1(); extern int sendMessage1N1int(); extern int sendMessage1N2int(); extern int sendMessage1N4int(); extern int flag_printExec; extern char *passthru_argument; extern int getVariable(); extern int setVariable(); extern int destroyVariable(); BMButton.h p5cl_Xviola/src/cgen.c 640 6757 17 51306 5231040157 7145 /* * cgen.c * * Pseudo-code generation procedures */ /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ #include #include "ast.h" #include "cgen.h" #include "hash.h" #include "ident.h" char *PCodeStr[] = { "PLUS", "MINUS", "MOD", "MULT", "DIV", "EQ", "NE", "LT", "LE", "GT", "GE", "AND", "OR", "PLUS_INT", "MINUS_INT", "MOD_INT", "MULT_INT", "DIV_INT", "EQ_INT", "NE_INT", "LT_INT", "LE_INT", "GT_INT", "GE_INT", "AND_INT", "OR_INT", "PLUS_CHAR", "MINUS_CHAR", "MOD_CHAR", "MULT_CHAR", "DIV_CHAR", "EQ_CHAR", "NE_CHAR", "LT_CHAR", "LE_CHAR", "GT_CHAR", "GE_CHAR", "AND_CHAR", "OR_CHAR", "PLUS_FLOAT", "MINUS_FLOAT", "MOD_FLOAT", "MULT_FLOAT", "DIV_FLOAT", "EQ_FLOAT", "NE_FLOAT", "LT_FLOAT", "LE_FLOAT", "GT_FLOAT", "GE_FLOAT", "AND_FLOAT", "OR_FLOAT", "PLUS_STR", "MINUS_STR", "MOD_STR", "MULT_STR", "DIV_STR", "EQ_STR", "NE_STR", "LT_STR", "LE_STR", "GT_STR", "GE_STR", "AND_STR", "OR_STR", "PLUS_LIST", "MINUS_LIST", "MOD_LIST", "MULT_LIST", "DIV_LIST", "EQ_LIST", "NE_LIST", "LT_LIST", "LE_LIST", "GT_LIST", "GE_LIST", "AND_LIST", "OR_LIST", "PLUS_LISTC", "MINUS_LISTC", "MOD_LISTC", "MULT_LISTC", "DIV_LISTC", "EQ_LISTC", "NE_LISTC", "LT_LISTC", "LE_LISTC", "GT_LISTC", "GE_LISTC", "AND_LISTC", "OR_LISTC", "EQ_STACK", "PLUS_POP", "MINUS_POP", "MOD_POP", "MULT_POP", "DIV_POP", "EQ_POP", "NE_POP", "LT_POP", "LE_POP", "GT_POP", "GE_POP", "AND_POP", "OR_POP", "REF", "LIST_REF", "AND_REF", "MOVTO_REF", "DIV_REF", "GE_REF", "GT_REF", "LE_REF", "LT_REF", "EQ_REF", "MINUS_REF", "MOD_REF", "MULT_REF", "NE_REF", "OR_REF", "PLUS_REF", "PUSH_REF", "PUSH_REFP", "MOVTO", "MOVTO_INT", /*?*/ "MOVTO_CHAR",/*?*/ "MOVTO_LIST", "BR", "BR_EQ", "BR_GE", "BR_GT", "BR_LE", "BR_LT", "BR_NE", "BR_NZERO", "BR_ZERO", "CALL", "CMP", "INTEGER", "FLOAT", "LOAD", "POP", "PUSH", "STMTS", "STRING", "CHAR", "UMINUS", "RETURN", "LIST", "LISTC", "STACK", "INC_PRE", "INC_POST", "DEC_PRE", "DEC_POST", }; typedef struct RefInfo { AST *ast; int flag; } RefInfo; typedef struct BinaryOpInfo { int code_int; int code_char; int code_float; int code_str; int code_ref; int code_listc; int code_list; int code_stack; } BinaryOpInfo; BinaryOpInfo binaryOpInfo[] = { { CODE_PLUS_INT, CODE_PLUS_CHAR, CODE_PLUS_FLOAT, CODE_PLUS_STR, CODE_PLUS_REF, CODE_PLUS_LISTC, CODE_PLUS_LIST, CODE_PLUS_POP },{ CODE_MINUS_INT, CODE_MINUS_CHAR, CODE_MINUS_FLOAT, CODE_MINUS_STR, CODE_MINUS_REF, CODE_MINUS_LISTC, CODE_MINUS_LIST, CODE_MINUS_POP },{ CODE_MOD_INT, CODE_MOD_CHAR, CODE_MOD_FLOAT, CODE_MOD_STR, CODE_MOD_REF, CODE_MOD_LISTC, CODE_MOD_LIST, CODE_MOD_POP },{ CODE_MULT_INT, CODE_MULT_CHAR, CODE_MULT_FLOAT, CODE_MULT_STR, CODE_MULT_REF, CODE_MULT_LISTC, CODE_MULT_LIST, CODE_MULT_POP },{ CODE_DIV_INT, CODE_DIV_CHAR, CODE_DIV_FLOAT, CODE_DIV_STR, CODE_DIV_REF, CODE_DIV_LISTC, CODE_DIV_LIST, CODE_DIV_POP },{ CODE_EQ_INT, CODE_EQ_CHAR, CODE_EQ_FLOAT, CODE_EQ_STR, CODE_EQ_REF, CODE_EQ_LISTC, CODE_EQ_LIST, CODE_EQ_POP },{ CODE_NE_INT, CODE_NE_CHAR, CODE_NE_FLOAT, CODE_NE_STR, CODE_NE_REF, CODE_NE_LISTC, CODE_NE_LIST, CODE_NE_POP },{ CODE_LT_INT, CODE_LT_CHAR, CODE_LT_FLOAT, CODE_LT_STR, CODE_LT_REF, CODE_LT_LISTC, CODE_LT_LIST, CODE_LT_POP },{ CODE_LE_INT, CODE_LE_CHAR, CODE_LE_FLOAT, CODE_LE_STR, CODE_LE_REF, CODE_LE_LISTC, CODE_LE_LIST, CODE_LE_POP },{ CODE_GT_INT, CODE_GT_CHAR, CODE_GT_FLOAT, CODE_GT_STR, CODE_GT_REF, CODE_GT_LISTC, CODE_GT_LIST, CODE_GT_POP },{ CODE_GE_INT, CODE_GE_CHAR, CODE_GE_FLOAT, CODE_GE_STR, CODE_GE_REF, CODE_GE_LISTC, CODE_GE_LIST, CODE_GE_POP },{ CODE_AND_INT, CODE_AND_CHAR, CODE_AND_FLOAT, CODE_AND_STR, CODE_AND_REF, CODE_AND_LISTC, CODE_AND_LIST, CODE_AND_POP },{ CODE_OR_INT, CODE_OR_CHAR, CODE_OR_FLOAT, CODE_OR_STR, CODE_OR_REF, CODE_OR_LISTC, CODE_OR_LIST, CODE_OR_POP } }; int flag_printPCode = 0; int flag_printAST = 0; #define IEMIT(val) pcode[(*pc)++].i = (int)(val) #define FEMIT(val) pcode[(*pc)++].f = (float)(val) #define SEMIT(val) pcode[(*pc)++].s = (char*)(val) #define CEMIT(val) pcode[(*pc)++].c = (char)(val) #define XEMIT(val) pcode[(*pc)++].x = (int)(val) /* #define IEMIT(val) pcode[(*pc)++].i = (int)val;\ printf("pc=%d\tint\t%d\n", *pc-1, (int)val) #define FEMIT(val) pcode[(*pc)++].f = (float)val;\ printf("pc=%d\tfloat\t%f\n", *pc-1, (float)val) #define SEMIT(val) pcode[(*pc)++].s = (char*)val;\ printf("pc=%d\tstr\t\"%s\"\n", *pc-1, (char*)val) #define CEMIT(val) pcode[(*pc)++].c = (char)val;\ printf("pc=%d\tchar\t%c\n", *pc-1, (char)val) #define XEMIT(val) pcode[(*pc)++].x = (int)val;\ printf("pc=%d\tcode\t%s\n", *pc-1, PCodeStr[val]) */ /* this puts a limit on the number of idenfier instances in a block */ #define VAR_ARRAY_SIZE 300 RefInfo varArray[VAR_ARRAY_SIZE]; int varArrayIdx; int tempi; /* * traverse the AST tree to collect all identifier AST's. */ int collectReferences(ast) AST *ast; { /* if (ast->type == AST_BODY) return 1;*/ if (ast->type == AST_REF || ast->type == AST_LIST || ast->type == AST_LISTC || ast->type == AST_MOVTO || ast->type == AST_MOVTO_LIST) { varArray[varArrayIdx].ast = ast; varArray[varArrayIdx++].flag = ast->type | 128; if (varArrayIdx > VAR_ARRAY_SIZE) { fprintf(stderr, "varArray stack overflow!\n"); return 0; } } for (ast = ast->children; ast; ast = ast->next) collectReferences(ast); return 1; } /* * ... * also, change REF to LIST_REF */ int assignReferences(ast, pcode, pc) AST *ast; union PCode *pcode; int *pc; { int i, type, refID = 0, currentIdent, currentRefIdx; varArrayIdx = 0; for (ast = ast->children; ast; ast = ast->next) if (!collectReferences(ast)) return 0; if (varArrayIdx == 0) return 1; /* no variables... */ /* * scan for indication of list type, and change REFs of the same * id to LIST_REF */ for (;;) { currentRefIdx = -1; for (i = varArrayIdx - 1; i >= 0; i--) { /* printf(">>>>>i=%d, %d %d\n", i, varArray[i].flag, varArray[i].flag & 128); */ if (varArray[i].flag & 128) { type = varArray[i].flag & 127; if (type == AST_LIST || type == AST_LISTC || type == AST_MOVTO_LIST) { currentRefIdx = i; varArray[i].flag &= 127; break; } } } if (currentRefIdx == -1) break; currentIdent = varArray[currentRefIdx].ast->attribute.info.i; for (i = 0; i < varArrayIdx; i++) { if (varArray[i].flag & 128) { type = varArray[i].flag & 127; if (type == AST_REF && (varArray[i].ast->attribute.info.i == currentIdent)) { varArray[i].ast->type = AST_LIST_REF; varArray[i].flag &= 127; } } } } /* * assign reference offset value */ for (;;) { currentRefIdx = -1; for (i = varArrayIdx - 1; i >= 0; i--) { if (varArray[i].flag) { currentRefIdx = i; break; } } if (currentRefIdx == -1) break; currentIdent = varArray[currentRefIdx].ast->attribute.info.i; XEMIT(CODE_PUSH_REFP); IEMIT(currentIdent); for (i = 0; i < varArrayIdx; i++) { if (varArray[i].flag) { if (varArray[i].ast->attribute.info.i == currentIdent) { varArray[i].ast->attribute.info.i = refID; varArray[i].flag = 0; } } } refID++; } /* reverse offset values */ refID--; for (i = 0; i < varArrayIdx; i++) { varArray[i].ast->attribute.info.i = refID - varArray[i].ast->attribute.info.i; } return 1; } int biopHelper(ast, type, pcode, pc) AST *ast; int type; union PCode *pcode; int *pc; { switch (type) { case AST_INTEGER: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_int); IEMIT(ast->children->next->attribute.info.i); break; case AST_CHAR: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_char); CEMIT(ast->children->next->attribute.info.c); break; case AST_FLOAT: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_float); FEMIT(ast->children->next->attribute.info.f); break; case AST_STRING: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_str); SEMIT(ast->children->next->attribute.info.s); break; case AST_REF: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_ref); IEMIT(ast->children->next->attribute.info.i); break; case AST_LIST: codeGen(ast->children, pcode, pc); IEMIT(CODE_PUSH); codeGen(ast->children->next->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_list); IEMIT(ast->children->next->attribute.info.i); break; case AST_LISTC: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_listc); IEMIT(ast->children->next->attribute.info.i); break; /* case AST_STACK: codeGen(ast->children, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_stack); IEMIT(ast->children->next->attribute.info.i); break; */ case AST_CALL: case AST_EXPR_PLUS: case AST_EXPR_MINUS: case AST_EXPR_MULT: case AST_EXPR_DIV: /* ... */ default: /* * Ex: test1() * (test2() + test4()) * * idx = 0 * 1 call test1() result of test1 -> reg1 * 1 push ++idx = 1, reg1 -> stack[1] * 1 2 call test2() result of test2 -> reg1 * 2 push ++idx = 2, reg1 -> stack[2] * 2 call test4() result of test4 -> reg1 * 2 pop-plus stack[2] + reg1 -> reg1; --idx = 1 * 1 pop-mult stack[1] * reg1 -> reg1; --idx = 0 */ codeGen(ast->children, pcode, pc); IEMIT(CODE_PUSH); codeGen(ast->children->next, pcode, pc); XEMIT(binaryOpInfo[ast->type].code_stack); break; /* printf("pc = %d, lineno=%d: ", *pc, ast->lineno); if (type <= ASTTypeStrSize) { printf("Error in binaryOpInfo. type=%d=%s.\n", type, ASTTypeStr[type]); } else { printf("Error in binaryOpInfo. unknown type=%d.\n", type); } return 0; */ } return 1; } int switchHelper(ast, pcode, pc) AST *ast; union PCode *pcode; int *pc; { int br2bodyPatch[128], br2bodyPatchi = 0; int br2endPatch[128], br2endPatchi = 0; int br2testsPatch; int i, default_bodyPatchIdx = -1; AST *astp, *castp; int broke = 0; /* remember to patch going to the tests */ XEMIT(CODE_BR); br2testsPatch = *pc; (*pc)++; /* emit body pcode */ for (astp = ast->children->next; astp; astp = astp->next) { br2bodyPatch[br2bodyPatchi++] = *pc; /* code gen body */ if (astp->children->next->children) { codeGen(astp->children->next, pcode, pc); } /* break */ if (astp->children->next->next) { XEMIT(CODE_BR); br2endPatch[br2endPatchi++] = *pc; IEMIT(0); broke = 1; } else { broke = 0; } } if (broke == 0) { /* unconditional branch to end of switch construct */ XEMIT(CODE_BR); br2endPatch[br2endPatchi++] = *pc; IEMIT(0); } /* patch the branch to the tests */ pcode[br2testsPatch].i = *pc - br2testsPatch; /* emit code to evaluate and store switcher value */ codeGen(ast->children, pcode, pc); XEMIT(CODE_PUSH); /* emit tests pcode */ i = 0; for (astp = ast->children->next; astp; astp = astp->next) { for (castp = astp->children->children; castp; castp = castp->next) { if (castp->type == AST_CASE_CLAUSE) { if (castp->children) codeGen(castp->children, pcode, pc); XEMIT(CODE_EQ_STACK); XEMIT(CODE_BR_NZERO); tempi = br2bodyPatch[i] - *pc; IEMIT(tempi); } else if (castp->type == AST_DEFAULT_CLAUSE) { if (default_bodyPatchIdx != -1) { /* error, multiple "default:" clause */ printf("error, multiple ``default:'' clause...\n"); return 0; } /* do default_clause lastly */ default_bodyPatchIdx = i; } } ++i; } if (default_bodyPatchIdx != -1) { XEMIT(CODE_BR); tempi = br2bodyPatch[default_bodyPatchIdx] - *pc; IEMIT(tempi); } for (i = 0; i < br2endPatchi; i++) pcode[br2endPatch[i]].i = *pc - br2endPatch[i]; return 1; } int codeGen(ast, pcode, pc) AST *ast; union PCode *pcode; int *pc; { /* fprintf(stderr, "pc=%d [%d]\n", *pc, ast->type);*/ switch (ast->type) { case AST_MOVTO: codeGen(ast->children, pcode, pc); XEMIT(CODE_MOVTO_REF); IEMIT(ast->attribute.info.i); break; case AST_MOVTO_LIST: codeGen(ast->children->next, pcode, pc); /* index */ XEMIT(CODE_PUSH); codeGen(ast->children, pcode, pc); /* set value */ XEMIT(CODE_MOVTO_LIST); IEMIT(ast->attribute.info.i); break; case AST_CALL: { int argc = 0; AST *astp; for (astp = ast->children; astp; astp = astp->next) { codeGen(astp, pcode, pc); XEMIT(CODE_PUSH); argc++; } XEMIT(CODE_CALL); IEMIT(ast->attribute.info.i); IEMIT(argc); } break; case AST_IF: { int stack[128], stacki = 0; /* XXX limitation */ int lpc = 0; AST *astp; astp = ast->children; while (astp) { if (astp->type == AST_BODY) { if (lpc) pcode[lpc].i = *pc - lpc; /* else {body} */ codeGen(astp, pcode, pc); break; } else { /* if (lpc) pcode[lpc].i = *pc - lpc;*/ /* generate expression code */ codeGen(astp, pcode, pc); XEMIT(CODE_BR_ZERO); lpc = *pc; (*pc)++; /* generate body code */ astp = astp->next; codeGen(astp, pcode, pc); /* unconditional branch to construct's end */ XEMIT(CODE_BR); stack[stacki++] = *pc; (*pc)++; pcode[lpc].i = *pc - lpc; astp = astp->next; } } /* fix offsets to end of if construction */ for (stacki--; stacki >= 0; stacki--) pcode[stack[stacki]].i = *pc - stack[stacki]; } break; case AST_SWITCH: { switchHelper(ast, pcode, pc); } break; case AST_WHILE: { int lpc, jpc; /* generate expression code */ lpc = *pc; codeGen(ast->children, pcode, pc); XEMIT(CODE_BR_ZERO); jpc = *pc; (*pc)++; /* generate body code */ codeGen(ast->children->next, pcode, pc); /* unconditional branch back to while evaluation */ XEMIT(CODE_BR); tempi = lpc - *pc; IEMIT(tempi); pcode[jpc].i = *pc - jpc; } break; case AST_FOR: { int lpc, jpc; /* generate initialization code */ codeGen(ast->children, pcode, pc); /* generate expression code */ lpc = *pc; codeGen(ast->children->next, pcode, pc); XEMIT(CODE_BR_ZERO); jpc = *pc; (*pc)++; /* generate body code */ codeGen(ast->children->next->next->next, pcode, pc); /* generate post body code */ codeGen(ast->children->next->next, pcode, pc); /* unconditional branch back to while evaluation */ XEMIT(CODE_BR); tempi = lpc - *pc; IEMIT(tempi); pcode[jpc].i = *pc - jpc; } break; case AST_BODY: case AST_EXPR: for (ast = ast->children; ast; ast = ast->next) codeGen(ast, pcode, pc); break; case AST_LISTC: XEMIT(CODE_LISTC); IEMIT(ast->attribute.info.i); break; case AST_LIST: codeGen(ast->children, pcode, pc); XEMIT(CODE_LIST); IEMIT(ast->attribute.info.i); break; /* case AST_POP: XEMIT(CODE_POP); IEMIT(ast->attribute.info.i); break; */ /* come back and fix XXXX */ case AST_LIST_REF: XEMIT(CODE_LIST_REF); IEMIT(ast->attribute.info.i); break; case AST_REF: /* IEMIT identifier strID */ XEMIT(CODE_REF); IEMIT(ast->attribute.info.i); break; case AST_INC_PRE: XEMIT(CODE_INC_PRE); IEMIT(ast->children->attribute.info.i); break; case AST_INC_POST: XEMIT(CODE_INC_POST); IEMIT(ast->children->attribute.info.i); break; case AST_DEC_PRE: XEMIT(CODE_DEC_PRE); IEMIT(ast->children->attribute.info.i); break; case AST_DEC_POST: XEMIT(CODE_DEC_POST); IEMIT(ast->children->attribute.info.i); break; case AST_UMINUS: XEMIT(CODE_UMINUS); break; case AST_EXPR_PLUS: case AST_EXPR_MINUS: case AST_EXPR_MOD: case AST_EXPR_MULT: case AST_EXPR_DIV: case AST_EXPR_EQ: case AST_EXPR_NE: case AST_EXPR_LT: case AST_EXPR_LE: case AST_EXPR_GT: case AST_EXPR_GE: case AST_EXPR_AND: case AST_EXPR_OR: case AST_EXPR_CMP: biopHelper(ast, ast->children->next->type, pcode, pc); break; case AST_INTEGER: XEMIT(CODE_INTEGER); IEMIT(ast->attribute.info.i); break; case AST_CHAR: XEMIT(CODE_CHAR); CEMIT(ast->attribute.info.c); break; case AST_FLOAT: XEMIT(CODE_FLOAT); FEMIT(ast->attribute.info.f); break; case AST_STRING: XEMIT(CODE_STRING); SEMIT(ast->attribute.info.s); break; case AST_RETURN: if (ast->children) { codeGen(ast->children, pcode, pc); XEMIT(CODE_RETURN); } else { XEMIT(CODE_RETURN); } break; default: fprintf(stderr, "internal error: unknown ast type = %d:\n", ast->type); fprintf(stderr, "-----------------\n"); printAST(ast, 0); fprintf(stderr, "-----------------\n"); break; } return 0; } printPCode(pcode, pc, size) union PCode *pcode; int *pc; int size; { while (*pc < size) { fprintf(stderr, "%d\t%s\n", *pc, PCodeStr[pcode[*pc].x]); switch (pcode[(*pc)++].x) { case CODE_REF: case CODE_LIST_REF: fprintf(stderr, "%d\t%i\n", *pc, pcode[*pc].i); (*pc)++; break; case CODE_PUSH_REFP: fprintf(stderr, "%d\t%i (%s)\n", *pc, pcode[*pc].i, (char*)getHashEntry(symID2Str, pcode[*pc].i)->val); (*pc)++; break; case CODE_INTEGER: case CODE_LIST: case CODE_LISTC: case CODE_MOVTO_LIST: case CODE_MOVTO_REF: case CODE_INC_PRE: case CODE_INC_POST: case CODE_DEC_PRE: case CODE_DEC_POST: case CODE_AND: case CODE_OR: case CODE_BR: case CODE_BR_ZERO: case CODE_BR_NZERO: case CODE_BR_EQ: case CODE_BR_GE: case CODE_BR_GT: case CODE_BR_LE: case CODE_BR_LT: case CODE_BR_NE: case CODE_DIV_INT: case CODE_PLUS_INT: case CODE_MOD_INT: case CODE_MINUS_INT: case CODE_MULT_INT: case CODE_EQ_INT: case CODE_NE_INT: case CODE_LT_INT: case CODE_LE_INT: case CODE_GE_INT: case CODE_GT_INT: case CODE_AND_INT: case CODE_OR_INT: case CODE_DIV_REF: case CODE_PLUS_REF: case CODE_MOD_REF: case CODE_MINUS_REF: case CODE_MULT_REF: case CODE_EQ_REF: case CODE_NE_REF: case CODE_LT_REF: case CODE_LE_REF: case CODE_GE_REF: case CODE_GT_REF: case CODE_AND_REF: case CODE_OR_REF: case CODE_DIV_LIST: case CODE_PLUS_LIST: case CODE_MOD_LIST: case CODE_MINUS_LIST: case CODE_MULT_LIST: case CODE_EQ_LIST: case CODE_NE_LIST: case CODE_LT_LIST: case CODE_LE_LIST: case CODE_GE_LIST: case CODE_GT_LIST: case CODE_AND_LIST: case CODE_OR_LIST: case CODE_DIV_LISTC: case CODE_PLUS_LISTC: case CODE_MOD_LISTC: case CODE_MINUS_LISTC: case CODE_MULT_LISTC: case CODE_EQ_LISTC: case CODE_NE_LISTC: case CODE_LT_LISTC: case CODE_LE_LISTC: case CODE_GE_LISTC: case CODE_GT_LISTC: case CODE_AND_LISTC: case CODE_OR_LISTC: case CODE_GE: case CODE_GT: case CODE_LE: case CODE_LT: case CODE_NE: case CODE_EQ: fprintf(stderr, "%d\t%d\n", *pc, pcode[*pc].i); (*pc)++; break; case CODE_CHAR: case CODE_DIV_CHAR: case CODE_PLUS_CHAR: case CODE_MOD_CHAR: case CODE_MINUS_CHAR: case CODE_MULT_CHAR: case CODE_EQ_CHAR: case CODE_NE_CHAR: case CODE_LT_CHAR: case CODE_LE_CHAR: case CODE_GE_CHAR: case CODE_GT_CHAR: case CODE_AND_CHAR: case CODE_OR_CHAR: fprintf(stderr, "%d\t'%c' (%d)\n", *pc, pcode[*pc].c, (int)pcode[*pc].c); (*pc)++; break; case CODE_FLOAT: case CODE_DIV_FLOAT: case CODE_PLUS_FLOAT: case CODE_MOD_FLOAT: case CODE_MINUS_FLOAT: case CODE_MULT_FLOAT: case CODE_EQ_FLOAT: case CODE_NE_FLOAT: case CODE_LT_FLOAT: case CODE_LE_FLOAT: case CODE_GE_FLOAT: case CODE_GT_FLOAT: case CODE_AND_FLOAT: case CODE_OR_FLOAT: fprintf(stderr, "%d\t%f\n", *pc, pcode[*pc].f); (*pc)++; break; case CODE_STRING: case CODE_DIV_STR: case CODE_PLUS_STR: case CODE_MOD_STR: case CODE_MINUS_STR: case CODE_MULT_STR: case CODE_EQ_STR: case CODE_NE_STR: case CODE_LT_STR: case CODE_LE_STR: case CODE_GE_STR: case CODE_GT_STR: case CODE_AND_STR: case CODE_OR_STR: fprintf(stderr, "%d\t\"%s\"\n", *pc, pcode[*pc].s); (*pc)++; break; case CODE_CALL: fprintf(stderr, "%d\t%d (id)\n", *pc, pcode[*pc].i); (*pc)++; fprintf(stderr, "%d\t%d (argc)\n", *pc, pcode[*pc].i); (*pc)++; break; case CODE_EQ_STACK: case CODE_DIV_POP: case CODE_PLUS_POP: case CODE_MOD_POP: case CODE_MINUS_POP: case CODE_MULT_POP: case CODE_EQ_POP: case CODE_NE_POP: case CODE_LT_POP: case CODE_LE_POP: case CODE_GE_POP: case CODE_GT_POP: case CODE_AND_POP: case CODE_OR_POP: case CODE_UMINUS: case CODE_POP: case CODE_PUSH: case CODE_CMP: case CODE_LOAD: case CODE_STMTS: case CODE_RETURN: break; default: fprintf(stderr, "pc=%d, unknown pcode=%d\n", *pc - 1, pcode[*pc - 1].x); break; } } } tp; for (astp = ast->children; astp; astp = astp->next) { codeGen(astp, pcode, pc); XEMIT(CODE_PUSH); argc++; } XEMIT(CODE_CALL); IEMIT(ast->attribute.info.i); IEMIT(argc); } break; case AST_IF: { int stack[128], stacki = 0; /* XXX limitation */ int lpc = 0; AST *astp; astp = asviola/src/cgen.h 640 6757 17 4725 5231040157 7135 /*typedef int union PCode;*/ typedef union PCode { int x; /* executable instruction */ int i; float f; char *s; char c; }; enum PCodeTypes { CODE_PLUS, CODE_MINUS, CODE_MOD, CODE_MULT, CODE_DIV, CODE_EQ, CODE_NE, CODE_LT, CODE_LE, CODE_GT, CODE_GE, CODE_AND, CODE_OR, CODE_PLUS_INT, CODE_MINUS_INT, CODE_MOD_INT, CODE_MULT_INT, CODE_DIV_INT, CODE_EQ_INT, CODE_NE_INT, CODE_LT_INT, CODE_LE_INT, CODE_GT_INT, CODE_GE_INT, CODE_AND_INT, CODE_OR_INT, CODE_PLUS_CHAR, CODE_MINUS_CHAR, CODE_MOD_CHAR, CODE_MULT_CHAR, CODE_DIV_CHAR, CODE_EQ_CHAR, CODE_NE_CHAR, CODE_LT_CHAR, CODE_LE_CHAR, CODE_GT_CHAR, CODE_GE_CHAR, CODE_AND_CHAR, CODE_OR_CHAR, CODE_PLUS_FLOAT, CODE_MINUS_FLOAT, CODE_MOD_FLOAT, CODE_MULT_FLOAT, CODE_DIV_FLOAT, CODE_EQ_FLOAT, CODE_NE_FLOAT, CODE_LT_FLOAT, CODE_LE_FLOAT, CODE_GT_FLOAT, CODE_GE_FLOAT, CODE_AND_FLOAT, CODE_OR_FLOAT, CODE_PLUS_STR, CODE_MINUS_STR, CODE_MOD_STR, CODE_MULT_STR, CODE_DIV_STR, CODE_EQ_STR, CODE_NE_STR, CODE_LT_STR, CODE_LE_STR, CODE_GT_STR, CODE_GE_STR, CODE_AND_STR, CODE_OR_STR, CODE_PLUS_LIST, CODE_MINUS_LIST, CODE_MOD_LIST, CODE_MULT_LIST, CODE_DIV_LIST, CODE_EQ_LIST, CODE_NE_LIST, CODE_LT_LIST, CODE_LE_LIST, CODE_GT_LIST, CODE_GE_LIST, CODE_AND_LIST, CODE_OR_LIST, CODE_PLUS_LISTC, CODE_MINUS_LISTC, CODE_MOD_LISTC, CODE_MULT_LISTC, CODE_DIV_LISTC, CODE_EQ_LISTC, CODE_NE_LISTC, CODE_LT_LISTC, CODE_LE_LISTC, CODE_GT_LISTC, CODE_GE_LISTC, CODE_AND_LISTC, CODE_OR_LISTC, CODE_EQ_STACK, CODE_PLUS_POP, CODE_MINUS_POP, CODE_MOD_POP, CODE_MULT_POP, CODE_DIV_POP, CODE_EQ_POP, CODE_NE_POP, CODE_LT_POP, CODE_LE_POP, CODE_GT_POP, CODE_GE_POP, CODE_AND_POP, CODE_OR_POP, CODE_REF, CODE_LIST_REF, CODE_AND_REF, CODE_MOVTO_REF, CODE_DIV_REF, CODE_GE_REF, CODE_GT_REF, CODE_LE_REF, CODE_LT_REF, CODE_EQ_REF, CODE_MINUS_REF, CODE_MOD_REF, CODE_MULT_REF, CODE_NE_REF, CODE_OR_REF, CODE_PLUS_REF, CODE_PUSH_REF, CODE_PUSH_REFP, CODE_MOVTO, CODE_MOVTO_INT, CODE_MOVTO_CHAR, CODE_MOVTO_LIST, CODE_BR, CODE_BR_EQ, CODE_BR_GE, CODE_BR_GT, CODE_BR_LE, CODE_BR_LT, CODE_BR_NE, CODE_BR_NZERO, CODE_BR_ZERO, CODE_CALL, CODE_CMP, CODE_INTEGER, CODE_FLOAT, CODE_LOAD, CODE_POP, CODE_PUSH, CODE_STMTS, CODE_STRING, CODE_CHAR, CODE_UMINUS, CODE_RETURN, CODE_LIST, CODE_LISTC, CODE_STACK, CODE_INC_PRE, CODE_INC_POST, CODE_DEC_PRE, CODE_DEC_POST, }; extern int flag_printPCode; extern int flag_printAST; pobj.c-- @pobj.h(L Tpviola/src/cl_BCard.c 640 6757 17 5505 5231040160 7634 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : BCard * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_BCard.h" #include "misc.h" #include "glib.h" SlotInfo cl_BCard_NCSlots[] = { NULL }; SlotInfo cl_BCard_NPSlots[] = { NULL }; SlotInfo cl_BCard_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"BCard" },{ NULL } }; SlotInfo cl_BCard_PSlots[] = { { STR__classInfo, CLSI, (long)&class_BCard },{ NULL } }; SlotInfo *slots_BCard[] = { (SlotInfo*)cl_BCard_NCSlots, (SlotInfo*)cl_BCard_NPSlots, (SlotInfo*)cl_BCard_CSlots, (SlotInfo*)cl_BCard_PSlots }; MethodInfo meths_BCard[] = { /* local methods */ { STR_config, meth_BCard_config },{ STR_expose, meth_BCard_expose },{ STR_get, meth_BCard_get, },{ STR_initialize, meth_BCard_initialize },{ STR_render, meth_BCard_render },{ STR_set, meth_BCard_set },{ NULL } }; ClassInfo class_BCard = { slots_BCard, /* class slot information */ meths_BCard, /* class methods */ STR_BCard, /* class identifier number */ &class_field, /* super class info */ }; int meth_BCard_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { if (!meth_field_config(self, result, argc, argv)) return 0; return 1; } int meth_BCard_expose(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_render(self, result, argc, argv); } int meth_BCard_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_get(self, result, argc, argv); } int meth_BCard_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_field_initialize(self, result, argc, argv); return 1; } int meth_BCard_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; if (!w) meth_field_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_BCard_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_set(self, result, argc, argv); } _BCard_NCSlots[] = { NULL }; SlotInfo cl_BCard_NPSlots[] = { NULL }; SlotInfo cl_BCard_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"BCard" },{ NULL } }; SlotInfo cl_BCard_PSlotsviola/src/cl_BCard.h 640 6757 17 377 5231040160 7623 /* * class : BCard * superClass : field */ #include "cl_field.h" extern ClassInfo class_BCard; int meth_BCard_config(); int meth_BCard_expose(); int meth_BCard_get(); int meth_BCard_initialize(); int meth_BCard_render(); int meth_BCard_set(); TTY.c.hp/class.cp0cl_TTY.h.c(p1cl_XBM.c<p2cl_XBM.hTp3cl_XBMButton.cTlp4cl_XBMButton.hlp5cl_XPM.chp6cl_XPM.hp7cl_XPMButton.cp8cl_XPMButtonviola/src/cl_FCard.c 640 6757 17 7075 5231040160 7644 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : FCard * superClass : pane */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_FCard.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_FCard_NCSlots[] = { NULL }; SlotInfo cl_FCard_NPSlots[] = { { STR_BCard, OBJP | SLOT_RW, NULL },{ NULL } }; SlotInfo cl_FCard_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"FCard" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"expose\":\n\ case \"render\":\n\ render();\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ default:\n\ print(\"unknown message, clsss = FCard: args: \");\n\ for (i = 0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_FCard_PSlots[] = { { STR__classInfo, CLSI, (long)&class_FCard },{ STR_paneConfig, PTRS, (long)"freeForm" },{ STR__paneConfig, LONG, PANE_CONFIG_FREE /* default with FREEFORM */ },{ NULL } }; SlotInfo *slots_FCard[] = { (SlotInfo*)cl_FCard_NCSlots, (SlotInfo*)cl_FCard_NPSlots, (SlotInfo*)cl_FCard_CSlots, (SlotInfo*)cl_FCard_PSlots }; MethodInfo meths_FCard[] = { /* local methods */ { STR_config, meth_FCard_config },{ STR_expose, meth_FCard_expose },{ STR_get, meth_FCard_get, },{ STR_initialize, meth_FCard_initialize },{ STR_render, meth_FCard_render },{ STR_set, meth_FCard_set },{ NULL } }; ClassInfo class_FCard = { slots_FCard, /* class slot information */ meths_FCard, /* class methods */ STR_FCard, /* class identifier number */ &class_pane, /* super class info */ }; int meth_FCard_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { if (!meth_pane_config(self, result, argc, argv)) return 0; return 1; } int meth_FCard_expose(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_pane_render(self, result, argc, argv); } int meth_FCard_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_BCard: result->info.o = GET_BCard(self); result->type = PKT_OBJ; return 1; } return meth_pane_get(self, result, argc, argv); } int meth_FCard_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_pane_initialize(self, result, argc, argv); return 1; } int meth_FCard_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); if (!w) meth_pane_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_FCard_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_pane_set(self, result, argc, argv); } le evaluation */ XEMIT(CODE_BR); tempi = lpc - *pc; IEMIT(tempi); pcode[jpc].i = *pc - jpc; } break; case AST_FOR: { int lpc, jpc; /* generate initialization code */ codeGen(ast->children, pcode, pc); /* generate expression code */ lpc = *pc; codeGen(ast->children->next, pcode, pc); XEMIT(CODE_BR_ZERO); jpc = *pc; (*pc)++; /* generate body code */ codeGen(ast->children->next->next->next, pcode, pc); /* generviola/src/cl_FCard.h 640 6757 17 375 5231040160 7625 /* * class : FCard * superClass : pane */ #include "cl_pane.h" extern ClassInfo class_FCard; int meth_FCard_config(); int meth_FCard_expose(); int meth_FCard_get(); int meth_FCard_initialize(); int meth_FCard_render(); int meth_FCard_set(); Y.hes (p1cl_XBM.coft<p2cl_XBM.hmplTp3cl_XBMButton.cblp4cl_XBMButton.hep5cl_XPM.cbe p6cl_XPM.hl, p7cl_XPMButton.cap8cl_XPMButton.hep9 cl_client.cp: cl_clienviola/src/cl_GIF.c 640 6757 17 5434 5231040160 7267 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : GIF * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_GIF.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_GIF_NCSlots[] = { NULL }; SlotInfo cl_GIF_NPSlots[] = { NULL }; SlotInfo cl_GIF_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"GIF" },{ NULL } }; SlotInfo cl_GIF_PSlots[] = { { STR__classInfo, CLSI, (long)&class_GIF },{ NULL } }; SlotInfo *slots_GIF[] = { (SlotInfo*)cl_GIF_NCSlots, (SlotInfo*)cl_GIF_NPSlots, (SlotInfo*)cl_GIF_CSlots, (SlotInfo*)cl_GIF_PSlots }; MethodInfo meths_GIF[] = { /* local methods */ { STR_config, meth_GIF_config },{ STR_expose, meth_GIF_expose },{ STR_get, meth_GIF_get, },{ STR_initialize, meth_GIF_initialize },{ STR_render, meth_GIF_render },{ STR_set, meth_GIF_set },{ NULL } }; ClassInfo class_GIF = { slots_GIF, /* class slot information */ meths_GIF, /* class methods */ STR_GIF, /* class identifier number */ &class_field, /* super class info */ }; int meth_GIF_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { if (!meth_field_config(self, result, argc, argv)) return 0; return 1; } int meth_GIF_expose(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_render(self, result, argc, argv); } int meth_GIF_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_get(self, result, argc, argv); } int meth_GIF_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_field_initialize(self, result, argc, argv); return 1; } int meth_GIF_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; if (!w) meth_field_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_GIF_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_set(self, result, argc, argv); } b.h qHTFont.hD_I qBUILD_I p Makefile.bak q violaIcon.xbm C qZCLEANe qaliasesN \ qaliasesalize(self, result, argc, argv) VObj *self; Packet *resultviola/src/cl_GIF.h 640 6757 17 357 5231040161 7254 /* * class : GIF * superClass : field */ #include "cl_field.h" extern ClassInfo class_GIF; int meth_GIF_config(); int meth_GIF_expose(); int meth_GIF_get(); int meth_GIF_initialize(); int meth_GIF_render(); int meth_GIF_set(); <p2cl_XBM.horeTp3cl_XBMButton.colp4cl_XBMButton.h}p5cl_XPM.cfiep6cl_XPM.h, tp7cl_XPMButton.c#p8cl_XPMButton.h p9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmiviola/src/cl_HTML.c 640 6757 17 21237 5231040161 7446 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : HTML * superClass : txtDisp */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_HTML.h" #include "misc.h" #include "glib.h" #include "tfed.h" #include "html.h" SlotInfo cl_HTML_NCSlots[] = { NULL }; SlotInfo cl_HTML_NPSlots[] = { { STR_HTMLAddress, PTRS | SLOT_RW, (long)"" },{ STR_HTMLAnchor, PTRS | SLOT_RW, (long)"" },{ STR_HTMLIsIndex, LONG | SLOT_RW, 0 },{ STR_HTMLSource, PTRS, (long)"" },{ STR_HTMLStyle, PTRS | SLOT_RW, (long)"" },{ STR_HTMLTitle, PTRS | SLOT_RW, (long)"" },{ NULL } }; SlotInfo cl_HTML_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"HTML" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"keyPress\":\n\ insert(key());\n\ break;\n\ case \"mouseMove\":\n\ case \"keyRelease\":\n\ case \"buttonRelease\":\n\ break;\n\ case \"shownPositionV\":\n\ set(\"shownPositionV\", arg[1]);\n\ break;\n\ case \"buttonPress\":\n\ processMouseInput();\n\ break;\n\ case \"expose\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ case \"shownPositionH\":\n\ set(\"shownPositionH\", arg[1]);\n\ break;\n\ case \"enter\":\n\ set(\"cursor\", 1);\n\ break;\n\ case \"leave\":\n\ set(\"cursor\", 0);\n\ break;\n\ case \"scroll\":\n\ if (arg[1] == \"down\") {\n\ set(\"shownPositionV\",\n\ get(\"shownPositionV\") -\n\ get(\"shownSizeV\"));\n\ } else if (arg[1] == \"up\") {\n\ set(\"shownPositionV\",\n\ get(\"shownPositionV\") +\n\ get(\"shownSizeV\"));\n\ }\n\ break;\n\ case \"config\":\n\ purgeCache();\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ set(\"HTMLAddress\", get(\"HTMLAddress\"));\n\ break;\n\ case \"clearSelection\":\n\ clearSelection();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ case \"init\":\n\ initialize();\n\ set(\"HTMLAddress\", get(\"HTMLAddress\"));\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_HTML_PSlots[] = { { STR__classInfo, CLSI, (long)&class_HTML },{ NULL } }; SlotInfo *slots_HTML[] = { (SlotInfo*)cl_HTML_NCSlots, (SlotInfo*)cl_HTML_NPSlots, (SlotInfo*)cl_HTML_CSlots, (SlotInfo*)cl_HTML_PSlots }; MethodInfo meths_HTML[] = { /* local methods */ { STR_pathSimplify, meth_HTML_pathSimplify, },{ STR_back, meth_HTML_back },{ STR_config, meth_HTML_config },{ STR_get, meth_HTML_get },{ STR_initialize, meth_HTML_initialize },{ STR_purgeCache, meth_HTML_purgeCache },{ STR_render, meth_HTML_render },{ STR_search, meth_HTML_search },{ STR_set, meth_HTML_set },{ NULL } }; ClassInfo class_HTML = { slots_HTML, /* class slot information */ meths_HTML, /* class methods */ STR_HTML, /* class identifier number */ &class_txtDisp, /* super class info */ }; int meth_HTML_back(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { result->type = PKT_INT; result->info.i = html_backtrack(); return 1; } int meth_HTML_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { /* don't like this explicit naming of meth_pane_config... but... * remember to change it if meth_txtDisp_config be added */ if (!meth_pane_config(self, result, argc, argv)) return 0; if (!html_updateTFStruct(self, GET_HTMLAddress(self))) { return 0; } return 1; } int meth_HTML_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { char *str; int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_HTMLAddress: { result->type = PKT_STR; result->info.s = GET_HTMLAddress(self); return 1; } case STR_HTMLIsIndex: { result->type = PKT_INT; result->info.i = GET_HTMLIsIndex(self); return 1; } case STR_HTMLSource: { result->type = PKT_STR; result->info.s = GET_HTMLSource(self); return 1; } case STR_HTMLStyle: { result->type = PKT_STR; result->info.s = GET_HTMLStyle(self); return 1; } case STR_HTMLTitle: { result->type = PKT_STR; result->info.s = GET_HTMLTitle(self); return 1; } } return meth_txtDisp_get(self, result, argc, argv); } int meth_HTML_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { TFStruct *tf; VObjList *objl; if (!meth_txt_initialize(self, result, argc, argv)) return 0; if (tf = html_setUpTFStruct(self, NULL)) { html_updateTFStruct(self, NULL); scanVerticalMetrics(tf); if (!helper_txtDisp_updateShownInfo(tf)) return 0; for (objl = GET__shownDepend(self); objl; objl = objl->next) { if (objl->o) sendMessage1N2int(objl->o, "shownInfoV", GET_shownPositionV(self), GET_shownSizeV(self)); } return 1; } return 0; } int meth_HTML_pathSimplify(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { result->type = PKT_STR; result->info.s = html_pathSimplify(saveString(PkInfo2Str(&argv[1]))); return 1; } int meth_HTML_purgeCache(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { clearPacket(result); html_clearCache(); return 1; } int meth_HTML_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { if (meth_txtDisp_render(self, result, argc, argv)) { TFStruct *tf = GET__TFStruct(self); /* if the super render methods have newly opened up a window, * then update the tf structure. */ if (tf) if (!tf->w && GET_window(self)) { tf->w = GET_window(self); } return 1; } return 0; } int help_HTML_shownPositionV(self, newPosition) VObj *self; int newPosition; { TFStruct *tf = updateEStrUser(self); int oldDestLine, destLine; int position = GET_shownPositionV(self); VObjList *objl; if (newPosition < 0) newPosition = 0; else if (newPosition > 100) newPosition = 100; if (!tf) return 0; /* to minimize unnecessary update, check for sameness */ if (position == newPosition) return newPosition; /* new position may not be visibly significant */ destLine = ((float)newPosition / 100.0) * (float)(tf->lineVisibleCount - tf->num_of_lines); oldDestLine = ((float)position / 100.0) * (float)(tf->lineVisibleCount - tf->num_of_lines); if (destLine == oldDestLine) { return newPosition; } /* textFieldJumpToLine(self, destLine);*/ GLPrepareObjColor(self); tfed_jumpToOffsetLine(self, destLine); SET_shownPositionV(self, newPosition); return newPosition; } int meth_HTML_search(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { result->type = PKT_INT; result->info.i = html_search(self, PkInfo2Str(&argv[0])); return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_HTML_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { char *str; int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_HTMLAddress: { VObjList *objl; TFStruct *tf; char *address; address = PkInfo2Str(&argv[1]); result->type = PKT_STR; if (!(tf = html_updateTFStruct(self, address))) { SET_HTMLAddress(self, address); result->info.s = ""; return 0; } result->info.s = GET_HTMLAddress(self); scanVerticalMetrics(tf); if (!helper_txtDisp_updateShownInfo(tf)) return 0; for (objl = GET__shownDepend(self); objl; objl = objl->next) { if (objl->o) sendMessage1N2int(objl->o, "shownInfoV", GET_shownPositionV(self), GET_shownSizeV(self)); } return 1; } case STR_HTMLIsIndex: { result->type = PKT_INT; result->info.i = PkInfo2Int(&argv[1]); SET_HTMLTitle(self, result->info.i); return 1; } case STR_HTMLSource: { result->type = PKT_STR; result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_HTMLSource(self, result->info.s); return 1; } case STR_HTMLStyle: { result->type = PKT_STR; result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_HTMLStyle(self, result->info.s); return 1; } case STR_HTMLTitle: { result->type = PKT_STR; result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_HTMLTitle(self, result->info.s); return 1; } } return meth_txtDisp_set(self, result, argc, argv); } ibute.info.i); break; case AST_UMINUS: XEMIT(CODE_UMINUS); break; case AST_EXPR_PLUS: case AST_EXPR_MINUS: case AST_EXPR_MOD: case AST_EXPR_MULT: case AST_EXPR_DIV: case AST_EXPR_EQ: case AST_EXPR_NE: case AST_EXPR_LT: case AST_EXPR_LE: case AST_EXPR_GT: case AST_EXPR_GE: case AST_EXPR_AND: case AST_EXPR_OR: case AST_EXPR_CMP: bviola/src/cl_HTML.h 640 6757 17 553 5231040161 7411 /* * class : HTML * superClass : txtDisp */ #include "cl_txtDisp.h" extern ClassInfo class_HTML; int meth_HTML_back(); int meth_HTML_config(); int meth_HTML_get(); int meth_HTML_initialize(); int meth_HTML_pathSimplify(); int meth_HTML_purgeCache(); int meth_HTML_render(); int meth_HTML_search(); int meth_HTML_set(); int meth_HTML_WWWNameOfFile(); utton.h/p9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.cus<p> cl_dial.viola/src/cl_PS.c 644 6757 17 11565 5231040161 7233 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : PS * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_PS.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_PS_NCSlots[] = { NULL }; SlotInfo cl_PS_NPSlots[] = { NULL }; SlotInfo cl_PS_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"PS" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"mouseMove\":\n\ case \"enter\":\n\ case \"leave\":\n\ case \"keyPress\":\n\ case \"keyRelease\":\n\ case \"buttonPress\":\n\ case \"buttonRelease\":\n\ case \"shownPositionH\":\n\ case \"shownPositionV\":\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"expose\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ default:\n\ print(\"unknown message, clsss = PS: args: \");\n\ for (i = 0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_PS_PSlots[] = { { STR__classInfo, CLSI, (long)&class_PS },{ NULL } }; SlotInfo *slots_PS[] = { (SlotInfo*)cl_PS_NCSlots, (SlotInfo*)cl_PS_NPSlots, (SlotInfo*)cl_PS_CSlots, (SlotInfo*)cl_PS_PSlots }; MethodInfo meths_PS[] = { /* local methods */ { STR_config, meth_PS_config },{ STR_get, meth_PS_get, },{ STR_initialize, meth_PS_initialize },{ STR_render, meth_PS_render },{ STR_set, meth_PS_set },{ NULL } }; ClassInfo class_PS = { slots_PS, /* class slot information */ meths_PS, /* class methods */ STR_PS, /* class identifier number */ &class_field, /* super class info */ }; int meth_PS_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_config(self, result, argc, argv); } int meth_PS_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_direction: result->info.s = GET_direction(self); result->type = PKT_STR; return 1; } return meth_field_get(self, result, argc, argv); } int meth_PS_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_field_initialize(self, result, argc, argv); return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_PS_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_label: { Window w = GET_window(self); result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_label(self, result->info.s); if (w) { sprintf(buff, "%d %d %d %d %d %d %f %f %d %d %d %d", 0, /* bpixmap */ 0, /* orientation */ 0, GET_height(self), /* lower left */ 0, GET_width(self), /* upper right */ (float)screenDPI, (float)screenDPI, /* resolution */ 0, 0, /* left, bottom */ 0, 0); /* top, right */ printf("buff=>%s<\n", buff); XChangeProperty(display, GET_window(self), XmuInternAtom(display, XmuMakeAtom("GHOSTVIEW")), XA_STRING, 8, PropModeReplace, (unsigned char *)buff, strlen(buff)); printf("buff=>%s<\n", buff); sprintf(buff, "%d", GET_window(self)); printf("buff=>%s<\n", buff); /* setenv("GHOSTVIEW", buff, True);*/ /* setenv("DISPLAY", itoa(display...), True);*/ sprintf(buff, "gs %s", GET_label(self)); system(buff); SET__label(self, NULL); } else { SET__label(self, NULL); } result->type = PKT_STR; return 1; } } return meth_field_set(self, result, argc, argv); } int meth_PS_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; if (!w) meth_field_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; if (pixmap = (Pixmap)GET__label(self)) { } else { int width, height, hotx, hoty; char *cp; if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXPMFromASCII(w, cp, &width, &height, &hotx, &hoty); SET__label(self, pixmap); /* GLDisplayPS(w, 0, 0, GET_width(self), GET_height(self), pixmap); */ } return 1; } o2Str(argv)); switch (labelID) { case STR_HTMLAddress: { VObjList *objl; TFStruct *tf; char *address; address = PkInfo2Str(&argviola/src/cl_PS.h 644 6757 17 345 5231040162 7173 /* * class : PS * superClass : field */ #include "cl_field.h" extern ClassInfo class_PS; int meth_PS_config(); int meth_PS_get(); int meth_PS_initialize(); int meth_PS_info(); int meth_PS_render(); int meth_PS_set(); p5cl_XPM.c p6cl_XPM.h p7cl_XPMButton.c p8cl_XPMButton.h p9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.c <p> cl_dial.hagPp? cl_field.c dp@ cl_fviola/src/cl_TTY.c 640 6757 17 13041 5231040162 7355 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : tty * superClass : client */ /* * Contributors: * * Kurt Pires (kjpires@xcf): initial tty code. * Tor Lillqvist (tml@tik.vtt.fi): HP-UX compatibility. */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_TTY.h" #include "misc.h" #include "glib.h" #include "event.h" #include #include #ifdef SYSV #include #endif #ifdef __hpux static char pty[] = "/dev/ptym/ptyXY"; static char tty[] = "/dev/pty/ttyXY"; #else static char pty[] = "/dev/ptyXY"; static char tty[] = "/dev/ttyXY"; #endif SlotInfo cl_TTY_NCSlots[] = { NULL }; SlotInfo cl_TTY_NPSlots[] = { { STR_path, PTRS | SLOT_RW, (long)"", },{ STR_args, PTRS | SLOT_RW, (long)"", },{ STR_pid, LONG, 0 },{ NULL } }; SlotInfo cl_TTY_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"TTY" },{ NULL } }; SlotInfo cl_TTY_PSlots[] = { { STR__classInfo, CLSI, (long)&class_TTY },{ NULL } }; SlotInfo *slots_TTY[] = { (SlotInfo*)cl_TTY_NCSlots, (SlotInfo*)cl_TTY_NPSlots, (SlotInfo*)cl_TTY_CSlots, (SlotInfo*)cl_TTY_PSlots }; MethodInfo meths_TTY[] = { /* local methods */ { STR__startClient, meth_TTY__startClient },{ STR_get, meth_TTY_get, },{ STR_set, meth_TTY_set },{ NULL } }; ClassInfo class_TTY = { slots_TTY, /* class slot information */ meths_TTY, /* class methods */ STR_TTY, /* class identifier number */ &class_client, /* super class info */ }; int meth_TTY__startClient(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int fd, fd_client, pid, n; char *args[16]; char *cp, *ptymajorp, *ptyminorp, *ttymajorp, *ttyminorp; #ifdef SYSV struct termio b; #else struct sgttyb b; struct tchars tc; struct ltchars lc; #ifdef TIOCGWINSZ struct winsize win; #endif int lb; int l; #endif ptymajorp = index(pty, 'X'); ptyminorp = index(pty, 'Y'); ttymajorp = index(tty, 'X'); ttyminorp = index(tty, 'Y'); result->type = PKT_INT; if (ptymajorp == NULL) { MERROR(self, "startClient: Out of pty's.\n"); result->info.i = 0; return 0; } for (*ptymajorp = 'p'; *ptymajorp <= 'z'; *ptymajorp++) { for (cp = "0123456789abcdef"; *cp; cp++) { *ptyminorp = *cp; if ((fd = open(pty, O_RDWR)) >= 0) { *ttymajorp = *ptymajorp; *ttyminorp = *ptyminorp; if ((fd_client = open(tty, O_RDWR)) < 0) { MERROR(self, "startClient: "); perror(tty); close(fd); continue; /* Try next pty */ } #ifdef SYSV ioctl(0, TCGETA, (char *)&b); b.c_cc[VMIN] = 1; b.c_cc[VTIME] = 0; b.c_lflag &= ~ (ICANON | ECHO); ioctl(fd_client, TCSETA, (char *)&b); #else ioctl(0, TIOCGETP, (char *)&b); b.sg_flags |= RAW; b.sg_flags &= ~ECHO; ioctl(fd_client, TIOCSETP, (char *)&b); ioctl(0, TIOCGETC, (char *)&tc); ioctl(fd_client, TIOCSETC, (char *)&tc); ioctl(0, TIOCGETD, (char *)&l); ioctl(fd_client, TIOCSLTC, (char *)&lc); ioctl(0, TIOCGLTC, (char *)&lc); ioctl(fd_client, TIOCLSET, (char *)&lb); ioctl(0, TIOCLGET, (char *)&lb); ioctl(fd_client, TIOCSETD, (char *)&l); #ifdef TIOCGWINSZ ioctl(0, TIOCGWINSZ, (char *)&win); ioctl(fd_client, TIOCSWINSZ, (char *)&win); #endif #endif args[0] = GET_path(self); n = makeArgv(&args[1], GET_args(self)); args[n + 1] = NULL; switch (pid = vfork()) { case -1: /* Error */ MERROR(self, "startClient: "); perror("fork failed"); close(fd_client); close(fd); result->info.i = -1; return 0; case 0: /* Child */ close(fd); if (fd_client != 0) dup2(fd_client, 0); if (fd_client != 1) dup2(fd_client, 1); /* ERROR to current screen */ /* not error */ if (fd_client <= 1) close(fd_client); execv(GET_path(self), args); MERROR(self, "exec: "); perror(GET_path(self)); _exit(-1); default: close(fd_client); SET_pid(self, pid); SET_clientFD(self, fd); result->info.i = fd; return 1; } } } } result->info.i = 0; return 0; } int meth_TTY_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_pid: result->type = PKT_INT; result->info.i = GET_pid(self); return 1; case STR_args: result->type = PKT_STR; result->info.s = GET_args(self); return 1; case STR_path: result->type = PKT_STR; result->info.s = GET_path(self); return 1; } return meth_client_get(self, result, argc, argv); } int meth_TTY_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { switch (getIdent(argv[0].info.s)) { case STR_args: result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_args(self, result->info.s); result->type = PKT_STR; return 1; case STR_path: result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_path(self, result->info.s); result->type = PKT_STR; return 1; } return meth_client_set(self, result, argc, argv); } ", itoa(display...), True);*/ sprintf(buff, "gs %s", GET_label(self)); system(buff); SET__label(self, NULL); } else { SET__label(self, NULL); } result->type = PKT_STR; return 1; } } return meth_field_set(self, result, argc, argv); } int meth_PS_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; if (!w) meth_field_render(self, result, argc, argv); if (!(w = GETviola/src/class.c 640 6757 17 35555 5231040166 7346 /* * Copyright 1991 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class.c */ #include #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "classlist.h" #include "slotaccess.h" #include "attr.h" #define INTARRAYBUFF_SIZE 32 int intArrayBuff[INTARRAYBUFF_SIZE]; long initSlot(); /* * initialize the slot offset values */ int initSlotOffsetInfo(cip, section) ClassInfo *cip; int section; { SlotInfo *sip; int i, offset; if (cip->superClass) { offset = initSlotOffsetInfo(cip->superClass, section); } else { offset = 0; } for (i = 0, sip = cip->slots[section]; sip[i].id; i++) { sip[i].offset = offset++; sip[i].section = section; } return offset; } void dumpSlotInfo(cip, section) ClassInfo *cip; int section; { SlotInfo *sip; int i, offset; if (cip->superClass) dumpSlotInfo(cip->superClass, section); for (i = 0, sip = cip->slots[section]; sip[i].id; i++) { printf("idx = %d\n", i); printf("\tid = %d \"%s\"\n", sip[i].id, (char*)getHashEntry(symID2Str, sip[i].id)->val); printf("\ttype = %d\n", sip[i].flags & SLOT_MASK_TYPE); printf("\tval = %d\n", sip[i].val); printf("\toffset = %d\n", sip[i].offset); printf("\tsection = %d\n", sip[i].section); printf("\ttmp = %d\n", sip[i].tmp); } } void dumpSlotLookup(sip, size) SlotInfo **sip; int size; { int i; for (i = 0; i < size; i++) { printf("idx = %d\n", i); printf("\tid = %d \"%s\"\n", sip[i]->id, (char*)getHashEntry(symID2Str, sip[i]->id)->val); printf("\ttype = %d\n", sip[i]->flags & SLOT_MASK_TYPE); printf("\tval = %d\n", sip[i]->val); printf("\toffset = %d\n", sip[i]->offset); printf("\tsection = %d\n", sip[i]->section); printf("\ttmp = %d\n", sip[i]->tmp); } } /* * */ int initSlotLookUpTable(cip, section, slookup) ClassInfo *cip; int section; SlotInfo **slookup; { SlotInfo *sip; int offset, i; if (cip->superClass) offset = initSlotLookUpTable(cip->superClass, section,slookup); else offset = 0; /* copy in the new slots for the class */ for (i = 0, sip = cip->slots[section]; sip[i].id; i++) slookup[offset++] = &(sip[i]); return offset; } /* * ``section'' can only be 0 or 1 (new common or private slots) */ void overRideSlotLookUpTable(cip, section, slookup, slookup_size) ClassInfo *cip; int section; SlotInfo **slookup; int slookup_size; { SlotInfo *sip; int slookupi; int offset, i; if (cip->superClass) overRideSlotLookUpTable(cip->superClass, section, slookup, slookup_size); /* copy in the new slots for the class */ for (i = 0, sip = cip->slots[section + 2]; sip[i].id; i++) for (slookupi = 0; slookupi < slookup_size; slookupi++) if (sip[i].id == slookup[slookupi]->id) slookup[slookupi] = &(sip[i]); } /* */ int init_class() { ClassInfo *base_clip, *clip; ClassInfo *cip, *tcip; SlotInfo *sip; VObj *obj; int offset, i, j; int load_classScripts(); char classScriptPathBuff[128]; for (i = 0; cip = classList[i]; i++) { /* count the number of slots defined in each new class */ cip->common_newcount = 0; for (j = 0, sip = (SlotInfo*)cip->slots[0]; sip[j++].id; cip->common_newcount++); cip->newcount = 0; for (j = 0, sip = (SlotInfo*)cip->slots[1]; sip[j++].id; cip->newcount++); } for (i = 0; cip = classList[i]; i++) { cip->totalcount = 0; cip->common_totalcount = 0; for (tcip = cip; tcip; tcip = tcip->superClass) { cip->totalcount += tcip->newcount; cip->common_totalcount += tcip->common_newcount; } } /* allocate and initialize slot lookup tables */ for (i = 0; cip = classList[i]; i++) { cip->common_slookup = (SlotInfo**)malloc(sizeof(struct SlotInfo*) * cip->common_totalcount); cip->slookup = (SlotInfo**)malloc(sizeof(struct SlotInfo*) * cip->totalcount); if (cip->common_totalcount > 0) initSlotLookUpTable(cip, 0, cip->common_slookup); if (cip->totalcount > 0) initSlotLookUpTable(cip, 1, cip->slookup); } /* for (i = 0; cip = classList[i]; i++) { printf("----------\n"); dumpSlotInfo(cip, 0); } for (i = 0; cip = classList[i]; i++) { printf("==========\n"); dumpSlotInfo(cip, 1); } */ /* overrides inherited slot info with local class ones */ for (i = 0; cip = classList[i]; i++) { overRideSlotLookUpTable(cip, 0, cip->common_slookup, cip->common_totalcount); overRideSlotLookUpTable(cip, 1, cip->slookup, cip->totalcount); initSlotOffsetInfo(cip, 0); initSlotOffsetInfo(cip, 1); } /* for (i = 0; cip = classList[i]; i++) { printf("--------------------------\n"); dumpSlotLookup(cip->common_slookup, cip->common_totalcount); } for (i = 0; cip = classList[i]; i++) { printf("==========================\n"); dumpSlotLookup(cip->slookup, cip->totalcount); } */ /* * build common objects */ for (i = 0; cip = classList[i]; i++) { obj = (VObj*)malloc(sizeof(long) * cip->common_totalcount); for (j = 0; j < cip->common_totalcount; j++) initSlot(obj, &obj[j], cip->common_slookup[j], cip->common_slookup[j]->val); cip->common = obj; } /* * override hard coded classScript with loaded ones */ if (expandPath(".", classScriptPathBuff)) { load_classScripts(classScriptPathBuff); } return 1; } int load_classScripts(classScriptPath) char *classScriptPath; { HashEntry *entry; ClassInfo *cip; char *classScript; int i; for (i = 0; cip = classList[i]; i++) { if (entry = getHashEntry(symID2Str, (long)cip->id)) { sprintf(buff, "%s/cs_%s.vs", classScriptPath, (char*)entry->val); if (loadFile(buff, &classScript) != -1) { /* printf(">>>old %s {%s}\n", buff, (char*)cip->common[0]); printf(">>>new %s {%s}\n", buff, classScript); */ cip->common[SLOT_IDX_classScript] = (long)classScript; } } } return 1; } long initSlot(self, slotp, sip, val) VObj *self; long *slotp; SlotInfo *sip; long val; { switch (sip->flags & SLOT_MASK_TYPE) { case LONG: case PTRV: case ATTR: case OBJP: case OBJL: case CLSI: case PCOD: case TFLD: case RGBV: return *slotp = val; case ARRY: if (val) { Array *array = (Array*)malloc(sizeof(struct Array)); array->size = transferNumList2Array((char*)val, intArrayBuff, INTARRAYBUFF_SIZE); #ifdef adklgagdkslg /* exception (it's either this or add another tag * or change param usage ... */ if (sip->id == STR_param) { if (array->size < 6) { intArrayBuff[4] = 1; intArrayBuff[5] = 1; array->size = 6; } if (array->size < 8) { intArrayBuff[6] = 9999; intArrayBuff[7] = 9999; array->size = 8; } } #endif array->info = (int*)malloc(sizeof(int) * array->size); bcopy(intArrayBuff, array->info, sizeof(int) * array->size); return *slotp = (long)array; } return NULL; case PTRS: return *slotp = (long)saveString((char*)val); case FUNC: return *slotp = ((long (*)())val)(); case PROC: return ((long (*)())val)(self, slotp); default: fprintf(stderr, "initSlot(): unknown slot type = %d. Setting to NULL.\n", sip->flags & SLOT_MASK_TYPE); return NULL; } } char *returnSlotCast(type) int type; { switch (type) { case PTRV: return ""; /* don't specify type. let it be implicit */ case ATTR: return "(Attr*)"; case OBJP: return "(VObj*)"; case OBJL: return "(VObjList*)"; case PTRS: case PTRA: return "(char*)"; case ARRY: return "(int*)"; case TFLD: return "(TFStruct*)"; case CLSI: return "(ClassInfo*)"; case PCOD: return "(union PCode*)"; case LONG: case PROC: case FUNC: default: return "(long)"; } } int generateSlotAccessors() { FILE *fp; ClassInfo *cip; SlotInfo *sip; char *slotCast; int i, j; if ((fp = fopen("slotaccess.h", "w+")) == NULL) { fprintf(stderr, "failed to generate slotaccess.h\n"); return 0; } for (i = 0; cip = classList[i]; i++) { fprintf(fp, "\n/*******************\n * class %s\n */\n", (char*)getHashEntry(symID2Str, cip->id)->val); fprintf(fp, "/* common slots accessors */\n"); for (j = 0; j < cip->common_totalcount; j++) { sip = cip->common_slookup[j]; slotCast = returnSlotCast(sip->flags & SLOT_MASK_TYPE); fprintf(fp, "#define GET_%s(o) (%s((ClassInfo*)((o)[0])->common[%d]))\n", (char*)getHashEntry(symID2Str, sip->id)->val, slotCast, sip->offset); fprintf(fp, "#define SET_%s(o,v) (%s((ClassInfo*)((o)[0])->common[%d]=(long)(v)))\n\n", (char*)getHashEntry(symID2Str, sip->id)->val, slotCast, sip->offset); } fprintf(fp, "/* private slots accessors */\n"); for (j = 0; j < cip->totalcount; j++) { sip = cip->slookup[j]; slotCast = returnSlotCast(sip->flags & SLOT_MASK_TYPE); /* fprintf(fp, "#define SDX_%s %d\n", (char*)getHashEntry(symID2Str, sip->id)->val, sip->offset); */ fprintf(fp, "#define GET_%s(o) (%s((o)[%d]))\n", (char*)getHashEntry(symID2Str, sip->id)->val, slotCast, sip->offset); fprintf(fp, "#define SET_%s(o,v) (%s((o)[%d]=(long)(v)))\n\n", (char*)getHashEntry(symID2Str, sip->id)->val, slotCast, sip->offset); } } fclose(fp); return 1; } ClassInfo *getClassInfoByID(classid) int classid; { ClassInfo *cip; HashEntry *entry; int i; for (i = 0; cip = classList[i]; i++) if (classid == cip->id) return cip; return 0; } ClassInfo *getClassInfoByName(className) char *className; { ClassInfo *cip; HashEntry *entry; int classid, i; if (entry = getHashEntry(symStr2ID, (int)className)) { classid = entry->val; for (i = 0; cip = classList[i]; i++) if (classid == cip->id) return cip; } return 0; } VObj *buildObjWithLoadedSlots(cip, slotv, slotc) ClassInfo *cip; int slotv[100][2]; int slotc; { VObj *obj = (VObj*)malloc(sizeof(long) * cip->totalcount); SlotInfo *sip; long val; int i, j; if (!obj) return 0; for (i = 0; i < cip->totalcount; i++) { sip = cip->slookup[i]; for (j = 0; j < slotc; j++) { if (sip->id == slotv[j][0]) { sip->tmp = (long)slotv[j]; goto next; } } sip->tmp = 0; next:; } for (i = 0; i < cip->totalcount; i++) { sip = cip->slookup[i]; if (sip->tmp) { /* printf("%d file \t%s\n", i, (char*)getHashEntry(symID2Str, sip->id)->val); */ if ((sip->flags & SLOT_MASK_TYPE) == LONG) { val = atoi((char*)((int*)sip->tmp)[1]); } else { val = (long)((int*)sip->tmp)[1]; } } else { /* printf("%d default\t%s\n", i, (char*)getHashEntry(symID2Str, sip->id)->val); */ val = (long)(sip->val); } initSlot(obj, &obj[i], sip, val); } return obj; } long *searchSlot(slotv, slotc, key) int (*slotv)[100][2]; int slotc; int key; { int i; for (i = 0; i < slotc; i++) if ((*slotv)[i][0] == key) return (long*)(*slotv)[i]; return 0; } VObj *instantiateObj(slotv, slotc) int (*slotv)[100][2]; int *slotc; { long *slotp; int i; char *objName; HashEntry *entry; VObj *obj; ClassInfo *cip; slotp = searchSlot(slotv, *slotc, STR_name); if (!slotp) { fprintf(stderr, "Error: instantiateObj: no name specified.\n"); return NULL; } objName = (char*)slotp[1]; slotp = searchSlot(slotv, *slotc, STR_class); if (!slotp) { fprintf(stderr, "Error: no class specified for object \"%s\". Assume to be generic.\n", objName); (*slotv)[*slotc][0] = STR_class; (*slotv)[*slotc][1] = (int)saveString("generic"); slotp = (*slotv)[*slotc]; ++(*slotc); } /* fprintf(stderr, "class id = %d, class name=\"%s\"\n", (int)(slotp)[0], (char*)(slotp)[1]); */ entry = getHashEntry(symStr2ID, (int)slotp[1]); if (!entry) { fprintf(stderr, "unknown class \"%s\" (not in symbolic table).\n", (char*)slotp[1]); return NULL; } cip = getClassInfoByID(entry->val); if (!cip) { fprintf(stderr, "unknown class \"%s\" (not in class info list).\n", (char*)slotp[1]); return NULL; } /* eliminate the "class" slot by replacing it with * the last slot */ (*slotc)--; slotp[0] = (*slotv)[*slotc][0]; slotp[1] = (*slotv)[*slotc][1]; obj = buildObjWithLoadedSlots(cip, slotv, *slotc); return obj; } int saveSelfAndChildren(obj, fp) VObj *obj; FILE *fp; { VObjList *olist; fprintf(fp, "\\class {%s}\n", GET_class(obj)); dumpObj(obj, fprintf, fp, SLOT_W, 1); for (olist = GET__children(obj); olist; olist = olist->next) saveSelfAndChildren(olist->o, fp); return 1; } /* * flag: 1=dump only if not same as default */ int dumpObj(obj, dumpFunc, dumpDest, filter, flag) VObj *obj; long (*dumpFunc)(); FILE *dumpDest; int filter; int flag; { SlotInfo *sip; VObjList *olist; ClassInfo *cip; int i; cip = GET__classInfo(obj); for (i = 0; i < cip->totalcount; i++) { sip = cip->slookup[i]; if ((sip->flags & filter) != filter) continue; if (flag) if (sip->val == obj[i]) continue; dumpFunc(dumpDest, "\\%s {", (char*)getHashEntry(symID2Str, sip->id)->val); switch (sip->flags & SLOT_MASK_TYPE) { case LONG: dumpFunc(dumpDest, "%d}\n", obj[i]); break; case PTRV: dumpFunc(dumpDest, "%x}\n", obj[i]); break; case OBJP: if (obj[i]) dumpFunc(dumpDest, "%s}\n", GET_name((VObj*)obj[i])); else dumpFunc(dumpDest, "NULL}\n"); break; case OBJL: for (olist = (VObjList*)obj[i]; olist; olist = olist->next) { if (olist->o) dumpFunc(dumpDest, "\"%s\"", GET_name(olist->o)); else dumpFunc(dumpDest, "NULL"); if (olist->next) dumpFunc(dumpDest, ","); } dumpFunc(dumpDest, "}\n"); break; case ATTR: dumpFunc(dumpDest, "attrs %x = {", obj[i]); /* for (olist = (VObjList*)obj[i]; olist; olist = olist->next) dumpFunc(dumpDest, "\"%s\"", GET_name(olist->o)); */ if (obj[i]) dumpVarList((Attr*)obj[i]); else dumpFunc(dumpDest, "NULL"); dumpFunc(dumpDest, "}\n"); break; case PTRS: case PTRA: dumpFunc(dumpDest, "%s}\n", (char*)obj[i]); break; case ARRY: { int n; Array *array = (Array*)obj[i]; if (array) { for (n = 0; n < array->size; n++) { dumpFunc(dumpDest, "%d ", array->info[n]); } dumpFunc(dumpDest, "}\n"); } else { dumpFunc(dumpDest, "NULL}\n"); } } break; case TFLD: dumpFunc(dumpDest, "tfstruct ptr=%d}\n", obj[i]); break; case PROC: case FUNC: default: dumpFunc(dumpDest, "unknown val=%d}\n", obj[i]); break; } } dumpFunc(dumpDest, "\\\n"); return 1; } VObj *clone(original) VObj *original; { VObj *clone; ClassInfo *cip; SlotInfo *sip; int i; cip = GET__classInfo(original); clone = (VObj*)malloc(sizeof(long) * cip->totalcount); if (!clone) return 0; for (i = 0; i < cip->totalcount; i++) { sip = cip->slookup[i]; initSlot(clone, &clone[i], sip, original[i]); } return clone; } y->size < 8) { intArrayBuff[6] = 9999; intArrayBuff[7] = 9999; array->size = 8; } } #endif array->info = (int*)malloc(sizeviola/src/cl_TTY.h 640 6757 17 256 5231040162 7326 /* * class : TTY * superClass : client */ #include "cl_client.h" extern ClassInfo class_TTY; int meth_TTY_get(); int meth_TTY_set(); int meth_TTY__startClient(); _XPM.c p6cl_XPM.h 72p7cl_XPMButton.cp8cl_XPMButton.hp9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.c<p> cl_dial.hPp? cl_field.cdp@ cl_field.h|pA cl_generic.cpB cl_generic.hviola/src/cl_XBM.c 640 6757 17 11651 5235177173 7351 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : XBM * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_XBM.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_XBM_NCSlots[] = { NULL }; SlotInfo cl_XBM_NPSlots[] = { NULL }; SlotInfo cl_XBM_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"XBM" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"mouseMove\":\n\ case \"enter\":\n\ case \"leave\":\n\ case \"keyPress\":\n\ case \"keyRelease\":\n\ case \"buttonPress\":\n\ case \"buttonRelease\":\n\ case \"shownPositionH\":\n\ case \"shownPositionV\":\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ /*render();*/\n\ break;\n\ case \"expose\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ default:\n\ print(\"unknown message, clsss = XBM: args: \");\n\ for (i = 0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_XBM_PSlots[] = { { STR__classInfo, CLSI, (long)&class_XBM },{ NULL } }; SlotInfo *slots_XBM[] = { (SlotInfo*)cl_XBM_NCSlots, (SlotInfo*)cl_XBM_NPSlots, (SlotInfo*)cl_XBM_CSlots, (SlotInfo*)cl_XBM_PSlots }; MethodInfo meths_XBM[] = { /* local methods */ { STR_config, meth_XBM_config },{ STR_expose, meth_XBM_expose },{ STR_get, meth_XBM_get, },{ STR_initialize, meth_XBM_initialize },{ STR_render, meth_XBM_render },{ STR_set, meth_XBM_set },{ NULL } }; ClassInfo class_XBM = { slots_XBM, /* class slot information */ meths_XBM, /* class methods */ STR_XBM, /* class identifier number */ &class_field, /* super class info */ }; int meth_XBM_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_config(self, result, argc, argv); } int meth_XBM_expose(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; meth_field_expose(self, result, argc, argv); if (!(w = GET_window(self))) return 0; if (!(pixmap = (Pixmap)GET__label(self))) { int width, height, hotx, hoty; char *cp; if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXBMFromASCII(w, cp, &width, &height, &hotx, &hoty); SET__label(self, pixmap); SET_width(self, width); SET_height(self, height); } if (pixmap) { GLDisplayXBM(w, 0, 0, GET_width(self), GET_height(self), pixmap); result->info.i = 1; return 1; } result->info.i = 0; return 0; } int meth_XBM_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_get(self, result, argc, argv); } int meth_XBM_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_initialize(self, result, argc, argv); } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_XBM_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_label: { Pixmap pixmap; int width, height, hotx, hoty; char *cp; meth_field_set(self, result, argc, argv); if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXBMFromASCII(rootWindow, cp, &width, &height, &hotx, &hoty); SET__label(self, pixmap); SET_width(self, width); SET_height(self, height); return 1; } } return meth_field_set(self, result, argc, argv); } int meth_XBM_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; meth_field_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; if (!(pixmap = (Pixmap)GET__label(self))) { int width, height, hotx, hoty; char *cp; if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXBMFromASCII(w, cp, &width, &height, &hotx, &hoty); SET__label(self, pixmap); SET_width(self, width); SET_height(self, height); } if (pixmap) { GLDisplayXBM(w, 0, 0, GET_width(self), GET_height(self), pixmap); result->info.i = 1; return 1; } result->info.i = 0; return 0; } arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ casviola/src/cl_XBM.h 640 6757 17 404 5231040162 7267 /* * class : XBM * superClass : field */ #include "cl_field.h" extern ClassInfo class_XBM; int meth_XBM_config(); int meth_XBM_expose(); int meth_XBM_get(); int meth_XBM_initialize(); int meth_XBM_info(); int meth_XBM_render(); int meth_XBM_set(); t.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.c <p> cl_dial.h Pp? cl_field.cldp@ cl_field.h |pA cl_generic.c pB cl_generic.hclupC cl_glass.c pD cl_glass.h viola/src/cl_XBMButton.c 640 6757 17 5055 5231040162 10505 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : XBMButton * superClass : XBM */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_XBMButton.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_XBMButton_NCSlots[] = { NULL }; SlotInfo cl_XBMButton_NPSlots[] = { NULL }; SlotInfo cl_XBMButton_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"XBMButton" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"mouseMove\":\n\ case \"enter\":\n\ case \"leave\":\n\ case \"keyPress\":\n\ case \"keyRelease\":\n\ break;\n\ case \"buttonPress\":\n\ smudge();\n\ break;\n\ case \"buttonRelease\":\n\ clean();\n\ break;\n\ case \"expose\":\n\ case \"render\":\n\ render();\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ render();\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ case \"interpret\":\n\ interpret(arg[1]);\n\ break;\n\ default:\n\ print(\"unknown message, clsss = XBMButton: args: \");\n\ for (i =0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_XBMButton_PSlots[] = { { STR__classInfo, CLSI, (long)&class_XBMButton },{ NULL } }; SlotInfo *slots_XBMButton[] = { (SlotInfo*)cl_XBMButton_NCSlots, (SlotInfo*)cl_XBMButton_NPSlots, (SlotInfo*)cl_XBMButton_CSlots, (SlotInfo*)cl_XBMButton_PSlots }; MethodInfo meths_XBMButton[] = { /* local methods */ { STR_render, meth_XBMButton_render },{ NULL } }; ClassInfo class_XBMButton = { slots_XBMButton, /* class slot information */ meths_XBMButton, /* class methods */ STR_XBMButton, /* class identifier number */ &class_XBM, /* super class info */ }; int meth_XBMButton_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_XBM_render(self, result, argc, argv); } HTFont.hxma qBUILDma p Makefile.bakata q violaIcon.xbm m qZCLEANse qaliasesNor qaliasesdow w = GET_window(self); Pixmap pixmap; meth_field_expose(self, result, argc, argv); if (!(w = GET_window(self))) return 0; if (!(pixmap = (Pixmap)GET__label(self))) { int width, height, hotx, hoty; char *cp; if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXBMFromASCII(w, cp, &width, &heiviola/src/cl_XBMButton.h 640 6757 17 214 5231040163 10463 /* * class : XBMButton * superClass : XBM */ #include "cl_XBM.h" extern ClassInfo class_XBMButton; int meth_XBMButton_render(); p8cl_XPMButton.hrp9 cl_client.cp: cl_client.hp; cl_cosmic.cp< cl_cosmic.h(p= cl_dial.ct;<p> cl_dial.hipPp? cl_field.c dp@ cl_field.hs|pA cl_generic.cTYPpB cl_generic.h "pC cl_glass.cCpD cl_glass.hmpE cl_hpane.c)pF cl_hpane.h viola/src/cl_XPM.c 640 6757 17 10644 5235166520 7362 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : XPM * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_XPM.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_XPM_NCSlots[] = { NULL }; SlotInfo cl_XPM_NPSlots[] = { NULL }; SlotInfo cl_XPM_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"XPM" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"mouseMove\":\n\ case \"enter\":\n\ case \"leave\":\n\ case \"keyPress\":\n\ case \"keyRelease\":\n\ case \"buttonPress\":\n\ case \"buttonRelease\":\n\ case \"shownPositionH\":\n\ case \"shownPositionV\":\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"expose\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ default:\n\ print(\"unknown message, clsss = XPM: args: \");\n\ for (i = 0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_XPM_PSlots[] = { { STR__classInfo, CLSI, (long)&class_XPM },{ NULL } }; SlotInfo *slots_XPM[] = { (SlotInfo*)cl_XPM_NCSlots, (SlotInfo*)cl_XPM_NPSlots, (SlotInfo*)cl_XPM_CSlots, (SlotInfo*)cl_XPM_PSlots }; MethodInfo meths_XPM[] = { /* local methods */ { STR_config, meth_XPM_config },{ STR_get, meth_XPM_get, },{ STR_initialize, meth_XPM_initialize },{ STR_render, meth_XPM_render },{ STR_set, meth_XPM_set },{ NULL } }; ClassInfo class_XPM = { slots_XPM, /* class slot information */ meths_XPM, /* class methods */ STR_XPM, /* class identifier number */ &class_field, /* super class info */ }; int meth_XPM_config(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_field_config(self, result, argc, argv); } int meth_XPM_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_direction: result->info.s = GET_direction(self); result->type = PKT_STR; return 1; } return meth_field_get(self, result, argc, argv); } int meth_XPM_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_field_initialize(self, result, argc, argv); return 1; } /* * returns non-zero if set operation succeded, zero otherwise. */ int meth_XPM_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_label: { Window w = GET_window(self); int width, height, hotx, hoty; Pixmap pixmap; result->info.s = SaveString(PkInfo2Str(&argv[1])); SET_label(self, result->info.s); pixmap = GLMakeXPMFromASCII(rootWindow, result->info.s, &width, &height, &hotx, &hoty); SET__label(self, pixmap); SET_width(self, width); SET_height(self, height); result->type = PKT_STR; return 1; } } return meth_field_set(self, result, argc, argv); } int meth_XPM_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { Window w = GET_window(self); Pixmap pixmap; if (!w) meth_field_render(self, result, argc, argv); if (!(w = GET_window(self))) return 0; if (pixmap = (Pixmap)GET__label(self)) { GLDisplayXPM(w, 0, 0, GET_width(self), GET_height(self), pixmap); } else { int width, height, hotx, hoty; char *cp; if (!(cp = GET_label(self))) return 0; pixmap = GLMakeXPMFromASCII(w, cp, &width, &height, &hotx, &hoty); SET__label(self, pixmap); SET_width(self, width); SET_height(self, height); GLDisplayXPM(w, 0, 0, GET_width(self), GET_height(self), pixmap); } return 1; } rateSlotAccessors() { FILE *fp; ClassInfo *cip; SlotInfo *sip; char *slotCast; int i, viola/src/cl_XPM.h 640 6757 17 355 5231040163 7313 /* * class : XPM * superClass : field */ #include "cl_field.h" extern ClassInfo class_XPM; int meth_XPM_config(); int meth_XPM_get(); int meth_XPM_initialize(); int meth_XPM_info(); int meth_XPM_render(); int meth_XPM_set(); p> cl_dial.hinPp? cl_field.cpdp@ cl_field.hf|pA cl_generic.cidepB cl_generic.hRCApC cl_glass.cdpD cl_glass.hopE cl_hpane.cZpF cl_hpane.hop cl_menu.c=/p cl_menu.hIN(pviola/src/cl_XPMButton.c 640 6757 17 5127 5231040163 10524 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : XPMButton * superClass : XPM */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_XPMButton.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_XPMButton_NCSlots[] = { NULL }; SlotInfo cl_XPMButton_NPSlots[] = { NULL }; SlotInfo cl_XPMButton_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"XPMButton" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"mouseMove\":\n\ case \"enter\":\n\ case \"leave\":\n\ case \"keyPress\":\n\ case \"keyRelease\":\n\ break;\n\ case \"buttonPress\":\n\ smudge();\n\ break;\n\ case \"buttonRelease\":\n\ clean();\n\ break;\n\ case \"expose\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"render\":\n\ render();\n\ break;\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ case \"info\":\n\ info();\n\ break;\n\ case \"interpret\":\n\ interpret(arg[1]);\n\ break;\n\ default:\n\ print(\"unknown message, clsss = XPMButton: args: \");\n\ for (i =0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\\n\");\n\ break;\n\ }\n\ ", },{ NULL } }; SlotInfo cl_XPMButton_PSlots[] = { { STR__classInfo, CLSI, (long)&class_XPMButton },{ NULL } }; SlotInfo *slots_XPMButton[] = { (SlotInfo*)cl_XPMButton_NCSlots, (SlotInfo*)cl_XPMButton_NPSlots, (SlotInfo*)cl_XPMButton_CSlots, (SlotInfo*)cl_XPMButton_PSlots }; MethodInfo meths_XPMButton[] = { /* local methods */ { STR_render, meth_XPMButton_render },{ NULL } }; ClassInfo class_XPMButton = { slots_XPMButton, /* class slot information */ meths_XPMButton, /* class methods */ STR_XPMButton, /* class identifier number */ &class_XPM, /* super class info */ }; int meth_XPMButton_render(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { return meth_XPM_render(self, result, argc, argv); } and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * classviola/src/cl_XPMButton.h 640 6757 17 214 5231040163 10501 /* * class : XPMButton * superClass : XPM */ #include "cl_XPM.h" extern ClassInfo class_XPMButton; int meth_XPMButton_render();  cl_cosmic.h(p= cl_dial.c<p> cl_dial.hPp? cl_field.c]dp@ cl_field.h|pA cl_generic.cpB cl_generic.h6YpC cl_glass.c]pD cl_glass.hpE cl_hpane.ccpF cl_hpane.hp cl_menu.c9+p cl_menu.hdg(p cl_pane.cV<p cl_pane.hTp viola/src/cl_client.c 640 6757 17 22042 5231040164 10156 /* * Copyright 1990 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : client * superClass : field */ #include #include #include "error.h" #include "mystrings.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "packet.h" #include "class.h" #include "slotaccess.h" #include "classlist.h" #include "cl_client.h" #include "misc.h" #include "glib.h" #include "event.h" SlotInfo cl_client_NCSlots[] = { NULL }; SlotInfo cl_client_NPSlots[] = { { STR_inDelimStat, LONG, 0 },{ STR_inDelimStr1, PTRS | SLOT_RW, (long)"", },{ STR_inDelimStr2, PTRS | SLOT_RW, (long)"", },{ STR_outDelimStr, PTRS | SLOT_RW, (long)"", },{ STR_clientFD, LONG, -1 },{ STR_clientFP, LONG, 0 },{ NULL } }; SlotInfo cl_client_CSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"client" },{ NULL } }; SlotInfo cl_client_PSlots[] = { { STR__classInfo, CLSI, (long)&class_client },{ NULL } }; SlotInfo *slots_client[] = { (SlotInfo*)cl_client_NCSlots, (SlotInfo*)cl_client_NPSlots, (SlotInfo*)cl_client_CSlots, (SlotInfo*)cl_client_PSlots }; MethodInfo meths_client[] = { /* local methods */ { STR_endClient, meth_client_endClient, },{ STR_freeSelf, meth_client_freeSelf, },{ STR_get, meth_client_get, },{ STR_initialize, meth_client_initialize },{ STR_input, meth_client_input, },{ STR_inputn, meth_client_inputn, },{ STR_output, meth_client_output, },{ STR_set, meth_client_set },{ STR_startClient, meth_client_startClient },{ NULL } }; ClassInfo class_client = { slots_client, /* class slot information */ meths_client, /* class methods */ STR_client, /* class identifier number */ &class_field, /* super class info */ }; int meth_client_endClient(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int fd = GET_clientFD(self); result->type = PKT_INT; if (fd != -1) { objFDList[fd] = NULL; close(fd); SET_clientFD(self, -1); result->info.i = 0; return 0; } result->info.i = 1; return 1; } int meth_client_freeSelf(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { char *cp; callMeth(self, result, 0, NULL, STR_endClient); if (cp = GET_inDelimStr1(self)) free(cp); if (cp = GET_inDelimStr2(self)) free(cp); if (cp = GET_outDelimStr(self)) free(cp); meth_field_freeSelf(self, result, argc, argv); clearPacket(result); return 1; } int meth_client_get(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int labelID = getIdent(PkInfo2Str(argv)); switch (labelID) { case STR_clientFD: result->type = PKT_INT; result->info.i = GET_clientFD(self); return 1; case STR_clientFP: result->type = PKT_INT; result->info.i = GET_clientFP(self); return 1; case STR_inDelimStat: result->type = PKT_INT; result->info.i = GET_inDelimStat(self); return 1; case STR_inDelimStr1: result->type = PKT_STR; result->info.s = GET_inDelimStr1(self); return 1; case STR_inDelimStr2: result->type = PKT_STR; result->info.s = GET_inDelimStr2(self); return 1; } return meth_field_get(self, result, argc, argv); } int meth_client_initialize(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { meth_field_initialize(self, result, argc, argv); return 1; } /* * input([mode]) * * if mode = 1, the inDelimStr is included. * (default) if mode = 0, the inDelimStr is stripped out. * * this procedure affects: * inDelimStat * 2 if matched with inDelimStr2 * 1 if matched with inDelimStr1 * 0 don't use (and if unexpected '\0' is encountered) * -1 if fd is closed (fd == -1). * -2 if fd is if (read() <= 0). are these stats even useful? * -3 if fd is if (read() != 1). */ int meth_client_input(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int fd = GET_clientFD(self); int c, cc, i = 0, n; char *inDelimStr1 = GET_inDelimStr1(self); char *inDelimStr2 = GET_inDelimStr2(self); int mode = 0; char cbuff[2]; int mi = 0, mstrlen = strlen(inDelimStr1); int mi2 = 0, mstrlen2 = strlen(inDelimStr2); if (fd == -1) { MERROR(self, "client input: fd is -1"); SET_inDelimStat(self, -1); result->info.s = ""; return NULL; } if (argc > 0) mode = PkInfo2Int(&argv[0]); /* read from stdin (now receiving child's stdout) */ for (c = 0; ; ++c){ cc = read(fd, cbuff, 1); if (cc <= 0) { SET_inDelimStat(self, -2); /* sendMessage1(self, "endClient");*/ result->type = PKT_STR; result->info.s = saveString(""); return 0; } if (cc != 1) { buff[c] = '\0'; result->type = PKT_STR; result->info.s = saveString(buff); SET_inDelimStat(self, -3); return 0; } if (cbuff[0] == '\0') { if (verbose) printf("unexpected NULL in fd = %d\n", fd); buff[c] = '\0'; SET_inDelimStat(self, 0); result->type = PKT_STR; result->info.s = saveString(buff); return 0; } if (cbuff[0] >= 0) buff[c] = cbuff[0]; /* if (verbose) printf("[%c]%d \n", cbuff[0], (int)(cbuff[0]));*/ if (cbuff[0] == inDelimStr1[mi]) { if (verbose) printf("match.\n"); if (++mi >= mstrlen) { if (verbose) printf("match all.\n"); SET_inDelimStat(self, 1); if (mode) { buff[c] = '\0'; } else { buff[c - mstrlen - 0] = '\0'; } result->type = PKT_STR; result->info.s = saveString(buff); return 1; } } else { if (verbose) printf("unmatch.\n"); mi = 0; } if (cbuff[0] == inDelimStr2[mi2]) { if (verbose) printf("match2.\n"); if (++mi2 >= mstrlen2) { if (verbose) printf("match2 all.\n"); SET_inDelimStat(self, 2); if (mode) { buff[c] = '\0'; } else { buff[c - mstrlen2 - 0] = '\0'; } result->type = PKT_STR; result->info.s = saveString(buff); return 1; } } else { if (verbose) printf("unmatch2.\n"); mi2 = 0; } } } int meth_client_inputn(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int fd = GET_clientFD(self); int cc, i = 0, n; if (fd == -1) { MERROR(self, "client inputn: fd is -1"); result->type = PKT_STR; result->info.s = saveString(""); return 0; } n = PkInfo2Int(&argv[0]); while (i < n) { cc = read(fd, &buff[i], n-i); if (cc <= 0) { /* sendMessage1(self, "endClient");*/ } else { i += cc; } } buff[i] = '\0'; result->type = PKT_STR; result->info.s = saveString(buff); return 1; } /* * result set to length of data if successful * returns 1 on success, 0 on failure */ int meth_client_output(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int i, res; int fd = GET_clientFD(self); char *data, length, *outDelimStr = GET_outDelimStr(self); length = 0; result->info.i = 0; result->type = PKT_INT; for (i = 0; i < argc; i++) { data = PkInfo2Str(&argv[i]); if (fd == -1) { MERROR(self, "client output: file descriptor not open."); return 0; } data = PkInfo2Str(&argv[0]); length = strlen(data); result->info.i += length; res = write(fd, data, length); if (res < 0) { MERROR(self, "write to client failed: failed."); } if (outDelimStr[0] != '\0') { res = write(fd, outDelimStr, strlen(outDelimStr)); } if (res < 0) { MERROR(self, "writing outDelimStr to client failed."); return 0; } } return 1; } int meth_client_startClient(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int fd = GET_clientFD(self); result->type = PKT_INT; if (fd >= 0) { /* a connection already exists. close the existing * connection first */ objFDList[fd] = NULL; close(fd); SET_clientFD(self, -1); printf("startClient: connection already exists. reconnecting.\n"); } if (!callMeth(self, result, 0, NULL, STR__startClient)) { result->info.i = 0; return 0; } fd = GET_clientFD(self); result->info.i = fd; if (fd < 0) { MERROR(self, "startClient: failed to start"); return 0; } else { SET_clientFD(self, fd); objFDList[fd] = self; FD_SET(fd, &read_mask); return 1; } } int meth_client_set(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { switch (getIdent(argv[0].info.s)) { case STR_inDelimStr1: result->info.s = SaveString(argv[1].info.s); SET_inDelimStr1(self, result->info.s); result->type = PKT_STR; return 1; case STR_inDelimStr2: result->info.s = SaveString(argv[1].info.s); SET_inDelimStr2(self, result->info.s); result->type = PKT_STR; return 1; case STR_outDelimStr: result->info.s = SaveString(argv[1].info.s); SET_outDelimStr(self, result->info.s); result->type = PKT_STR; return 1; case STR_inDelimStat: SET_inDelimStat(self, result->info.i); result->type = PKT_INT; return 1; } return meth_field_set(self, result, argc, argv); } case STR_clientFP: result->type = PKT_INT; result->info.i = GET_clientFP(self); return 1; case STR_inDelimStat: result->type = PKT_INT; result->info.i = GET_inDelimStat(self); return 1; case STR_inDelimStr1: result->type = PKT_STR; result->info.s = GET_inDelimStr1(self); return 1; case STR_inDelimStr2: result->type = PKT_STR; result->info.s = GET_inDelimStr2(self); return 1; } return meth_field_get(self, result, argc, argv); } int meth_clviola/src/cl_client.h 640 6757 17 537 5231040164 10130 /* * class : client * superClass : field */ #include "cl_field.h" extern ClassInfo class_client; int meth_client_endClient(); int meth_client_freeSelf(); int meth_client_get(); int meth_client_initialize(); int meth_client_input(); int meth_client_inputn(); int meth_client_output(); int meth_client_set(); int meth_client_startClient(); {p cl_menu.c= p cl_menu.hib(p cl_pane.c-><p cl_pane.hesTp cl_project.clorlp cl_project.horspviola/src/cl_cosmic.c 640 6757 17 40311 5231040164 10154 /* * Copyright 1990 1991 Pei-Yuan Wei. All rights reserved. * * Permission to use, copy, and/or distribute for any purpose and * without fee is hereby granted, provided that both the above copyright * notice and this permission notice appear in all copies and derived works. * Fees for distribution or use of this software or derived works may only * be charged with express written permission of the copyright holder. * This software is provided ``as is'' without express or implied warranty. */ /* * class : cosmic * superClass : NULL */ #include #include #include "mystrings.h" #include "error.h" #include "hash.h" #include "ident.h" #include "obj.h" #include "vlist.h" #include "attr.h" #include "packet.h" #include "class.h" #include "classlist.h" #include "cl_cosmic.h" #include "slotaccess.h" #include "cexec.h" #include "misc.h" SlotInfo cl_cosmic_NCSlots[] = { { STR_class, PTRS | SLOT_RW, (long)"cosmic" },{ STR_classScript, PTRS, (long)"\n\ switch (arg[0]) {\n\ case \"config\":\n\ config(arg[1], arg[2], arg[3], arg[4]);\n\ break;\n\ case \"expose\":\n\ case \"render\":\n\ expose(arg[1], arg[2], arg[3], arg[4]);\n\ render();\n\ break;\n\ case \"init\":\n\ initialize();\n\ break;\n\ default:\n\ print(\"unknown message, clsss = cosmic: args: \");\n\ for (i =0; i < arg[]; i++) print(arg[i], \", \");\n\ print(\"\\n\");\n\ break;\n\ }\n\ ", },{ STR__classScript, PCOD, NULL, },{ STR__classScriptSize, LONG, 0, },{ NULL } }; SlotInfo cl_cosmic_NPSlots[] = { { STR__classInfo, CLSI, (long)&class_cosmic },{ NULL } }; SlotInfo cl_cosmic_CSlots[] = { NULL }; SlotInfo cl_cosmic_PSlots[] = { NULL }; SlotInfo *slots_cosmic[] = { (SlotInfo*)cl_cosmic_NCSlots, (SlotInfo*)cl_cosmic_NPSlots, (SlotInfo*)cl_cosmic_CSlots, (SlotInfo*)cl_cosmic_PSlots }; MethodInfo meths_cosmic[] = { { STR_clone, meth_cosmic_clone },{ STR_clone2, meth_cosmic_clone2 },{ STR_create, meth_cosmic_create },{ STR_debug, meth_cosmic_debug },{ STR_detach, meth_cosmic_detach },{ STR_destroy, meth_cosmic_destroy },{ STR_exit, meth_cosmic_exit },{ STR_exist, meth_cosmic_exist },{ STR_freeSelf, meth_cosmic_freeSelf },{ STR_info, meth_cosmic_info },{ STR_interpret, meth_cosmic_interpret },{ STR_object, meth_cosmic_object },{ STR_pop, meth_cosmic_pop },{ STR_push, meth_cosmic_push },{ STR_quit, meth_cosmic_quit },{ STR_save, meth_cosmic_save },{ STR_saveAs, meth_cosmic_saveAs },{ STR_send, meth_cosmic_send },{ STR_test1, meth_cosmic_test1 },{ STR_test2, meth_cosmic_test2 },{ STR_test3, meth_cosmic_test3 },{ STR_test4, meth_cosmic_test4 },{ STR_tweak, meth_cosmic_tweak },{ STR_usual, meth_cosmic_usual },{ NULL } }; ClassInfo class_cosmic = { slots_cosmic, /* class slot information */ meths_cosmic, /* class methods */ STR_cosmic, /* class identifier number */ NULL, /* super class */ }; void sendInitToChildren(self) VObj *self; { Packet result; VObjList *olist; if (!callMeth(self, &result, 0, NULL, STR_initialize)) { fprintf(stderr, "clone ``%s''not properly initialized\n", GET_name(self)); /* error */ } for (olist = GET__children(self); olist; olist = olist->next) if (olist->o) sendInitToChildren(olist->o); } /* * clone(clone name suffix) * * Make a clone self * * Result: clone object, and optinally name it * Return: 1 if successful, 0 if error occured */ int meth_cosmic_clone(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { VObj *cloneObj; if (!meth_cosmic_clone2(self, result, argc, argv)) return 0; cloneObj = result->info.o; if (cloneObj) { sendInitToChildren(cloneObj); result->type = PKT_OBJ; result->info.o = cloneObj; return 1; } result->type = PKT_OBJ; result->info.o = NULL; return 0; } int meth_cosmic_clone2(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { char *suffix; VObj *cloneObj; char newName[255]; cloneObj = clone(self); suffix = PkInfo2Str(&argv[0]); if (!cloneObj || !suffix) { result->type = PKT_OBJ; result->info.o = NULL; return 0; } sprintf(newName, "%s%s", GET_name(cloneObj), suffix); SET_name(cloneObj, saveString(newName)); putHashEntry(objID2Obj, storeIdent(GET_name(cloneObj)), (int)cloneObj); result->type = PKT_OBJ; result->info.o = cloneObj; return 1; } /* * create() * * Result: created object * Return: 1 if successful, 0 if error occured */ int meth_cosmic_create(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { int slotv[100][2], slotc = 0, i; char *cp; HashEntry *entry; VObj *obj; result->type = PKT_OBJ; result->info.o = NULL; for (slotc = 0, i = 0; i < argc; slotc++, i += 2) { cp = PkInfo2Str(&argv[i]); if (!cp) { printf("create(): unknown attribute:"); dumpPacket(&argv[i]); printf("\n"); return 0; } entry = getHashEntry(symStr2ID, (int)cp); if (!entry) { printf("create(): unknown attribute: \"%s\"\n", cp); return 0; } slotv[slotc][0] = (int)(entry->val); slotv[slotc][1] = (int)saveString(PkInfo2Str(&argv[i + 1])); } if (slotc <= 0) return 0; if (obj = instantiateObj(slotv, &slotc)) { putHashEntry(objID2Obj, storeIdent(GET_name(obj)), (int)obj); sendMessage1(obj, "init"); result->type = PKT_OBJ; result->info.o = obj; return 1; } else { fprintf(stderr, "create(): failed to create object.\n"); return 0; } } /* * detach() * * * Result: * Return: */ int meth_cosmic_detach(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { clearPacket(result); return 0; } /* * debug() * * Used to turn on/off various debugging flags. * * Result: * Return: */ int meth_cosmic_debug(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { clearPacket(result); if (!STRCMP(PkInfo2Str(&argv[0]), "pa")) { extern int flag_printAST; flag_printAST = PkInfo2Int(&argv[1]); } else if (!STRCMP(PkInfo2Str(&argv[0]), "pc")) { extern int flag_printPCode; flag_printPCode = PkInfo2Int(&argv[1]); } else if (!STRCMP(PkInfo2Str(&argv[0]), "pe")) { extern int flag_printExec; flag_printExec = PkInfo2Int(&argv[1]); } else if (!STRCMP(PkInfo2Str(&argv[0]), "dumpPCode")) { int pc = 0; union PCode *pcode = GET__script(self); int pc_limit = GET__scriptSize(self); printPCode(pcode, &pc, pc_limit); } return 1; } /* * destroy(object name) * * Remove the existance of an object. * * Result: * Return: */ int meth_cosmic_destroy(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { clearPacket(result); return 0; } /* * exit(value) * * Exit viola with specified value. * * Result: n/a * Return: n/a */ int meth_cosmic_exit(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { fprintf(stderr, "exit...\n"); exit(PkInfo2Int(&argv[0])); } /* * exist() * * Determines whether if an object is currently loaded. * * Result: * Return: */ int meth_cosmic_exist(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { HashEntry *entry; result->type = PKT_INT; if (entry = getHashEntry(symStr2ID, (int)PkInfo2Str(&argv[0]))) { if (findObject(entry->val)) { result->info.i = 1; return 1; } } result->info.i = 0; return 1; } /* * () * * * Result: * Return: */ int meth_cosmic_freeSelf(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { clearPacket(result); free(self); /* and remove from object list...*/ return 1; } /* * info() * * Info flags: * * Print to stdout slot values for the calling object. * "listAllMethods" * Print to stdout name of methods in all classes. * "listMethods" * Print to stdout name of methods in calling obj's class. * "listSlotsRW" * "listSlotsR" * "listSlotsW" * Print to stdout slot values for the calling object, * filterd by SLOT_R/W flags. * "listAllObjects" * List to stdout name of all loaded objects. * * Result: * Return: */ int meth_cosmic_info(self, result, argc, argv) VObj *self; Packet *result; int argc; Packet argv[]; { char *cp; clearPacket(result); if (argc == 0) { return dumpObj(self, fprintf, stdout, 0, 0); } cp = PkInfo2Str(&argv[0]); if (!STRCMP(cp, "listMethods")) { extern HashTable *symID2Str; ClassInfo *cip; MethodInfo *mip; FILE *fp; if (argc >= 2) { cip = getClassInfoByName(PkInfo2Str(&argv[1])); } else { cip = (ClassInfo*)GET_class(self); } if (argc == 3) { fp = fopen(PkInfo2Str(&argv[2]), "w"); if (!fp) return 0; for (mip = cip->methods; mip->id; mip++) fprintf(fp, "%s\n", (char*)getHashEntry(symID2Str, mip->id)->val); fclose(fp); } else { char sbuff[255]; buff[0] ='\0'; for (mip = cip->methods; mip->id; mip++) { sprintf(sbuff, "%s\n", (char*)getHashEntry(symID2Str, mip->id)->val); strcat(buff, " "); strcat(buff, sbuff); } result->info.s = saveString(buff); result->type = PKT_STR; } } else if (!STRCMP(cp, "listNPSlots")) { ClassInfo *cip; SlotInfo *sip; int i; if (argc >= 2) { cip = getClassInfoByName(PkInfo2Str(&argv[1])); } else { cip = (ClassInfo*)GET_class(self); } buff[0] = '\0'; sip = cip->slots[1]; /* section 1 is NPSlots */ for (i = 0; sip[i].id; i++) { if (!(sip[i].flags & SLOT_RW)) continue; strcat(buff, (char*)getHashEntry(symID2Str, sip[i].id)->val); strcat(buff, "\n"); } result->info.s = saveString(buff); result->type = PKT_STR; } else if (!STRCMP(cp, "listNCSlots")) { ClassInfo *cip; SlotInfo *sip; int i; if (argc >= 2) { cip = getClassInfoByName(PkInfo2Str(&argv[1])); } else { cip = (ClassInfo*)GET_class(self); } buff[0] = '\0'; sip = cip->slots[0]; /* section 0 is NCSlots */ for (i = 0; sip[i].id; i++) { strcat(buff, (char*)getHashEntry(symID2Str, sip[i].id)->val); strcat(buff, "\n"); } result->info.s = saveString(buff); result->type = PKT_STR; } else if (!STRCMP(cp, "listSlotsRW")) { return dumpObj(self, fprintf, stdout, SLOT_RW, 0); } else if (!STRCMP(cp, "listSlotsR")) { return dumpObj(self, fprintf, stdout, SLOT_R, 0); } else if (!STRCMP(cp, "listSlotsW")) { return dumpObj(self, fprintf, stdout, SLOT_W, 0); } else if (!STRCMP(cp, "listAllObjects")) { } else if (!STRCMP(cp, "listAllMethods")) { extern HashTable *symStr2ID, *symID2Str; ClassInfo *cip, *cip2; MethodInfo *mip; int i; for (i = 0; cip = classList[i]; i++) { printf("\n%s :\n", (char*)getHashEntry(symID2Str, cip->id)->val); for (cip2 = cip; cip2; cip2 = cip2->superClass) { for (mip = cip2->methods; mip->id; mip++) { printf("%s\n", (char*)getHashEntry(symID2Str, mip->id)->val); } } printf("\n"); } } return 1; } /* * interpret(