home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part2 / newbs / mkop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-11-30  |  1.0 KB  |  43 lines
  1. /* mkop.c -- make operator function for bs.
  2. *
  3. *    USAGE: op name type oper tag
  4. *
  5. * where:    name: name of function generated.
  6. *        type: data type of operation.
  7. *        oper: operator for operation.
  8. *        tag: structure tag name.
  9. *
  10. * This will only work with T_INT and T_DBL operators, T_CHR operations
  11. * do not boil down to a simple operation.
  12. */
  13. #include <stdio.h>
  14.  
  15. main(argc,argv)
  16. char **argv;
  17. int argc;
  18. {
  19. char *name,*type,*oper,*tag;
  20.  
  21. if(argc != 5) {
  22.     fprintf(stderr,"arg count\n");
  23.     exit(1);
  24. }
  25. name = argv[1]; type = argv[2]; oper = argv[3]; tag = argv[4];
  26.  
  27. printf("_%s(l,p)\n",name);
  28. printf("int (*l[])(),p;\n");
  29. printf("{\n");
  30. printf("    union value rg1,rg2,result;\n");
  31. printf("\n");
  32. printf("    if((status&XMODE)==M_READ){ dtype=T_%s; goto EXEC;}\n",type);
  33. printf("    if((status&XMODE) == M_EXECUTE) {\n");
  34. printf("EXEC:\n");
  35. printf("    rg2 = pop();\n");
  36. printf("    rg1 = pop();\n");
  37. printf("    result.%s = rg1.%s %s rg2.%s;\n",tag,tag,oper,tag);
  38. printf("    push(result);\n");
  39. printf("    }\n");
  40. printf("    return(p);\n");
  41. printf("}\n");
  42. }
  43.