diff options
Diffstat (limited to 'interpret.c')
| -rw-r--r-- | interpret.c | 429 |
1 files changed, 429 insertions, 0 deletions
diff --git a/interpret.c b/interpret.c new file mode 100644 index 0000000..d12922b --- /dev/null +++ b/interpret.c @@ -0,0 +1,429 @@ +/* +** interpret.c +** +** interprets and executes lines in the Xgc syntax. +*/ +/* $XFree86: xc/programs/xgc/interpret.c,v 1.4 2002/01/07 20:38:30 dawes Exp $ */ + +#include <stdio.h> +#include <stdlib.h> +#include <X11/Intrinsic.h> +#include <X11/StringDefs.h> +#include "xgc.h" +#include "tile" + +void change_text(); +void GC_change_function(); +void GC_change_foreground(); +void GC_change_background(); +void GC_change_linewidth(); +void GC_change_linestyle(); +void GC_change_capstyle(); +void GC_change_joinstyle(); +void GC_change_fillstyle(); +void GC_change_fillrule(); +void GC_change_arcmode(); +void GC_change_dashlist(); +void GC_change_planemask(); +void GC_change_font(); +void change_test(); +void change_percent(); + +extern void update_dashlist(); +extern void update_planemask(); +extern void update_slider(); +extern void select_button(); +extern void run_test(); +extern void print_if_recording(); + +extern XgcStuff TestStuff; +extern XgcStuff FunctionStuff; +extern XgcStuff LinestyleStuff; +extern XgcStuff CapstyleStuff; +extern XgcStuff JoinstyleStuff; +extern XgcStuff FillstyleStuff; +extern XgcStuff FillruleStuff; +extern XgcStuff ArcmodeStuff; + +extern XStuff X; +extern ChoiceDesc *GCdescs[]; +extern ChoiceDesc *testchoicedesc; +extern Widget test; +extern Widget GCform; +extern Widget foregroundtext; +extern Widget backgroundtext; +extern Widget linewidthtext; +extern Widget fonttext; +extern Widget dashlistchoice; +extern Widget planemaskchoice; +extern Widget testchoiceform; + +extern int fildes[2]; +extern FILE *outend; +extern FILE *yyin; + +/* interpret(string) +** ----------------- +** Takes string, which is a line written in the xgc syntax, figures +** out what it means, and passes the buck to the right procedure. +** That procedure gets called with feedback set to FALSE; interpret() +** is only called if the user is selecting things interactively. +** +** This procedure will go away when I can figure out how to make yacc +** and lex read from strings as well as files. +*/ + +void +interpret(string) + const char *string; +{ + char word1[20], word2[80]; + int i; + + sscanf(string,"%s",word1); + if (!strcmp(word1,"run")) run_test(); + + else { + sscanf(string,"%s %s",word1,word2); + print_if_recording(string); + + /* So word1 is the first word on the line and word2 is the second. + Now the fun begins... */ + + if (!strcmp(word1,TestStuff.choice.text)) { + for (i=0;i<NUM_TESTS;++i) { + if (!strcmp(word2,(TestStuff.data)[i].text)) { + change_test((TestStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,FunctionStuff.choice.text)) { + for (i=0;i<NUM_FUNCTIONS;++i) { + if (!strcmp(word2,(FunctionStuff.data)[i].text)) { + GC_change_function((FunctionStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,LinestyleStuff.choice.text)) { + for (i=0;i<NUM_LINESTYLES;++i) { + if (!strcmp(word2,(LinestyleStuff.data)[i].text)) { + GC_change_linestyle((LinestyleStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,"linewidth")) + GC_change_linewidth(atoi(word2),FALSE); + else if (!strcmp(word1,CapstyleStuff.choice.text)) { + for (i=0;i<NUM_CAPSTYLES;++i) { + if (!strcmp(word2,(CapstyleStuff.data)[i].text)) { + GC_change_capstyle((CapstyleStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,JoinstyleStuff.choice.text)) { + for (i=0;i<NUM_JOINSTYLES;++i) { + if (!strcmp(word2,(JoinstyleStuff.data)[i].text)) { + GC_change_joinstyle((JoinstyleStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,FillstyleStuff.choice.text)) { + for (i=0;i<NUM_FILLSTYLES;++i) { + if (!strcmp(word2,(FillstyleStuff.data)[i].text)) { + GC_change_fillstyle((FillstyleStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,FillruleStuff.choice.text)) { + for (i=0;i<NUM_FILLRULES;++i) { + if (!strcmp(word2,(FillruleStuff.data)[i].text)) { + GC_change_fillrule((FillruleStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,ArcmodeStuff.choice.text)) { + for (i=0;i<NUM_ARCMODES;++i) { + if (!strcmp(word2,(ArcmodeStuff.data)[i].text)) { + GC_change_arcmode((ArcmodeStuff.data)[i].code,FALSE); + break; + } + } + } + else if (!strcmp(word1,"planemask")) + GC_change_planemask((unsigned long) atoi(word2),FALSE); + else if (!strcmp(word1,"dashlist")) + GC_change_dashlist(atoi(word2),FALSE); + else if (!strcmp(word1,"font")) + GC_change_font(word2,FALSE); + else if (!strcmp(word1,"foreground")) + GC_change_foreground((unsigned long) atoi(word2),FALSE); + else if (!strcmp(word1,"background")) + GC_change_background((unsigned long) atoi(word2),FALSE); + else if (!strcmp(word1,"percent")) + change_percent(atoi(word2), FALSE); + else fprintf(stderr,"Ack... %s %s\n",word1,word2); + } +} + +#ifdef notdef +void +interpret(instring) + const char *instring; +{ + FILE *inend; + + print_if_recording(instring); + yyin = outend; + inend = fdopen(fildes[1],"w"); + fprintf(inend,"%s",instring); + fclose(inend); + yyparse(); +} +#endif + +#define select_correct_button(which,number) \ + select_button(GCdescs[(which)],(number)); + +/* GC_change_blahzee(foo,feedback) +** --------------------- +** Changes the blahzee field in xgc's GC to foo. If feedback is TRUE, +** changes the display to reflect this (makes it look like the user +** selected the button, or typed in the text, or whatever). +*/ + +void +GC_change_function(function,feedback) + int function; + Boolean feedback; +{ + XSetFunction(X.dpy,X.gc,function); + X.gcv.function = function; + if (feedback) select_correct_button(CFunction,function); +} + +void +GC_change_foreground(foreground,feedback) + unsigned long foreground; + Boolean feedback; +{ + char text[40]; + + XSetForeground(X.dpy,X.miscgc,foreground); + XCopyPlane(X.dpy,X.stipple,X.tile,X.miscgc,0,0,tile_width,tile_height,0,0,1); + XSetForeground(X.dpy,X.gc,foreground); + X.gcv.foreground = foreground; + XSetTile(X.dpy,X.gc,X.tile); + XSetTile(X.dpy,X.miscgc,X.tile); + if (feedback) { + sprintf(text,"%lu",foreground); + change_text(foregroundtext,text); + } +} + +void +GC_change_background(background,feedback) + unsigned long background; + Boolean feedback; +{ + char text[40]; + + XSetBackground(X.dpy,X.miscgc,background); + XCopyPlane(X.dpy,X.stipple,X.tile,X.miscgc,0,0,tile_width,tile_height,0,0,1); + XSetBackground(X.dpy,X.gc,background); + X.gcv.background = background; + XSetTile(X.dpy,X.gc,X.tile); + XSetTile(X.dpy,X.miscgc,X.tile); + + /* Update the background of the test window NOW. */ + + XSetWindowBackground(X.dpy,XtWindow(test),background); + XClearWindow(X.dpy,XtWindow(test)); + + if (feedback) { + sprintf(text,"%lu",background); + change_text(backgroundtext,text); + } +} + +void +GC_change_linewidth(linewidth,feedback) + int linewidth; + Boolean feedback; +{ + char text[40]; + + X.gcv.line_width = linewidth; + XChangeGC(X.dpy,X.gc,GCLineWidth,&X.gcv); + if (feedback) { + sprintf(text,"%d",linewidth); + change_text(linewidthtext,text); + } +} + +void +GC_change_linestyle(linestyle,feedback) + int linestyle; + Boolean feedback; +{ + X.gcv.line_style = linestyle; + XChangeGC(X.dpy,X.gc,GCLineStyle,&X.gcv); + if (feedback) select_correct_button(CLinestyle,linestyle); +} + +void +GC_change_capstyle(capstyle,feedback) + int capstyle; + Boolean feedback; +{ + X.gcv.cap_style = capstyle; + XChangeGC(X.dpy,X.gc,GCCapStyle,&X.gcv); + if (feedback) select_correct_button(CCapstyle,capstyle); +} + +void +GC_change_joinstyle(joinstyle,feedback) + int joinstyle; + Boolean feedback; +{ + X.gcv.join_style = joinstyle; + XChangeGC(X.dpy,X.gc,GCJoinStyle,&X.gcv); + if (feedback) select_correct_button(CJoinstyle,joinstyle); +} + +void +GC_change_fillstyle(fillstyle,feedback) + int fillstyle; + Boolean feedback; +{ + XSetFillStyle(X.dpy,X.gc,fillstyle); + X.gcv.fill_style = fillstyle; + if (feedback) select_correct_button(CFillstyle,fillstyle); +} + +void +GC_change_fillrule(fillrule,feedback) + int fillrule; + Boolean feedback; +{ + XSetFillRule(X.dpy,X.gc,fillrule); + X.gcv.fill_rule = fillrule; + if (feedback) select_correct_button(CFillrule,fillrule); +} + +void +GC_change_arcmode(arcmode,feedback) + int arcmode; + Boolean feedback; +{ + XSetArcMode(X.dpy,X.gc,arcmode); + X.gcv.arc_mode = arcmode; + if (feedback) select_correct_button(CArcmode,arcmode); +} + +/* GC_change_dashlist(dashlist) +** ---------------------------- +** Now this one's a bit tricky. dashlist gets passed in as an int, but we +** want to change it to an array of chars, like the GC likes it. +** For example: +** 119 => XXX_XXX_ => [3,1,3,1] +*/ + +void +GC_change_dashlist(dashlist,feedback) + int dashlist; + Boolean feedback; +{ + char dasharray[DASHLENGTH]; /* what we're gonna pass to XSetDashes */ + int dashnumber = 0; /* which element of dasharray we're currently + modifying */ + int i; /* which bit of the dashlist we're on */ + int state = 1; /* whether the list bit we checked was + on (1) or off (0) */ + + /* Initialize the dasharray */ + + for (i = 0; i < DASHLENGTH; ++i) dasharray[i] = 0; + + if (dashlist == 0) return; /* having no dashes at all is bogus */ + + /* XSetDashes expects the dashlist to start with an on bit, so if it + ** doesn't, we keep on rotating it until it does */ + + while (!(dashlist&1)) dashlist /= 2; + + /* Go through all the bits in dashlist, and update the dasharray + ** accordingly */ + + for (i = 0; i < DASHLENGTH; ++i) { + /* the following if statements checks to see if the bit we're looking + ** at as the same on or offness as the one before it (state). If + ** so, we increment the length of the current dash. */ + + if (((dashlist&1<<i) && state) || (!(dashlist&1<<i) && !state)) + ++dasharray[dashnumber]; + else { + state = state^1; /* reverse the state */ + ++dasharray[++dashnumber]; /* start a new dash */ + } + } + + XSetDashes(X.dpy,X.gc,0,dasharray,dashnumber+1); + X.gcv.dashes = dashlist; + + if (feedback) update_dashlist(dashlist); +} + +void +GC_change_planemask(planemask,feedback) + unsigned long planemask; + Boolean feedback; +{ + XSetPlaneMask(X.dpy,X.gc,planemask); + X.gcv.plane_mask = planemask; + if (feedback) update_planemask((long)planemask); +} + +void +change_test(test,feedback) + int test; + Boolean feedback; +{ + X.test = test; + if (feedback) select_button(testchoicedesc,test); +} + +void +GC_change_font(str,feedback) + const char *str; + Boolean feedback; +{ + int num_fonts; /* number of fonts that match the string */ + + XListFonts(X.dpy,str,1,&num_fonts); /* see if the font exists */ + + if (num_fonts) { + XSetFont(X.dpy,X.gc,XLoadFont(X.dpy,str)); + if (feedback) change_text(fonttext,str); + } +} + +void +change_percent(percent,feedback) + int percent; + Boolean feedback; +{ + /* Make sure that percent is valid */ + + if (percent < 1 || percent > 100) return; + + X.percent = (float) percent / 100.0; + + if (feedback) update_slider(percent); +} |