1:
2: /* =||>>================================================================<<||= */
3: /* 45678901234567890123456789012345678901234567890123456789012345678901234567 */
4: /* copyrighted by Isaac Tsai, 1996, 1997, 1998, 1999, 2000 */
5: /* =||>>================================================================<<||= */
6:
7: #include <stdlib.h>
8: #include <string.h>
9: #include <math.h>
10:
11: #include "capaParser.h" /* Symbol_p */
12: #include "capaFunction.h" /* RANDOM_F etc. */
13: #include "capaToken.h"
14: #include "capaCommon.h"
15: #include "ranlib.h"
16:
17:
18: char Parse_class[QUARTER_K];
19: int Parse_set;
20: int Parse_section;
21: char Parse_student_number[MAX_STUDENT_NUMBER+1];
22: char Parse_name[MAX_NAME_CHAR+1];
23: long capaid_plus_gen;
24:
25: extern int Parsemode_f;
26:
27: extern int Lexi_qnum;
28: extern char Opened_filename[MAX_OPENED_FILE][QUARTER_K];
29: extern int Input_idx;
30: extern int Current_line[MAX_OPENED_FILE];
31:
32: extern int Func_idx;
33: extern Symbol FuncStack[MAX_FUNC_NEST];
34:
35: /* --------------------------------------------------------------------------- */
36: int
37: match_function(func, argc) char *func; int argc;
38: {
39: if( !strcmp(func,"random") ) return (((argc==2 || argc==3)? RANDOM_F : MIS_ARG_COUNT));
40: if( !strcmp(func,"choose") ) return (CHOOSE_F);
41: if( !strcmp(func,"tex") ) return (((argc==2)? TEX_F: MIS_ARG_COUNT));
42: if( !strcmp(func,"var_in_tex") ) return (VAR_IN_TEX_F);
43: if( !strcmp(func,"html") ) return (((argc==1)? HTML_F: MIS_ARG_COUNT));
44: if( !strcmp(func,"web") ) return (((argc==3)? WEB_F: MIS_ARG_COUNT));
45: if( !strcmp(func,"pin") ) return (((argc<2)? PIN_F: MIS_ARG_COUNT));
46: if( !strcmp(func,"capa_id") ) return (((argc<2)? PIN_F: MIS_ARG_COUNT));
47: if( !strcmp(func,"class") ) return (((argc==0)? CLASS_F: MIS_ARG_COUNT));
48: if( !strcmp(func,"section") ) return (((argc==0)? SECTION_F: MIS_ARG_COUNT));
49: if( !strcmp(func,"set") ) return (((argc==0)? SET_F: MIS_ARG_COUNT));
50: if( !strcmp(func,"problem") ) return (((argc==0)? PROBLEM_F: MIS_ARG_COUNT));
51: if( !strcmp(func,"name") ) return (((argc==0)? NAME_F: MIS_ARG_COUNT));
52: if( !strcmp(func,"student_number") ) return (((argc==0)? SNUMBER_F: MIS_ARG_COUNT));
53: if( !strcmp(func,"due_date") ) return (((argc<2)? DUE_DATE_F: MIS_ARG_COUNT));
54: if( !strcmp(func,"due_day") ) return (((argc<2)? DUE_DAY_F: MIS_ARG_COUNT));
55: if( !strcmp(func,"open_date") ) return (((argc<2)? OPEN_DATE_F: MIS_ARG_COUNT));
56: if( !strcmp(func,"answer_date") ) return (((argc<2)? ANSWER_DATE_F: MIS_ARG_COUNT));
57: if( !strcmp(func,"to_string") ) return (((argc==1 || argc==2)? TO_STRING_F: MIS_ARG_COUNT));
58: if( !strcmp(func,"sub_string") ) return (((argc==2 || argc==3)? SUB_STRING_F: MIS_ARG_COUNT));
59: if( !strcmp(func,"strlen") ) return (((argc==1)? STRLEN_F: MIS_ARG_COUNT));
60: if( !strcmp(func,"get_seed") ) return (((argc==0)? GET_SEED_F: MIS_ARG_COUNT));
61: if( !strcmp(func,"set_seed") ) return (((argc==1)? SET_SEED_F: MIS_ARG_COUNT));
62: if( !strcmp(func,"array_index") ) return (((argc==1)? ARRAY_INDEX_F: MIS_ARG_COUNT));
63: if( !strcmp(func,"array_sorted_index") ) return (((argc==2)? ARRAY_SORTED_INDEX_F: MIS_ARG_COUNT));
64: if( !strcmp(func,"array_max") ) return (((argc==1)? ARRAY_MAX_F: MIS_ARG_COUNT));
65: if( !strcmp(func,"array_min") ) return (((argc==1)? ARRAY_MIN_F: MIS_ARG_COUNT));
66: if( !strcmp(func,"array_moments") ) return (((argc==2)? ARRAY_MOMENTS_F: MIS_ARG_COUNT));
67: if( !strcmp(func,"array_var") ) return (((argc==1)? ARRAY_VARIANCE_F: MIS_ARG_COUNT));
68: if( !strcmp(func,"array_std_dev") ) return (((argc==1)? ARRAY_STD_DEV_F: MIS_ARG_COUNT));
69: if( !strcmp(func,"array_skewness") ) return (((argc==1)? ARRAY_SKEWNESS_F: MIS_ARG_COUNT));
70: if( !strcmp(func,"to_int") ) return (((argc==1)? TO_INT_F: MIS_ARG_COUNT));
71: if( !strcmp(func,"format") ) return (FORMAT_F);
72: if( !strcmp(func,"pick") ) return (((argc> 1)? PICK_F: MIS_ARG_COUNT));
73: if( !strcmp(func,"sin") ) return (((argc==1)? SIN_F: MIS_ARG_COUNT));
74: if( !strcmp(func,"cos") ) return (((argc==1)? COS_F: MIS_ARG_COUNT));
75: if( !strcmp(func,"tan") ) return (((argc==1)? TAN_F: MIS_ARG_COUNT));
76: if( !strcmp(func,"asin") ) return (((argc==1)? ASIN_F: MIS_ARG_COUNT));
77: if( !strcmp(func,"acos") ) return (((argc==1)? ACOS_F: MIS_ARG_COUNT));
78: if( !strcmp(func,"atan") ) return (((argc==1)? ATAN_F: MIS_ARG_COUNT));
79: if( !strcmp(func,"sinh") ) return (((argc==1)? SINH_F: MIS_ARG_COUNT));
80: if( !strcmp(func,"cosh") ) return (((argc==1)? COSH_F: MIS_ARG_COUNT));
81: if( !strcmp(func,"tanh") ) return (((argc==1)? TANH_F: MIS_ARG_COUNT));
82: if( !strcmp(func,"asinh") ) return (((argc==1)? ASINH_F: MIS_ARG_COUNT));
83: if( !strcmp(func,"acosh") ) return (((argc==1)? ACOSH_F: MIS_ARG_COUNT));
84: if( !strcmp(func,"atanh") ) return (((argc==1)? ATANH_F: MIS_ARG_COUNT));
85: if( !strcmp(func,"atan2") ) return (((argc==2)? ATANTWO_F: MIS_ARG_COUNT));
86: if( !strcmp(func,"j0") ) return (((argc==1)? J_ZERO_F: MIS_ARG_COUNT));
87: if( !strcmp(func,"j1") ) return (((argc==1)? J_ONE_F: MIS_ARG_COUNT));
88: if( !strcmp(func,"jn") ) return (((argc==2)? J_N_F: MIS_ARG_COUNT));
89: if( !strcmp(func,"y0") ) return (((argc==1)? Y_ZERO_F: MIS_ARG_COUNT));
90: if( !strcmp(func,"y1") ) return (((argc==1)? Y_ONE_F: MIS_ARG_COUNT));
91: if( !strcmp(func,"yn") ) return (((argc==2)? Y_N_F: MIS_ARG_COUNT));
92: if( !strcmp(func,"log") ) return (((argc==1)? LOG_F: MIS_ARG_COUNT));
93: if( !strcmp(func,"log10") ) return (((argc==1)? LOG_TEN_F: MIS_ARG_COUNT));
94: if( !strcmp(func,"exp") ) return (((argc==1)? EXP_F: MIS_ARG_COUNT));
95: if( !strcmp(func,"pow") ) return (((argc==2)? POW_F: MIS_ARG_COUNT));
96: if( !strcmp(func,"erf") ) return (((argc==1)? ERF_F: MIS_ARG_COUNT));
97: if( !strcmp(func,"erfc") ) return (((argc==1)? ERFC_F: MIS_ARG_COUNT));
98: if( !strcmp(func,"sqrt") ) return (((argc==1)? SQRT_F: MIS_ARG_COUNT));
99: if( !strcmp(func,"min") ) return (MIN_F);
100: if( !strcmp(func,"max") ) return (MAX_F);
101: if( !strcmp(func,"abs") ) return (((argc==1)? ABS_F: MIS_ARG_COUNT));
102: if( !strcmp(func,"floor") ) return (((argc==1)? FLOOR_F: MIS_ARG_COUNT));
103: if( !strcmp(func,"ceil") ) return (((argc==1)? CEIL_F: MIS_ARG_COUNT));
104: if( !strcmp(func,"sgn") ) return (((argc==1)? SGN_F: MIS_ARG_COUNT));
105: if( !strcmp(func,"mod") ) return (((argc==2)? MOD_F: MIS_ARG_COUNT));
106: if( !strcmp(func,"remainder") ) return (((argc==2)? REMAINDER_F: MIS_ARG_COUNT));
107: if( !strcmp(func,"factorial") ) return (((argc==1)? FACTORIAL_F: MIS_ARG_COUNT));
108: if( !strcmp(func,"roundto") ) return (((argc==2)? ROUNDTO_F: MIS_ARG_COUNT));
109: if( !strcmp(func,"eval_formula") ) return (((argc==3)? EVALUATE_F: MIS_ARG_COUNT));
110: if( !strcmp(func,"capa_id_plus") ) return (((argc==1 || argc==2)? CAPAID_PLUS: MIS_ARG_COUNT));
111: if( !strcmp(func,"seat_number") ) return (((argc <2)? SEAT_NUMBER: MIS_ARG_COUNT));
112: if( !strcmp(func,"duration") ) return (((argc==0)? DURATION: MIS_ARG_COUNT));
113: if( !strcmp(func,"is_open") ) return (((argc <2)? IS_OPEN_F: MIS_ARG_COUNT));
114: if( !strcmp(func,"is_due") ) return (((argc <2)? IS_DUE_F: MIS_ARG_COUNT));
115: if( !strcmp(func,"is_answer") ) return (((argc <2)? IS_ANSWER_F: MIS_ARG_COUNT));
116: return (UNKNOWN_F);
117: }
118:
119: /**********************************************************/
120:
121:
122: #ifdef SGN
123: #undef SGN
124: #endif
125: #define SGN(xx) ( (xx) > 0 ? 1 : ( (xx) == 0 ? 0 : -1) )
126:
127:
128: #define MAX_DOUBLE 1.7976931348623157E+308
129: #define MIN_DOUBLE 2.2250738585072014E-308
130:
131: #define INT_DIV 0
132: #define REAL_DIV 1
133: #define INT_LOWER 0
134: #define REAL_LOWER 2
135: #define INT_UPPER 0
136: #define REAL_UPPER 4
137:
138: #define ALL_INTEGER 0
139:
140: int which_set(argc,argp,resultp)
141: int argc;
142: ArgNode_t *argp;
143: Symbol *resultp;
144: {
145: char aline[MAX_BUFFER_SIZE], tmpS[MAX_BUFFER_SIZE];
146: int result=Parse_set;
147: if( argc == 1 ) {
148: if( (FIRST_ARGTYPE(argp) == S_VAR ) ||
149: (FIRST_ARGTYPE(argp) == S_CONSTANT ) ) {
150: sprintf(aline,"<<ARG TYPE MISMATCH>>");
151: resultp->s_type = S_CONSTANT;
152: resultp->s_str = strsave(aline);
153: sprintf(tmpS, "function %s() cannot accept string as argument.\n",
154: FuncStack[Func_idx].s_name);
155: capa_msg(MESSAGE_ERROR,tmpS);
156: result=-1;
157: } else {
158: if( (FIRST_ARGTYPE(argp) == I_VAR ) ||
159: (FIRST_ARGTYPE(argp) == I_CONSTANT ) ) {
160: result = FIRST_ARGINT(argp);
161: } else {
162: result = FIRST_ARGREAL(argp);
163: }
164: }
165: }
166: return result;
167: }
168:
169: Symbol *
170: do_function(func,argc,argp)
171: int func;
172: int argc;
173: ArgNode_t *argp;
174: {
175: Symbol *resultp;
176: ArgNode_t *tmpArgp;
177: char aline[MAX_BUFFER_SIZE], tmpS[MAX_BUFFER_SIZE], fmt_str[FORMAT_STRING_LENG];
178: char num_str[SMALL_LINE_BUFFER],date_str[SMALL_LINE_BUFFER];
179: double tmpA=0.0, tmpB=0.0;
180: int slots, noError, errCode, mo, yy, dd, hh, mm, tmpInt;
181: long rout;
182: char *wday[9] = {"Sat,", "Sun,", "Mon,", "Tue,", "Wed,", "Thr,", "Fri,", "Sat,", "\0"};
183: char *month[SIXTEEN] = { "UNKNOWN", "Jan", "Feb", "Mar", "Apr", "May", "Jun",
184: "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", "UNKNOWN", "UNKNOWN", "\0"};
185:
186: resultp = (Symbol *)capa_malloc(1,sizeof(Symbol));
187:
188: switch(func) {
189: case RANDOM_F: { int type_flag=0;
190: double r_lower=0.0, r_upper=1.0, r_division=1.0;
191:
192: errCode = 0; rout = ignlgi();
193: switch( FIRST_ARGTYPE(argp) ) {
194: case I_VAR: case I_CONSTANT: break;
195: case R_VAR: case R_CONSTANT: type_flag = (type_flag | 1); break;
196: case S_VAR: case S_CONSTANT: errCode = 1; break;
197: }
198: switch( SECOND_ARGTYPE(argp) ) {
199: case I_VAR: case I_CONSTANT: break;
200: case R_VAR: case R_CONSTANT: type_flag = (type_flag | 2); break;
201: case S_VAR: case S_CONSTANT: errCode = 2; break;
202: }
203: if( argc == 3 ) {
204: switch( THIRD_ARGTYPE(argp) ) {
205: case I_VAR: case I_CONSTANT: break;
206: case R_VAR: case R_CONSTANT: type_flag = (type_flag | 4); break;
207: case S_VAR: case S_CONSTANT: errCode = 4; break;
208: }
209: }
210: if( errCode == 0 ) {
211: if( argc == 3 ) {
212: switch(type_flag) {
213: case 0: r_division = (double)FIRST_ARGINT(argp);
214: r_upper = (double)SECOND_ARGINT(argp);
215: r_lower = (double)THIRD_ARGINT(argp); break;
216: case 2: r_division = (double)FIRST_ARGINT(argp);
217: r_upper = SECOND_ARGREAL(argp);
218: r_lower = (double)THIRD_ARGINT(argp); break;
219: case 4: r_division = (double)FIRST_ARGINT(argp);
220: r_upper = (double)SECOND_ARGINT(argp);
221: r_lower = THIRD_ARGREAL(argp); break;
222: case 6: r_division = (double)FIRST_ARGINT(argp);
223: r_upper = SECOND_ARGREAL(argp);
224: r_lower = THIRD_ARGREAL(argp); break;
225: case 1: r_division = FIRST_ARGREAL(argp);
226: r_upper = (double)SECOND_ARGINT(argp);
227: r_lower = (double)THIRD_ARGINT(argp); break;
228: case 3: r_division = FIRST_ARGREAL(argp);
229: r_upper = SECOND_ARGREAL(argp);
230: r_lower = (double)THIRD_ARGINT(argp); break;
231: case 5: r_division = FIRST_ARGREAL(argp);
232: r_upper = (double)SECOND_ARGINT(argp);
233: r_lower = THIRD_ARGREAL(argp); break;
234: case 7: r_division = FIRST_ARGREAL(argp);
235: r_upper = SECOND_ARGREAL(argp);
236: r_lower = THIRD_ARGREAL(argp); break;
237: }
238: } else { /* two args */
239: switch(type_flag) {
240: case 0: r_upper = (double)FIRST_ARGINT(argp);
241: r_lower = (double)SECOND_ARGINT(argp); break;
242: case 1: r_upper = FIRST_ARGREAL(argp);
243: r_lower = (double)SECOND_ARGINT(argp); break;
244: case 2: r_upper = (double)FIRST_ARGINT(argp);
245: r_lower = SECOND_ARGREAL(argp); break;
246: case 3: r_upper = FIRST_ARGREAL(argp);
247: r_lower = SECOND_ARGREAL(argp); break;
248: }
249: r_division = 1.0;
250: }
251: if( r_upper >= r_lower ) {
252: slots = 1 + (int)floor( (r_upper - r_lower)/r_division );
253: if( type_flag == 0 ) {
254: resultp->s_type = I_CONSTANT;
255: resultp->s_int = (int)r_lower + ((int)r_division)*(rout % slots );
256: } else {
257: resultp->s_type = R_CONSTANT;
258: resultp->s_real = r_lower + r_division*(double)(rout % slots );
259: }
260: } else {
261: resultp->s_type = S_CONSTANT;
262: resultp->s_str = strsave("<<2ND ARG MUST .GE. 1ST ARG>>");
263: sprintf(tmpS,"random()'s second arg. must be greater than the first arg.\n");
264: capa_msg(MESSAGE_ERROR,tmpS);
265: }
266: } else {
267: resultp->s_type = S_CONSTANT;
268: resultp->s_str = strsave("<<ARG CANNOT BE STRING>>");
269: sprintf(tmpS,"random() cannot accept string as argument.\n");
270: capa_msg(MESSAGE_ERROR,tmpS);
271: }
272: } break;
273: case CHOOSE_F: { int ii, pick=1;
274: ArgNode_t *tmpArgp;
275:
276: noError = 1;
277: tmpArgp = argp; ii=0;
278: while( ii < argc-1 ) {tmpArgp = tmpArgp->a_next; ii++; }
279: switch( FIRST_ARGTYPE(tmpArgp) ) {
280: case IDENTIFIER:
281: sprintf(tmpS,"The first argument to choose(): \"%s\" has not been defined yet. I will choose the first element.\n",FIRST_ARGNAME(tmpArgp));
282: capa_msg(MESSAGE_ERROR,tmpS);
283: pick = 1;
284: break;
285: case I_VAR: case I_CONSTANT:
286: pick = FIRST_ARGINT(tmpArgp); break;
287: case R_VAR: case R_CONSTANT:
288: pick = (int)FIRST_ARGREAL(tmpArgp);
289: sprintf(tmpS,"The first argument to choose() is a real number: \"%.15g\", it must be an integer, I will use %d instead.\n",FIRST_ARGREAL(tmpArgp),pick);
290: capa_msg(MESSAGE_ERROR,tmpS);
291: break;
292: case S_VAR: case S_CONSTANT:
293: resultp->s_type = S_CONSTANT;
294: resultp->s_str = strsave("CHOOSE: first argument must be an integer");
295: sprintf(tmpS,"The first argument to choose() cannot be a string, I will choose the first element.\n");
296: capa_msg(MESSAGE_ERROR,tmpS);
297: pick = 1;
298: break;
299: }
300: if( noError ) {
301: if( (pick <= 0) || (pick > argc-1) ) {
302: sprintf(tmpS,"The first argument to choose() is out of bounds, tt is %d, but should be in the range [1,%d].\n", pick, argc-1);
303: capa_msg(MESSAGE_ERROR,tmpS);
304: pick = argc-1;
305: } else { pick = argc - pick; }
306: for(ii=1,tmpArgp = argp;(ii < pick)&&(ii < argc-1);ii++) { tmpArgp = tmpArgp->a_next; }
307:
308: resultp->s_type = (tmpArgp->a_sp)->s_type;
309: switch((tmpArgp->a_sp)->s_type) {
310: case IDENTIFIER:
311: sprintf(tmpS,"The variable \"%s\" selected by choose() has not yet been defined.\n",(tmpArgp->a_sp)->s_name);
312: capa_msg(MESSAGE_ERROR,tmpS);
313: resultp->s_type = S_CONSTANT;
314: resultp->s_str = strsave(tmpS);
315: break;
316: case I_VAR: case I_CONSTANT:
317: resultp->s_type = I_CONSTANT;
318: resultp->s_int = (tmpArgp->a_sp)->s_int; break;
319: case R_VAR: case R_CONSTANT:
320: resultp->s_type = R_CONSTANT;
321: resultp->s_real = (tmpArgp->a_sp)->s_real; break;
322: case S_VAR: case S_CONSTANT:
323: resultp->s_type = S_CONSTANT;
324: resultp->s_str = strsave((tmpArgp->a_sp)->s_str); break; /********* */
325: }
326:
327: }
328:
329: } break;
330: case PIN_F: {
331: if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
332: resultp->s_type = I_CONSTANT;
333: resultp->s_int=capa_PIN(Parse_student_number,tmpInt,0);
334: }
335: break;
336: case CLASS_F: {
337: resultp->s_type = S_CONSTANT;
338: if(strlen(Parse_class) != 0 ) {
339: resultp->s_str=strsave(Parse_class);
340: } else {
341: resultp->s_str=strsave("UNKNOWN");
342: }
343: }
344: break;
345: case SECTION_F:{ resultp->s_type = I_CONSTANT;
346: resultp->s_int = Parse_section;
347: } break;
348: case PROBLEM_F:{ resultp->s_type = I_CONSTANT;
349: resultp->s_int= Lexi_qnum+1;
350: } break;
351: case SET_F: { resultp->s_type = I_CONSTANT;
352: resultp->s_int=Parse_set;
353: } break;
354: case NAME_F: {
355: resultp->s_type = S_CONSTANT;
356: resultp->s_str=strsave(Parse_name);
357: } break;
358: case SNUMBER_F: {
359: resultp->s_type = S_CONSTANT;
360: resultp->s_str=strsave(Parse_student_number);
361: } break;
362: case IS_DUE_F:
363: case IS_ANSWER_F:
364: case IS_OPEN_F: {
365: int whichDate=CHECK_OPEN_DATE;
366: if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
367: resultp->s_type = I_CONSTANT;
368: switch(func) {
369: case IS_OPEN_F: whichDate=CHECK_OPEN_DATE;break;
370: case IS_DUE_F: whichDate=CHECK_DUE_DATE;break;
371: case IS_ANSWER_F: whichDate=CHECK_ANS_DATE;break;
372: }
373: if( capa_check_date(whichDate,Parse_student_number,
374: Parse_section,tmpInt) < 0 ) {
375: resultp->s_int = 0;
376: } else {
377: resultp->s_int = 1;
378: }
379: } break;
380: case DUE_DATE_F:
381: { if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
382: resultp->s_type = S_CONSTANT;
383: if(capa_get_date(CHECK_DUE_DATE,Parse_student_number,Parse_section,tmpInt,date_str) > 0 ) {
384: sscanf(date_str,"%4d/%2d/%2d %2d:%2d",&yy, &mo, &dd, &hh, &mm);
385: sprintf(aline, "%s %s %2d, %4d at %02d:%02d",
386: wday[weekday(yy,mo,dd)], month[mo], dd, yy, hh, mm);
387: resultp->s_str= strsave(aline);
388: } else {
389: resultp->s_str= strsave("UNKNOWN");
390: }
391: } break;
392: case DUE_DAY_F:
393: { if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
394: resultp->s_type = S_CONSTANT;
395: if(capa_get_date(CHECK_DUE_DATE,Parse_student_number,Parse_section,tmpInt,date_str) > 0 ) {
396: sscanf(date_str,"%4d/%2d/%2d %2d:%2d",&yy, &mm, &dd, &hh, &mm);
397: sprintf(aline, "%s %s %2d, %4d",
398: wday[weekday(yy,mo,dd)], month[mo], dd, yy);
399: resultp->s_str= strsave(aline);
400: } else {
401: resultp->s_str= strsave("UNKNOWN");
402: }
403: } break;
404: case OPEN_DATE_F:
405: { if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
406: resultp->s_type = S_CONSTANT;
407: if(capa_get_date(CHECK_OPEN_DATE,Parse_student_number,Parse_section,tmpInt,date_str) > 0 ) {
408: sscanf(date_str,"%4d/%2d/%2d %2d:%2d",&yy, &mm, &dd, &hh, &mm);
409: sprintf(aline, "%s %s %2d, %4d at %02d:%02d",
410: wday[weekday(yy,mo,dd)], month[mo], dd, yy, hh, mm);
411: resultp->s_str= strsave(aline);
412: } else {
413: resultp->s_str= strsave("UNKNOWN");
414: }
415: } break;
416: case ANSWER_DATE_F:
417: { if (-1==(tmpInt=which_set(argc,argp,resultp))) break;
418: resultp->s_type = S_CONSTANT;
419: if(capa_get_date(CHECK_ANS_DATE,Parse_student_number,Parse_section,tmpInt,date_str) > 0 ) {
420: sscanf(date_str,"%4d/%2d/%2d %2d:%2d",&yy, &mo, &dd, &hh, &mm);
421: sprintf(aline, "%s %s %2d, %4d at %02d:%02d",
422: wday[weekday(yy,mo,dd)], month[mo], dd, yy, hh, mm);
423: resultp->s_str= strsave(aline);
424: } else {
425: resultp->s_str= strsave("UNKNOWN");
426: }
427: } break;
428: case STRLEN_F: {
429: resultp->s_type = I_CONSTANT;
430: switch( FIRST_ARGTYPE(argp) ) {
431: case I_VAR:
432: case I_CONSTANT:
433: resultp->s_type = S_CONSTANT;
434: sprintf(tmpS,"strlen() only accepts string variable, not integer.\n");
435: capa_msg(MESSAGE_ERROR,tmpS);
436: resultp->s_str=strsave(tmpS);
437: break;
438: case R_VAR:
439: case R_CONSTANT:
440: resultp->s_type = S_CONSTANT;
441: sprintf(tmpS,"strlen() only accepts string variable, not float number.\n");
442: capa_msg(MESSAGE_ERROR,tmpS);
443: resultp->s_str=strsave(tmpS);
444: break;
445: case S_VAR:
446: case S_CONSTANT:
447: resultp->s_int = strlen( FIRST_ARGSTR(argp) );
448: break;
449: case IDENTIFIER:
450: sprintf(tmpS,"Unknown variable, %s, argument to function strlen()\n",argp->a_sp->s_name);
451: capa_msg(MESSAGE_ERROR,tmpS);
452: resultp->s_str=strsave(tmpS);
453: break;
454: }
455: } break;
456: case TO_STRING_F:
457: { char aline[MAX_BUFFER_SIZE],rline[MAX_BUFFER_SIZE];
458:
459: resultp->s_type = S_CONSTANT;
460:
461: if( argc == 1 ) {
462: switch( FIRST_ARGTYPE(argp) ) {
463: case I_VAR:
464: case I_CONSTANT:
465: sprintf(aline,"%ld",FIRST_ARGINT(argp));
466: resultp->s_str = strsave(aline); break;
467: case R_VAR:
468: case R_CONSTANT:
469: sprintf(aline,"%.15g",FIRST_ARGREAL(argp));
470: resultp->s_str = strsave(aline); break;
471: case S_VAR:
472: case S_CONSTANT:
473: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
474: case IDENTIFIER:
475: sprintf(tmpS,"Unknown variable, %s, argument to function to_string()\n",argp->a_sp->s_name);
476: capa_msg(MESSAGE_ERROR,tmpS);
477: resultp->s_str=strsave(tmpS);
478: break;
479: }
480: } else {
481: switch( FIRST_ARGTYPE(argp) ) {
482: case I_VAR:
483: case I_CONSTANT:
484: case R_VAR:
485: case R_CONSTANT:
486: sprintf(tmpS,
487: "to_string()'s second arg. must be a string.\n");
488: capa_msg(MESSAGE_ERROR,tmpS);
489: sprintf(aline,"%%.15g");
490: break;
491: case S_VAR:
492: case S_CONSTANT:
493: sprintf(aline,"%%%s",FIRST_ARGSTR(argp));
494: break;
495: case IDENTIFIER:
496: sprintf(tmpS,"Unknown variable, %s, argument to function to_string()\n",argp->a_next->a_sp->s_name);
497: capa_msg(MESSAGE_ERROR,tmpS);
498: resultp->s_str=strsave(tmpS);
499: break;
500:
501: }
502: switch( SECOND_ARGTYPE(argp) ) {
503: case I_VAR:
504: case I_CONSTANT:
505: sprintf(aline,"%ld",SECOND_ARGINT(argp));
506: resultp->s_str = strsave(aline); break;
507: case R_VAR:
508: case R_CONSTANT:
509: sprintf(rline,aline,SECOND_ARGREAL(argp));
510: resultp->s_str = strsave(rline); break;
511: case S_VAR:
512: case S_CONSTANT:
513: resultp->s_str = strsave(SECOND_ARGSTR(argp));
514: break;
515: case IDENTIFIER:
516: sprintf(tmpS,"Unknown variable, %s, argument to function to_string()\n",argp->a_sp->s_name);
517: capa_msg(MESSAGE_ERROR,tmpS);
518: resultp->s_str=strsave(tmpS);
519: break;
520: }
521: }
522: } break;
523: case SUB_STRING_F: /* sub_string(str, 2), 1 is the first char */
524: /* sub_string(str, 3, 5) means start from the third char and take 5 chars */
525: { int idx=1, leng, rleng=0,ii;
526: char *a_str, *b_str;
527:
528: resultp->s_type = S_CONSTANT;
529: if( argc == 2 ) { /* two arguments format */
530: switch( FIRST_ARGTYPE(argp) ) {
531: case IDENTIFIER:
532: sprintf(tmpS,
533: "sub_string()'s second arg. must be an integer.\n");
534: capa_msg(MESSAGE_ERROR,tmpS);
535: break;
536: case I_VAR:
537: case I_CONSTANT:
538: idx = FIRST_ARGINT(argp);
539: break;
540: case R_VAR:
541: case R_CONSTANT:
542: idx = (int) FIRST_ARGREAL(argp);
543: break;
544: case S_VAR:
545: case S_CONSTANT:
546: sprintf(tmpS,
547: "sub_string()'s second arg. must be an integer.\n");
548: capa_msg(MESSAGE_ERROR,tmpS);
549: break;
550: }
551: switch( SECOND_ARGTYPE(argp) ) {
552: case IDENTIFIER:
553: sprintf(tmpS,
554: "sub_string()'s first arg. is not defined before use.\n");
555: capa_msg(MESSAGE_ERROR,tmpS);
556: break;
557: case I_VAR:
558: case I_CONSTANT:
559: sprintf(tmpS,
560: "sub_string()'s first arg. cannot be an integer.\n");
561: capa_msg(MESSAGE_ERROR,tmpS);
562: break;
563: case R_VAR:
564: case R_CONSTANT:
565: sprintf(tmpS,
566: "sub_string()'s first arg. cannot be a number.\n");
567: capa_msg(MESSAGE_ERROR,tmpS);
568: break;
569: case S_VAR:
570: case S_CONSTANT:
571: a_str = SECOND_ARGSTR(argp);
572: leng = strlen(a_str);
573: if( (idx<1) || (idx > leng) ) {
574: sprintf(tmpS, "sub_string()'s second arg. is out of range.\n");
575: capa_msg(MESSAGE_ERROR,tmpS);
576: idx = 1;
577: }
578: b_str = (char *)&a_str[idx-1];
579: resultp->s_str = strsave(b_str);
580:
581: if( SECOND_ARGTYPE(argp) == S_CONSTANT) {
582: /* freed in free arg_list */
583: /* capa_mfree((char *)SECOND_ARGSTR(argp)); */
584: }
585: break;
586: }
587: } else { /* three arguments format sub_string(string, start, length) */
588: switch( FIRST_ARGTYPE(argp) ) {
589: case IDENTIFIER:
590: sprintf(tmpS,
591: "sub_string()'s third arg. must be an integer.\n");
592: capa_msg(MESSAGE_ERROR,tmpS);
593: break;
594: case I_VAR:
595: case I_CONSTANT:
596: rleng = FIRST_ARGINT(argp);
597: break;
598: case R_VAR:
599: case R_CONSTANT:
600: rleng = (int) FIRST_ARGREAL(argp);
601: break;
602: case S_VAR:
603: case S_CONSTANT:
604: sprintf(tmpS,
605: "sub_string()'s third arg. must be an integer.\n");
606: capa_msg(MESSAGE_ERROR,tmpS);
607: break;
608: }
609: switch( SECOND_ARGTYPE(argp) ) {
610: case IDENTIFIER:
611: sprintf(tmpS,
612: "sub_string()'s second arg. must be an integer.\n");
613: capa_msg(MESSAGE_ERROR,tmpS);
614: break;
615: case I_VAR:
616: case I_CONSTANT:
617: idx = SECOND_ARGINT(argp);
618: break;
619: case R_VAR:
620: case R_CONSTANT:
621: idx = (int) SECOND_ARGREAL(argp);
622: break;
623: case S_VAR:
624: case S_CONSTANT:
625: sprintf(tmpS,
626: "sub_string()'s second arg. must be an integer.\n");
627: capa_msg(MESSAGE_ERROR,tmpS);
628: break;
629: }
630: switch( THIRD_ARGTYPE(argp) ) {
631: case IDENTIFIER:
632: sprintf(tmpS,
633: "sub_string()'s first arg. is not defined before use.\n");
634: capa_msg(MESSAGE_ERROR,tmpS);
635: break;
636: case I_VAR:
637: case I_CONSTANT:
638: sprintf(tmpS,
639: "sub_string()'s first arg. cannot be an integer.\n");
640: capa_msg(MESSAGE_ERROR,tmpS);
641: break;
642: case R_VAR:
643: case R_CONSTANT:
644: sprintf(tmpS,
645: "sub_string()'s first arg. cannot be a number.\n");
646: capa_msg(MESSAGE_ERROR,tmpS);
647: break;
648: case S_VAR:
649: case S_CONSTANT:
650: a_str = THIRD_ARGSTR(argp);
651: leng = strlen(a_str);
652: if( (idx < 1) || (idx > leng) ) {
653: sprintf(tmpS, "sub_string()'s second arg. is out of range.\n");
654: capa_msg(MESSAGE_ERROR,tmpS);
655: idx = 1;
656: }
657: if( (rleng<1) || ((rleng+idx-1) > leng)) {
658:
659: rleng = leng - idx + 1;
660: }
661: b_str = (char *)capa_malloc((rleng+1)*sizeof(char),1);
662: for(ii=idx-1;ii<(rleng+idx-1);ii++) {
663: b_str[ii-idx+1] = a_str[ii];
664: }
665: resultp->s_str = strsave(b_str);
666: capa_mfree(b_str);
667:
668: if( THIRD_ARGTYPE(argp) == S_CONSTANT) {
669: /* handled in free_arglist() */
670: /* capa_mfree((char *)THIRD_ARGSTR(argp)); */
671: }
672: break;
673: }
674: }
675: } break;
676: case PICK_F: { int ii, pick=1;
677: ArgNode_t *tmpArgp;
678:
679: noError = 1;
680: rout = ignlgi();
681: tmpArgp = argp; ii=0;
682: while( ii < argc-1 ) {tmpArgp = tmpArgp->a_next; ii++; }
683: switch( FIRST_ARGTYPE(tmpArgp) ) {
684: case I_VAR:
685: case I_CONSTANT:
686: pick = FIRST_ARGINT(tmpArgp);
687: if( (pick <= 0 ) || (pick > argc-1) ) {
688: noError = 0;
689: resultp->s_type = S_CONSTANT;
690: resultp->s_str = strsave("PICK: first arg out of bound.");
691: }
692: break;
693: case R_VAR:
694: case R_CONSTANT:
695: pick = (int)FIRST_ARGREAL(tmpArgp);
696: if( (pick <= 0 ) || (pick > argc-1) ) {
697: noError = 0;
698: resultp->s_type = S_CONSTANT;
699: resultp->s_str = strsave("PICK: first arg out of bound.");
700: }
701: break;
702: case S_VAR:
703: case S_CONSTANT: noError = 0;
704: resultp->s_type = S_CONSTANT;
705: resultp->s_str = strsave("PICK: first arg must be int");
706: break;
707: }
708: if( noError ) {
709: for( ii=0; ii< pick; ii++) {
710: }
711: }
712: }
713: break;
714: case GET_SEED_F:
715: { long seed1, seed2;
716: char *tmp;
717:
718: getsd(&seed1,&seed2);
719: tmp = (char *)capa_malloc(32,1);
720: sprintf(tmp,"%ld,%ld",seed1,seed2);
721: resultp->s_type = S_CONSTANT;
722: resultp->s_str = strsave(tmp);
723: capa_mfree(tmp);
724: } break;
725: case SET_SEED_F:
726: { long seed1, seed2;
727: int leng;
728:
729: switch( FIRST_ARGTYPE(argp) ) {
730: case I_VAR: case I_CONSTANT: break;
731: case R_VAR: case R_CONSTANT: break;
732: case S_VAR: case S_CONSTANT:
733: leng = strlen(FIRST_ARGSTR(argp));
734: if( (index(FIRST_ARGSTR(argp), ' ') != NULL) ) {
735: sscanf(FIRST_ARGSTR(argp),"%ld,%ld", &seed1, &seed2);
736: setall(seed1,seed2);
737: }
738:
739: break;
740: }
741: resultp->s_type = I_CONSTANT;
742: resultp->s_int = 0;
743: } break;
744: case ARRAY_MOMENTS_F: /* it */
745: {
746: char *tmp_input;
747: Symbol *r_p;
748:
749: switch( FIRST_ARGTYPE(argp) ) {
750: case I_VAR: case I_CONSTANT:
751: case R_VAR: case R_CONSTANT:
752: resultp->s_type = S_CONSTANT;
753: resultp->s_str = strsave("<<ARG. OF THIS FUNCTION MUST BE AN ARRAY NAME>>");
754: sprintf(tmpS,"array_moments()'s arg. must be a name of an array.\n");
755: capa_msg(MESSAGE_ERROR,tmpS);
756: errCode = 1;
757: break;
758: case S_VAR: case S_CONSTANT:
759: tmp_input = strsave(FIRST_ARGSTR(argp));
760: errCode = 0;
761: break;
762: case IDENTIFIER:
763: tmp_input = strsave(FIRST_ARGNAME(argp));
764: errCode = 0;
765: break;
766: }
767: if( errCode == 0 ) {
768: switch( SECOND_ARGTYPE(argp) ) {
769: case I_VAR: case I_CONSTANT:
770: case R_VAR: case R_CONSTANT:
771: resultp->s_type = S_CONSTANT;
772: resultp->s_str = strsave("<<ARG. OF THIS FUNCTION MUST BE AN ARRAY NAME>>");
773: sprintf(tmpS,"array_moments()'s arg. must be a name of an array.\n");
774: capa_msg(MESSAGE_ERROR,tmpS);
775: errCode = 1;
776: break;
777: case S_VAR: case S_CONSTANT:
778: r_p = array_moments(SECOND_ARGSTR(argp),tmp_input);
779: capa_mfree((char *)tmp_input);
780: /* fprintf(stdout,"DONE array_moments()\n"); fflush(stdout); */
781: break;
782: case IDENTIFIER:
783: r_p = array_moments(SECOND_ARGNAME(argp),tmp_input);
784: capa_mfree((char *)tmp_input);
785:
786: break;
787: }
788: if(errCode == 0 ) {
789: capa_mfree((char *)resultp);
790: resultp = r_p;
791: }
792: }
793:
794: } break;
795: case ARRAY_SORTED_INDEX_F: /* array_sorted_index(array_name_str, sort_type) */
796: {
797: switch( FIRST_ARGTYPE(argp) ) {
798: case I_VAR: case I_CONSTANT:
799: switch( FIRST_ARGINT(argp) ) {
800: case ASCEND_SORT: break;
801: case DESCEND_SORT: break;
802: case NUMERICAL_SORT: break;
803: default: break;
804: }
805:
806: break;
807: case R_VAR: case R_CONSTANT: break;
808: case S_VAR: case S_CONSTANT:
809:
810:
811: break;
812: }
813: resultp->s_type = S_CONSTANT;
814: resultp->s_str = strsave("NOT YET");
815: } break;
816:
817: case ARRAY_MAX_F:
818: case ARRAY_MIN_F:
819: { int min;
820: Symbol *r_p;
821:
822: min = ((func==ARRAY_MIN_F)? 1 : 0);
823: switch( FIRST_ARGTYPE(argp) ) {
824: case I_VAR: case I_CONSTANT:
825: case R_VAR: case R_CONSTANT:
826: resultp->s_type = S_CONSTANT;
827: resultp->s_str = strsave("<<ARG. OF THIS FUNCTION MUST BE AN ARRAY NAME>>");
828: sprintf(tmpS,"%s()'s arg. must be a name of an array.\n",(min ? "min" : "max"));
829: capa_msg(MESSAGE_ERROR,tmpS);
830: break;
831: case S_VAR: case S_CONSTANT: /* this allows the use of min(array[1]) which array[1]="another" */
832: r_p = array_min_max(FIRST_ARGSTR(argp),min);
833: if( r_p == NULL ) { /* array name is not in array tree */
834: resultp->s_type = S_CONSTANT;
835: resultp->s_str = strsave("<<STRING ARRAY NAME IS NOT YET DEFINED!>>");
836: } else {
837: /*
838: fprintf(stdout,"min_max():: STR arg. R=%g\n",r_p->s_real); fflush(stdout);
839: */
840: capa_mfree((char *)resultp);
841: resultp = r_p;
842: }
843: break;
844: case IDENTIFIER:
845: r_p = array_min_max(FIRST_ARGNAME(argp),min);
846: if( r_p == NULL ) { /* array name is not in array tree */
847: /* fprintf(stdout,"min_max() return NULL\n"); fflush(stdout); */
848: resultp->s_type = S_CONSTANT;
849: resultp->s_str = strsave("<<ARRAY NAME IS NOT YET DEFINED!>>");
850: } else {
851: /*
852: fprintf(stdout,"min_max():: ID arg. R=%g\n",r_p->s_real); fflush(stdout);
853: */
854: capa_mfree((char *)resultp);
855: resultp = r_p;
856: }
857: break;
858: }
859: } break;
860: case SIN_F:
861: case COS_F:
862: case TAN_F:
863: case ASIN_F:
864: case ACOS_F:
865: case ATAN_F:
866: case SINH_F:
867: case COSH_F:
868: case TANH_F:
869: case ASINH_F:
870: case ACOSH_F:
871: case ATANH_F:
872: case J_ZERO_F:
873: case J_ONE_F:
874: case Y_ZERO_F:
875: case Y_ONE_F:
876: case LOG_F:
877: case LOG_TEN_F:
878: case EXP_F:
879: case ERF_F:
880: case ERFC_F:
881: case ABS_F:
882: case SQRT_F:
883: case FLOOR_F:
884: case CEIL_F:
885: case SGN_F:{ if( (FIRST_ARGTYPE(argp) == S_VAR ) || (FIRST_ARGTYPE(argp) == S_CONSTANT ) ) {
886: sprintf(aline,"<<ARG TYPE MISMATCH>>");
887: resultp->s_type = S_CONSTANT;
888: resultp->s_str = strsave(aline);
889: sprintf(tmpS,"function %s() cannot accept string as argument.\n", FuncStack[Func_idx].s_name);
890: capa_msg(MESSAGE_ERROR,tmpS);
891: } else {
892: if( (FIRST_ARGTYPE(argp) == I_VAR ) || (FIRST_ARGTYPE(argp) == I_CONSTANT ) ) {
893: tmpA = (double)FIRST_ARGINT(argp);
894: } else {
895: tmpA = (double)FIRST_ARGREAL(argp);
896: }
897: resultp->s_type = R_CONSTANT;
898: switch(func) {
899: case SIN_F: resultp->s_real = sin(tmpA); break;
900: case COS_F: resultp->s_real = cos(tmpA); break;
901: case TAN_F: resultp->s_real = tan(tmpA); break;
902: case ASIN_F: if(fabs(tmpA) <= 1.0) {
903: resultp->s_real = asin(tmpA);
904: } else {
905: resultp->s_type = S_CONSTANT;
906: sprintf(aline,"<<ARG OUT OF BOUND>>");
907: resultp->s_str = strsave(aline);
908: sprintf(tmpS, "asin()'s arg. is not in the range of [-1.0,+1.0].\n");
909: capa_msg(MESSAGE_ERROR,tmpS);
910: }
911: break;
912: case ACOS_F: if(fabs(tmpA) <= 1.0) {
913: resultp->s_real = acos(tmpA);
914: } else {
915: resultp->s_type = S_CONSTANT;
916: sprintf(aline,"<<ARG OUT OF BOUND>>");
917: resultp->s_str = strsave(aline);
918: sprintf(tmpS,"acos()'s arg. is not in the range of [-1.0,+1.0].\n");
919: capa_msg(MESSAGE_ERROR,tmpS);
920: }
921: break;
922: case ATAN_F: resultp->s_real = atan(tmpA); break;
923: case SINH_F: resultp->s_real = sinh(tmpA); break;
924: case COSH_F: resultp->s_real = cosh(tmpA); break;
925: case TANH_F: resultp->s_real = tanh(tmpA); break;
926: case ASINH_F: resultp->s_real = asinh(tmpA); break;
927: case ACOSH_F: resultp->s_real = acosh(tmpA); break;
928: case ATANH_F: resultp->s_real = atanh(tmpA); break;
929: case J_ZERO_F: resultp->s_real = j0(tmpA); break;
930: case J_ONE_F: resultp->s_real = j1(tmpA); break;
931: case Y_ZERO_F: resultp->s_real = y0(tmpA); break;
932: case Y_ONE_F: resultp->s_real = y1(tmpA); break;
933: case LOG_F: resultp->s_real = log(tmpA); break;
934: case LOG_TEN_F: resultp->s_real = log10(tmpA); break;
935: case EXP_F: resultp->s_real = exp(tmpA); break;
936: case ERF_F: resultp->s_real = erf(tmpA); break;
937: case ERFC_F: resultp->s_real = erfc(tmpA); break;
938: case ABS_F: resultp->s_real = fabs(tmpA); break;
939: case SQRT_F: if( tmpA >= 0.0) {
940: resultp->s_real = sqrt(tmpA);
941: } else {
942: resultp->s_type = S_CONSTANT;
943: sprintf(aline,"<<ARG OUT OF BOUND>>");
944: resultp->s_str = strsave(aline);
945: sprintf(tmpS, "sqrt()'s arg. is not in the range of [0.0,+Inf].\n");
946: capa_msg(MESSAGE_ERROR,tmpS);
947: }
948: break;
949: case FLOOR_F: resultp->s_type = I_CONSTANT;
950: resultp->s_int = (long)floor(tmpA); break;
951: case CEIL_F: resultp->s_type = I_CONSTANT;
952: resultp->s_int = (long)ceil(tmpA); break;
953: case SGN_F: resultp->s_type = I_CONSTANT;
954: resultp->s_int = (int)SGN(tmpA); break;
955: }
956: }
957: }
958: break;
959: case ATANTWO_F:
960: case J_N_F:
961: case Y_N_F:
962: case POW_F: { noError = 1;
963: switch(FIRST_ARGTYPE(argp)) {
964: case I_VAR:
965: case I_CONSTANT: tmpA = (double)FIRST_ARGINT(argp); break;
966: case R_VAR:
967: case R_CONSTANT: tmpA = FIRST_ARGREAL(argp); break;
968: case S_VAR:
969: case S_CONSTANT: noError = 0;
970: resultp->s_str = strsave("<<MIS TYPE>>");
971: sprintf(tmpS,"%s()'s second arg. cannot be string.\n",FuncStack[Func_idx].s_name);
972: capa_msg(MESSAGE_ERROR,tmpS);
973: break;
974: }
975: switch(SECOND_ARGTYPE(argp)) {
976: case I_VAR:
977: case I_CONSTANT: tmpB = (double)SECOND_ARGINT(argp); break;
978: case R_VAR:
979: case R_CONSTANT: tmpB = SECOND_ARGREAL(argp); break;
980: case S_VAR:
981: case S_CONSTANT: noError = 0;
982: resultp->s_str = strsave("<<MIS TYPE>>");
983: sprintf(tmpS,"%s()'s first arg. cannot be string.\n",FuncStack[Func_idx].s_name);
984: capa_msg(MESSAGE_ERROR,tmpS);
985: break;
986: }
987: if ( POW_F == func ) {
988: if ((!(((double)((int)tmpA)) == tmpA)) && (tmpB < 0.0)) {
989: resultp->s_str = strsave("<<ARG OUT OF BOUND>>");
990: sprintf(tmpS,
991: "%s()'s arguments would result in a complex number.\n",
992: FuncStack[Func_idx].s_name);
993: capa_msg(MESSAGE_ERROR,tmpS);
994: noError=0;
995: }
996: }
997: if(noError) {
998: resultp->s_type = R_CONSTANT;
999: switch( func ) {
1000: case J_N_F: resultp->s_real = jn((int)tmpB, tmpA); break;
1001: case Y_N_F: resultp->s_real = yn((int)tmpB, tmpA); break;
1002: case POW_F: resultp->s_real = pow(tmpB, tmpA); break;
1003: case ATANTWO_F: resultp->s_real = atan2(tmpB, tmpA); break;
1004: }
1005: }else {
1006: resultp->s_type = S_CONSTANT;
1007: }
1008:
1009: }
1010: break;
1011: case TEX_F: { if (Parsemode_f != TeX_MODE) {
1012: resultp->s_type = FIRST_ARGTYPE(argp);
1013: switch(FIRST_ARGTYPE(argp)) {
1014: case I_VAR:
1015: case I_CONSTANT: resultp->s_int = FIRST_ARGINT(argp); break;
1016: case R_VAR:
1017: case R_CONSTANT: resultp->s_real = FIRST_ARGREAL(argp); break;
1018: case S_VAR:
1019: case S_CONSTANT: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
1020: }
1021: } else {
1022: resultp->s_type = SECOND_ARGTYPE(argp);
1023: switch(SECOND_ARGTYPE(argp)) {
1024: case I_VAR:
1025: case I_CONSTANT: resultp->s_int = SECOND_ARGINT(argp); break;
1026: case R_VAR:
1027: case R_CONSTANT: resultp->s_real = SECOND_ARGREAL(argp); break;
1028: case S_VAR:
1029: case S_CONSTANT: resultp->s_str = strsave(SECOND_ARGSTR(argp)); break;
1030: }
1031: }
1032: } break;
1033: case VAR_IN_TEX_F:{
1034:
1035: if (Parsemode_f == TeX_MODE) {
1036: resultp->s_type = FIRST_ARGTYPE(argp);
1037:
1038: switch(FIRST_ARGTYPE(argp)) {
1039: case I_VAR:
1040: case I_CONSTANT: resultp->s_int = FIRST_ARGINT(argp); break;
1041: case R_VAR:
1042: case R_CONSTANT: resultp->s_real = FIRST_ARGREAL(argp); break;
1043: case S_VAR:
1044: case S_CONSTANT: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
1045: }
1046: } else {
1047: resultp->s_type = S_CONSTANT;
1048: resultp->s_str = strsave("");
1049:
1050: }
1051: } break;
1052: case HTML_F: { if (Parsemode_f == HTML_MODE) {
1053: resultp->s_type = FIRST_ARGTYPE(argp);
1054: switch(FIRST_ARGTYPE(argp)) {
1055: case I_VAR:
1056: case I_CONSTANT: resultp->s_int = FIRST_ARGINT(argp); break;
1057: case R_VAR:
1058: case R_CONSTANT: resultp->s_real = FIRST_ARGREAL(argp); break;
1059: case S_VAR:
1060: case S_CONSTANT: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
1061: }
1062: } else {
1063: resultp->s_type = S_CONSTANT;
1064: resultp->s_str = strsave("");
1065: }
1066: /* printf("HTML:%s\n",resultp->s_str); */
1067: } break;
1068: case WEB_F:
1069: case FORMAT_F: { /* web(ASCII,TeX,HTML) */
1070: if( argc == 3 ) {
1071: switch(Parsemode_f) {
1072: case HTML_MODE: {
1073: resultp->s_type = FIRST_ARGTYPE(argp);
1074: switch(FIRST_ARGTYPE(argp)) {
1075: case I_VAR:
1076: case I_CONSTANT: resultp->s_int = FIRST_ARGINT(argp); break;
1077: case R_VAR:
1078: case R_CONSTANT: resultp->s_real = FIRST_ARGREAL(argp); break;
1079: case S_VAR:
1080: case S_CONSTANT: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
1081: }
1082: } break;
1083: case TeX_MODE: {
1084: resultp->s_type = SECOND_ARGTYPE(argp);
1085: switch(SECOND_ARGTYPE(argp)) {
1086: case I_VAR:
1087: case I_CONSTANT: resultp->s_int = SECOND_ARGINT(argp); break;
1088: case R_VAR:
1089: case R_CONSTANT: resultp->s_real = SECOND_ARGREAL(argp); break;
1090: case S_VAR:
1091: case S_CONSTANT: resultp->s_str = strsave(SECOND_ARGSTR(argp)); break;
1092: }
1093: } break;
1094: default: {
1095: resultp->s_type = THIRD_ARGTYPE(argp);
1096: switch(THIRD_ARGTYPE(argp)) {
1097: case I_VAR:
1098: case I_CONSTANT: resultp->s_int = THIRD_ARGINT(argp); break;
1099: case R_VAR:
1100: case R_CONSTANT: resultp->s_real = THIRD_ARGREAL(argp); break;
1101: case S_VAR:
1102: case S_CONSTANT: resultp->s_str = strsave(THIRD_ARGSTR(argp)); break;
1103: }
1104: } break;
1105: }
1106: } else { /* argc == 2 */
1107: switch(Parsemode_f) {
1108: case TeX_MODE: {
1109: resultp->s_type = FIRST_ARGTYPE(argp);
1110: switch(FIRST_ARGTYPE(argp)) {
1111: case I_VAR:
1112: case I_CONSTANT: resultp->s_int = FIRST_ARGINT(argp); break;
1113: case R_VAR:
1114: case R_CONSTANT: resultp->s_real = FIRST_ARGREAL(argp); break;
1115: case S_VAR:
1116: case S_CONSTANT: resultp->s_str = strsave(FIRST_ARGSTR(argp)); break;
1117: }
1118: } break;
1119: default : {
1120: resultp->s_type = SECOND_ARGTYPE(argp);
1121: switch(SECOND_ARGTYPE(argp)) {
1122: case I_VAR:
1123: case I_CONSTANT: resultp->s_int = SECOND_ARGINT(argp); break;
1124: case R_VAR:
1125: case R_CONSTANT: resultp->s_real = SECOND_ARGREAL(argp); break;
1126: case S_VAR:
1127: case S_CONSTANT: resultp->s_str = strsave(SECOND_ARGSTR(argp)); break;
1128: }
1129: } break;
1130: }
1131: }
1132: } break;
1133: case FACTORIAL_F: {
1134: int ii;
1135: unsigned long long l_fac;
1136: double d_fac;
1137:
1138: switch(FIRST_ARGTYPE(argp)) {
1139: case I_VAR:
1140: case I_CONSTANT: {
1141: if( FIRST_ARGINT(argp) < 0 ) {
1142: sprintf(aline,"<<FACTORIAL ERROR>>");
1143: resultp->s_type = S_CONSTANT;
1144: resultp->s_str = strsave(aline);
1145: sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n",FuncStack[Func_idx].s_name);
1146: capa_msg(MESSAGE_ERROR,tmpS);
1147: } else {
1148: if( FIRST_ARGINT(argp) <= 20 ) {
1149: resultp->s_type = I_CONSTANT;
1150: l_fac = 1;
1151: for(ii=2; ii <= FIRST_ARGINT(argp); ii++) { l_fac *= ii; }
1152: resultp->s_int = l_fac;
1153: } else {
1154: resultp->s_type = R_CONSTANT;
1155: d_fac = 362880.0;
1156: for(ii=10; ii <= FIRST_ARGINT(argp); ii++) { d_fac *= ii; }
1157: resultp->s_real = d_fac;
1158: }
1159: }
1160: }
1161: break;
1162: case R_VAR:
1163: case R_CONSTANT: {
1164: if( FIRST_ARGREAL(argp) < 0.0 ) {
1165: sprintf(aline,"<<FACTORIAL ERROR>>");
1166: resultp->s_type = S_CONSTANT;
1167: resultp->s_str = strsave(aline);
1168: sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n", FuncStack[Func_idx].s_name);
1169: capa_msg(MESSAGE_ERROR,tmpS);
1170: } else {
1171: if( FIRST_ARGREAL(argp) <= 20.0 ) {
1172: resultp->s_type = I_CONSTANT;
1173: l_fac = 1;
1174: for(ii=2; ii <= FIRST_ARGREAL(argp); ii++) { l_fac *= ii; }
1175: resultp->s_int = l_fac;
1176: } else {
1177: resultp->s_type = R_CONSTANT;
1178: d_fac = 362880.0;
1179: for(ii=10; ii <= FIRST_ARGREAL(argp); ii++) { d_fac *= ii; }
1180: resultp->s_real = d_fac;
1181: }
1182: }
1183: }
1184: break;
1185: case S_VAR:
1186: case S_CONSTANT: {
1187: sprintf(aline,"<<FACTORIAL ERROR>>");
1188: resultp->s_type = S_CONSTANT;
1189: resultp->s_str = strsave(aline);
1190: sprintf(tmpS,"%s()'s arg. cannot be of string type.\n",FuncStack[Func_idx].s_name);
1191: capa_msg(MESSAGE_ERROR,tmpS);
1192: }
1193: break;
1194: }
1195: } break;
1196: case MOD_F: break;
1197: case REMAINDER_F: break;
1198: case MAX_F:
1199: case MIN_F: { int ii, idx, type;
1200:
1201: tmpArgp = argp;
1202: tmpA = ((func == MIN_F)? MAX_DOUBLE : - MAX_DOUBLE);
1203: type = R_CONSTANT; idx = -1;
1204: noError = 1;
1205: for(ii = 0; (ii < argc)&&(noError); ii++) {
1206: switch (FIRST_ARGTYPE(tmpArgp)) {
1207: case I_VAR:
1208: case I_CONSTANT:
1209: if( type == S_CONSTANT) {
1210: sprintf(aline,"<<ARG TYPE>>");
1211: resultp->s_type = S_CONSTANT;
1212: resultp->s_str = strsave(aline);
1213: sprintf(tmpS,"%s()'s arg. type cannot mix string with int or real.\n",FuncStack[Func_idx].s_name);
1214: capa_msg(MESSAGE_ERROR,tmpS);
1215: noError = 0;
1216: } else {
1217: switch(func) {
1218: case MIN_F:
1219: if( tmpA <= FIRST_ARGINT(tmpArgp) ) {
1220: } else {
1221: idx = ii; type = I_CONSTANT;
1222: tmpA = (double)FIRST_ARGINT(tmpArgp);
1223: }
1224: break;
1225: case MAX_F:
1226: if( tmpA >= FIRST_ARGINT(tmpArgp) ) {
1227: } else {
1228: idx = ii; type = I_CONSTANT;
1229: tmpA = (double)FIRST_ARGINT(tmpArgp);
1230: }
1231: break;
1232: }
1233: }
1234: break;
1235: case R_VAR:
1236: case R_CONSTANT:
1237: if( type == S_CONSTANT ) {
1238: sprintf(aline,"<<ARG TYPE>>");
1239: resultp->s_type = S_CONSTANT;
1240: resultp->s_str = strsave(aline);
1241: sprintf(tmpS,"%s()'s arg. type cannot mix string with int or real.\n",FuncStack[Func_idx].s_name);
1242: capa_msg(MESSAGE_ERROR,tmpS);
1243: noError = 0;
1244: } else {
1245: switch(func) {
1246: case MIN_F:
1247: if( tmpA <= FIRST_ARGREAL(tmpArgp) ) {
1248: } else {
1249: idx = ii; type = R_CONSTANT;
1250: tmpA = FIRST_ARGREAL(tmpArgp);
1251: }
1252: break;
1253: case MAX_F:
1254: if( tmpA >= FIRST_ARGREAL(tmpArgp) ) {
1255: } else {
1256: idx = ii; type = R_CONSTANT;
1257: tmpA = FIRST_ARGREAL(tmpArgp);
1258: }
1259: break;
1260: }
1261: }
1262: break;
1263: case S_VAR:
1264: case S_CONSTANT:
1265: if( (ii != 0)&&(type != S_CONSTANT) ) {
1266: sprintf(aline,"<<ARG TYPE>>");
1267: resultp->s_type = S_CONSTANT;
1268: resultp->s_str = strsave(aline);
1269: sprintf(tmpS," %s()'s arg. type cannot mix string with int or real.\n",FuncStack[Func_idx].s_name);
1270: capa_msg(MESSAGE_ERROR,tmpS);
1271: noError = 0;
1272: } else {
1273: if( ii == 0 ) { idx = 0; strcpy(tmpS, FIRST_ARGSTR(tmpArgp)); }
1274: type = S_CONSTANT;
1275: switch( func) {
1276: case MIN_F:
1277: if( strcmp(tmpS, FIRST_ARGSTR(tmpArgp)) <= 0 ) {
1278: } else {
1279: idx = ii;
1280: strcpy(tmpS, FIRST_ARGSTR(tmpArgp));
1281: }
1282: break;
1283: case MAX_F:
1284: if( strcmp(tmpS, FIRST_ARGSTR(tmpArgp)) >= 0 ) {
1285: } else {
1286: idx = ii;
1287: strcpy(tmpS, FIRST_ARGSTR(tmpArgp));
1288: }
1289: break;
1290: }
1291: }
1292: break;
1293: }
1294: tmpArgp = tmpArgp->a_next;
1295: }
1296: if( noError ) {
1297: for(tmpArgp=argp,ii=0; ii<idx; ii++) { tmpArgp=tmpArgp->a_next; }
1298: resultp->s_type = type;
1299: switch(type) {
1300: case I_CONSTANT: resultp->s_int = (tmpArgp->a_sp)->s_int;
1301: break;
1302: case R_CONSTANT: resultp->s_real = (tmpArgp->a_sp)->s_real;
1303: break;
1304: case S_CONSTANT: resultp->s_str = strsave((tmpArgp->a_sp)->s_str);
1305: break;
1306: }
1307: }
1308:
1309: }
1310: break;
1311: case ROUNDTO_F: {
1312: noError = 1; hh = 0; /* reuse integer hh and mm */
1313: switch(FIRST_ARGTYPE(argp)) {
1314: case I_VAR:
1315: case I_CONSTANT: mm = FIRST_ARGINT(argp); break;
1316: case R_VAR:
1317: case R_CONSTANT: mm = (int)FIRST_ARGREAL(argp); break;
1318: case S_VAR:
1319: case S_CONSTANT: noError = 0;
1320: resultp->s_type = S_CONSTANT;
1321: resultp->s_str = strsave("<<MIS TYPE>>");
1322: sprintf(tmpS,
1323: "%s()'s second arg. cannot be string.\n",FuncStack[Func_idx].s_name);
1324: capa_msg(MESSAGE_ERROR,tmpS);
1325: break;
1326: }
1327: switch(SECOND_ARGTYPE(argp)) {
1328: case I_VAR:
1329: case I_CONSTANT: hh = SECOND_ARGINT(argp); break;
1330: case R_VAR:
1331: case R_CONSTANT: tmpA = SECOND_ARGREAL(argp); break;
1332: case S_VAR:
1333: case S_CONSTANT: noError = 0;
1334: resultp->s_type = S_CONSTANT;
1335: resultp->s_str = strsave("<<MIS TYPE>>");
1336: sprintf(tmpS,
1337: "%s()'s first arg. cannot be string.\n",
1338: FuncStack[Func_idx].s_name);
1339: capa_msg(MESSAGE_ERROR,tmpS);
1340: break;
1341: }
1342: if(noError) {
1343: resultp->s_type = R_CONSTANT;
1344: if( hh != 0 ) {
1345: resultp->s_type = I_CONSTANT;
1346: resultp->s_int = hh;
1347: } else {
1348: if ( mm >= 0 ) {
1349: sprintf(fmt_str,"%%.%df",mm);
1350: sprintf(num_str,fmt_str,tmpA);
1351: tmpB = atof(num_str);
1352: resultp->s_real = tmpB;
1353: } else {
1354: sprintf(tmpS,"%s()'s second arg. cannot be negative (%d).\n",
1355: FuncStack[Func_idx].s_name,mm);
1356: capa_msg(MESSAGE_ERROR,tmpS);
1357: resultp->s_real = tmpA; /* not changed */
1358: }
1359: }
1360: }
1361: } break;
1362: case EVALUATE_F: { char *f_str, *v_str, *pt_str, *out_come;
1363: noError = 1;
1364: switch(FIRST_ARGTYPE(argp)) { /* now only accepts string like "0.0,0.1,0.2,0.3,0.4,0.5" */
1365: case I_VAR:
1366: case I_CONSTANT: noError = 0;
1367: resultp->s_type = S_CONSTANT;
1368: resultp->s_str = strsave("<<Evaulate Formula: Pts TYPE incorrect>>");
1369: sprintf(tmpS,
1370: "%s()'s third arg. cannot be integer.\n",FuncStack[Func_idx].s_name);
1371: capa_msg(MESSAGE_ERROR,tmpS);
1372: break;
1373: case R_VAR:
1374: case R_CONSTANT: noError = 0;
1375: resultp->s_type = S_CONSTANT;
1376: resultp->s_str = strsave("<<Evaulate Formula: Pts TYPE incorrect>>");
1377: sprintf(tmpS,
1378: "%s()'s third arg. cannot be integer.\n",FuncStack[Func_idx].s_name);
1379: capa_msg(MESSAGE_ERROR,tmpS);
1380: break;
1381: case S_VAR:
1382: case S_CONSTANT:
1383: pt_str = FIRST_ARGSTR(argp);
1384: break;
1385: }
1386: switch(SECOND_ARGTYPE(argp)) {
1387: case I_VAR:
1388: case I_CONSTANT:
1389: case R_VAR:
1390: case R_CONSTANT: noError = 0;
1391: resultp->s_type = S_CONSTANT;
1392: resultp->s_str = strsave("<<Evaluate Formula: Var list TYPE incorrect>>");
1393: sprintf(tmpS,
1394: "%s()'s second arg. cannot be number.\n",FuncStack[Func_idx].s_name);
1395: capa_msg(MESSAGE_ERROR,tmpS);
1396: break;
1397:
1398: case S_VAR:
1399: case S_CONSTANT: v_str = SECOND_ARGSTR(argp);
1400: break;
1401: }
1402: switch(THIRD_ARGTYPE(argp)) {
1403: case I_VAR:
1404: case I_CONSTANT:
1405: case R_VAR:
1406: case R_CONSTANT: noError = 0;
1407: resultp->s_type = S_CONSTANT;
1408: resultp->s_str = strsave("<<Evaluate Formula: Formula TYPE incorrect>>");
1409: sprintf(tmpS,
1410: "%s()'s first arg. cannot be number.\n",FuncStack[Func_idx].s_name);
1411: capa_msg(MESSAGE_ERROR,tmpS);
1412: break;
1413: case S_VAR:
1414: case S_CONSTANT: f_str = THIRD_ARGSTR(argp);
1415: break;
1416: }
1417: if(noError) {
1418: resultp->s_type = S_CONSTANT;
1419: /* printf("EVALUATE:::%s,%s,%s\n",f_str, v_str, pt_str); */
1420: out_come = eval_formula_range_str(f_str, v_str, pt_str);
1421: if( !out_come ) {
1422: resultp->s_str = strsave("<<Evaluate formula:: NULL>>");
1423: sprintf(tmpS,
1424: "%s() cannot evaluate the formula correctly.\n",FuncStack[Func_idx].s_name);
1425: capa_msg(MESSAGE_ERROR,tmpS);
1426: } else {
1427: resultp->s_str = out_come;
1428: }
1429: }
1430: }
1431: break;
1432: case CAPAID_PLUS:
1433: {
1434: extern Problem_t* FirstProblem_p;
1435: extern Problem_t* LexiProblem_p;
1436: Problem_t* problem;
1437: int num_char,pin;
1438: errCode = 0;
1439: if (argc==1) {
1440: switch( FIRST_ARGTYPE(argp) ) {
1441: case I_VAR: case I_CONSTANT: num_char=FIRST_ARGINT(argp); break;
1442: case R_VAR: case R_CONSTANT: errCode = 1; break;
1443: case S_VAR: case S_CONSTANT: errCode = 1; break;
1444: }
1445: } else {
1446: switch( SECOND_ARGTYPE(argp) ) {
1447: case I_VAR: case I_CONSTANT: num_char=SECOND_ARGINT(argp); break;
1448: case R_VAR: case R_CONSTANT: errCode = 1; break;
1449: case S_VAR: case S_CONSTANT: errCode = 1; break;
1450: }
1451: }
1452:
1453: if( errCode == 0 ) {
1454: if ( FirstProblem_p ) {
1455: problem=FirstProblem_p;
1456: } else {
1457: problem=LexiProblem_p;
1458: }
1459: if (!(problem->capaidplus)) capa_mfree(problem->capaidplus);
1460: if (-1==(tmpInt=which_set(argc-1,argp,resultp))) break;
1461: pin=capa_PIN(Parse_student_number,tmpInt,0);
1462: problem->capaidplus = capa_id_plus(Parse_student_number,
1463: tmpInt,num_char);
1464: resultp->s_type = S_CONSTANT;
1465: resultp->s_str = strsave(problem->capaidplus);
1466: } else {
1467: resultp->s_type = S_CONSTANT;
1468: resultp->s_str = strsave("<<INCORRECT ARGS TO CAPAID_PLUS>>");
1469: }
1470: }
1471: break;
1472: case SEAT_NUMBER:
1473: {
1474: int filenum;
1475: double filedoub;
1476: char *filename;
1477: if ( argc == 1 ) {
1478: switch( FIRST_ARGTYPE(argp)) {
1479: case I_VAR: case I_CONSTANT: filenum=FIRST_ARGINT(argp);
1480: filename=capa_malloc(TMP_LINE_LENGTH,1);
1481: sprintf(filename,"%d",filenum);
1482: break;
1483: case R_VAR: case R_CONSTANT: filedoub=FIRST_ARGREAL(argp);
1484: filename=capa_malloc(TMP_LINE_LENGTH,1);
1485: sprintf(filename,"%f",filedoub);
1486: break;
1487: case S_VAR: case S_CONSTANT:
1488: filename=strsave(FIRST_ARGSTR(argp)); break;
1489: }
1490: } else {
1491: filename=NULL;
1492: }
1493: resultp->s_type = S_CONSTANT;
1494: resultp->s_str = capa_get_seat(Parse_student_number,filename);
1495: if ( filename != NULL ) capa_mfree(filename);
1496: break;
1497: }
1498: case DURATION: { resultp->s_type = I_CONSTANT;
1499: resultp->s_int=capa_get_duration(Parse_student_number,
1500: Parse_section,Parse_set);
1501: } break;
1502: case MIS_ARG_COUNT:
1503: { resultp->s_type = S_CONSTANT;
1504: resultp->s_str = strsave("<<ARG COUNT>>");
1505: sprintf(tmpS,"%s()'s arg. count is not correct.\n",FuncStack[Func_idx].s_name);
1506: capa_msg(MESSAGE_ERROR,tmpS);
1507: } break;
1508: case UNKNOWN_F:
1509: default: { resultp->s_type = S_CONSTANT;
1510: resultp->s_str = strsave("<<UNKNOWN FUNCTION>>");
1511: sprintf(tmpS,"%s() unknown.\n",FuncStack[Func_idx].s_name);
1512: capa_msg(MESSAGE_ERROR,tmpS);
1513:
1514: } break;
1515: }
1516:
1517: return (resultp);
1518: }
1519:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to capaFunction.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / pProj