home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pyth_os2.zip / python-1.0.2 / Python / modsupport.c < prev    next >
C/C++ Source or Header  |  1994-04-14  |  11KB  |  570 lines
  1. /***********************************************************
  2. Copyright 1991, 1992, 1993, 1994 by Stichting Mathematisch Centrum,
  3. Amsterdam, The Netherlands.
  4.  
  5.                         All Rights Reserved
  6.  
  7. Permission to use, copy, modify, and distribute this software and its 
  8. documentation for any purpose and without fee is hereby granted, 
  9. provided that the above copyright notice appear in all copies and that
  10. both that copyright notice and this permission notice appear in 
  11. supporting documentation, and that the names of Stichting Mathematisch
  12. Centrum or CWI not be used in advertising or publicity pertaining to
  13. distribution of the software without specific, written prior permission.
  14.  
  15. STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
  16. THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  17. FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
  18. FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  19. WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  20. ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  21. OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  22.  
  23. ******************************************************************/
  24.  
  25. /* Module support implementation */
  26.  
  27. #include "allobjects.h"
  28. #include "modsupport.h"
  29. #include "import.h"
  30.  
  31. object *
  32. initmodule(name, methods)
  33.     char *name;
  34.     struct methodlist *methods;
  35. {
  36.     object *m, *d, *v;
  37.     struct methodlist *ml;
  38.     char *namebuf;
  39.     if ((m = add_module(name)) == NULL) {
  40.         fprintf(stderr, "initializing module: %s\n", name);
  41.         fatal("can't create a module");
  42.     }
  43.     d = getmoduledict(m);
  44.     for (ml = methods; ml->ml_name != NULL; ml++) {
  45.         namebuf = NEW(char, strlen(name) + strlen(ml->ml_name) + 2);
  46.         if (namebuf == NULL)
  47.             fatal("out of mem for method name");
  48.         sprintf(namebuf, "%s.%s", name, ml->ml_name);
  49.         v = newmethodobject(namebuf, ml->ml_meth,
  50.                     (object *)NULL, ml->ml_varargs);
  51.         /* XXX The malloc'ed memory in namebuf is never freed */
  52.         if (v == NULL || dictinsert(d, ml->ml_name, v) != 0) {
  53.             fprintf(stderr, "initializing module: %s\n", name);
  54.             fatal("can't initialize module");
  55.         }
  56.         DECREF(v);
  57.     }
  58.     return m;
  59. }
  60.  
  61.  
  62. /* Helper for mkvalue() to scan the length of a format */
  63.  
  64. static int countformat PROTO((char *format, int endchar));
  65. static int countformat(format, endchar)
  66.     char *format;
  67.     int endchar;
  68. {
  69.     int count = 0;
  70.     int level = 0;
  71.     while (level > 0 || *format != endchar) {
  72.         if (*format == '\0') {
  73.             /* Premature end */
  74.             err_setstr(SystemError, "unmatched paren in format");
  75.             return -1;
  76.         }
  77.         else if (*format == '(') {
  78.             if (level == 0)
  79.                 count++;
  80.             level++;
  81.         }
  82.         else if (*format == ')')
  83.             level--;
  84.         else if (level == 0 && *format != '#')
  85.             count++;
  86.         format++;
  87.     }
  88.     return count;
  89. }
  90.  
  91.  
  92. /* Generic argument list parser */
  93.  
  94. static int do_arg PROTO((object *arg, char** p_format, va_list *p_va));
  95. static int
  96. do_arg(arg, p_format, p_va)
  97.     object *arg;
  98.     char** p_format;
  99.     va_list *p_va;
  100. {
  101.     char *format = *p_format;
  102.     
  103.     if (arg == NULL)
  104.         return 0; /* Incomplete tuple or list */
  105.     
  106.     switch (*format++) {
  107.     
  108.     case '(': /* tuple, distributed over C parameters */ {
  109.         int i, n;
  110.         if (!is_tupleobject(arg))
  111.             return 0;
  112.         n = gettuplesize(arg);
  113.         for (i = 0; i < n; i++) {
  114.             if (!do_arg(gettupleitem(arg, i), &format, p_va))
  115.                 return 0;
  116.         }
  117.         if (*format++ != ')')
  118.             return 0;
  119.         break;
  120.         }
  121.  
  122.     case ')': /* End of format -- too many arguments */
  123.         return 0;
  124.  
  125.     case 'b': /* byte -- very short int */ {
  126.         char *p = va_arg(*p_va, char *);
  127.         if (is_intobject(arg))
  128.             *p = getintvalue(arg);
  129.         else
  130.             return 0;
  131.         break;
  132.         }
  133.  
  134.     case 'h': /* short int */ {
  135.         short *p = va_arg(*p_va, short *);
  136.         if (is_intobject(arg))
  137.             *p = getintvalue(arg);
  138.         else
  139.             return 0;
  140.         break;
  141.         }
  142.     
  143.     case 'i': /* int */ {
  144.         int *p = va_arg(*p_va, int *);
  145.         if (is_intobject(arg))
  146.             *p = getintvalue(arg);
  147.         else
  148.             return 0;
  149.         break;
  150.         }
  151.     
  152.     case 'l': /* long int */ {
  153.         long *p = va_arg(*p_va, long *);
  154.         if (is_intobject(arg))
  155.             *p = getintvalue(arg);
  156.         else
  157.             return 0;
  158.         break;
  159.         }
  160.     
  161.     case 'f': /* float */ {
  162.         float *p = va_arg(*p_va, float *);
  163.         if (is_floatobject(arg))
  164.             *p = getfloatvalue(arg);
  165.         else if (is_intobject(arg))
  166.             *p = (float)getintvalue(arg);
  167.         else
  168.             return 0;
  169.         break;
  170.         }
  171.     
  172.     case 'd': /* double */ {
  173.         double *p = va_arg(*p_va, double *);
  174.         if (is_floatobject(arg))
  175.             *p = getfloatvalue(arg);
  176.         else if (is_intobject(arg))
  177.             *p = (double)getintvalue(arg);
  178.         else
  179.             return 0;
  180.         break;
  181.         }
  182.     
  183.     case 'c': /* char */ {
  184.         char *p = va_arg(*p_va, char *);
  185.         if (is_stringobject(arg) && getstringsize(arg) == 1)
  186.             *p = getstringvalue(arg)[0];
  187.         else
  188.             return 0;
  189.         break;
  190.         }
  191.     
  192.     case 's': /* string */ {
  193.         char **p = va_arg(*p_va, char **);
  194.         if (is_stringobject(arg))
  195.             *p = getstringvalue(arg);
  196.         else
  197.             return 0;
  198.         if (*format == '#') {
  199.             int *q = va_arg(*p_va, int *);
  200.             *q = getstringsize(arg);
  201.             format++;
  202.         }
  203.         else if (strlen(*p) != getstringsize(arg)) {
  204.             err_setstr(ValueError, "embedded '\\0' in string arg");
  205.             return 0;
  206.         }
  207.         break;
  208.         }
  209.     
  210.     case 'z': /* string, may be NULL (None) */ {
  211.         char **p = va_arg(*p_va, char **);
  212.         if (arg == None)
  213.             *p = 0;
  214.         else if (is_stringobject(arg))
  215.             *p = getstringvalue(arg);
  216.         else
  217.             return 0;
  218.         if (*format == '#') {
  219.             int *q = va_arg(*p_va, int *);
  220.             if (arg == None)
  221.                 *q = 0;
  222.             else
  223.                 *q = getstringsize(arg);
  224.             format++;
  225.         }
  226.         else if (*p != NULL && strlen(*p) != getstringsize(arg)) {
  227.             err_setstr(ValueError, "embedded '\\0' in string arg");
  228.             return 0;
  229.         }
  230.         break;
  231.         }
  232.     
  233.     case 'S': /* string object */ {
  234.         object **p = va_arg(*p_va, object **);
  235.         if (is_stringobject(arg))
  236.             *p = arg;
  237.         else
  238.             return 0;
  239.         break;
  240.         }
  241.     
  242.     case 'O': /* object */ {
  243.         typeobject *type = NULL;
  244.         object **p;
  245.         if (*format == '!') {
  246.             type = va_arg(*p_va, typeobject *);
  247.             format++;
  248.         }
  249.         p = va_arg(*p_va, object **);
  250.         if (type && (*p)->ob_type != type) {
  251.             char buf[200];
  252.             sprintf(buf, "Object of type %.100s expected",
  253.                 type->tp_name);
  254.             err_setstr(TypeError, buf);
  255.             return 0;
  256.         }
  257.         *p = arg;
  258.         break;
  259.         }
  260.  
  261.     default:
  262.         fprintf(stderr, "bad do_arg format: x%x '%c'\n",
  263.             format[-1], format[-1]);
  264.         return 0;
  265.     
  266.     }
  267.     
  268.     *p_format = format;
  269.     
  270.     return 1;
  271. }
  272.  
  273. #ifdef HAVE_STDARG_PROTOTYPES
  274. /* VARARGS2 */
  275. int getargs(object *arg, char *format, ...)
  276. #else
  277. /* VARARGS */
  278. int getargs(va_alist) va_dcl
  279. #endif
  280. {
  281.     char *f;
  282.     int ok;
  283.     va_list va;
  284. #ifdef HAVE_STDARG_PROTOTYPES
  285.  
  286.     va_start(va, format);
  287. #else
  288.     object *arg;
  289.     char *format;
  290.  
  291.     va_start(va);
  292.     arg = va_arg(va, object *);
  293.     format = va_arg(va, char *);
  294. #endif
  295.     if (*format == '\0' || *format == ';') {
  296.         va_end(va);
  297.         if (arg != NULL) {
  298.             char *str = "no arguments needed";
  299.             if (*format == ';')
  300.                 str = format+1;
  301.             err_setstr(TypeError, str);
  302.             return 0;
  303.         }
  304.         return 1;
  305.     }
  306.     
  307.     f = format;
  308.     ok = do_arg(arg, &f, &va) && (*f == '\0' || *f == ';');
  309.     va_end(va);
  310.     if (!ok) {
  311.         if (!err_occurred()) {
  312.             char buf[256];
  313.             char *str;
  314.             f = strchr(format, ';');
  315.             if (f != NULL)
  316.                 str = f+1;
  317.             else {
  318.                 sprintf(buf, "bad argument list (format '%s')",
  319.                     format);
  320.                 str = buf;
  321.             }
  322.             err_setstr(TypeError, str);
  323.         }
  324.     }
  325.     return ok;
  326. }
  327.  
  328. #ifdef UNUSED
  329.  
  330. int
  331. getlongtuplearg(args, a, n)
  332.     object *args;
  333.     long *a; /* [n] */
  334.     int n;
  335. {
  336.     int i;
  337.     if (!is_tupleobject(args) || gettuplesize(args) != n) {
  338.         return err_badarg();
  339.     }
  340.     for (i = 0; i < n; i++) {
  341.         object *v = gettupleitem(args, i);
  342.         if (!is_intobject(v)) {
  343.             return err_badarg();
  344.         }
  345.         a[i] = getintvalue(v);
  346.     }
  347.     return 1;
  348. }
  349.  
  350. int
  351. getshorttuplearg(args, a, n)
  352.     object *args;
  353.     short *a; /* [n] */
  354.     int n;
  355. {
  356.     int i;
  357.     if (!is_tupleobject(args) || gettuplesize(args) != n) {
  358.         return err_badarg();
  359.     }
  360.     for (i = 0; i < n; i++) {
  361.         object *v = gettupleitem(args, i);
  362.         if (!is_intobject(v)) {
  363.             return err_badarg();
  364.         }
  365.         a[i] = getintvalue(v);
  366.     }
  367.     return 1;
  368. }
  369.  
  370. int
  371. getlonglistarg(args, a, n)
  372.     object *args;
  373.     long *a; /* [n] */
  374.     int n;
  375. {
  376.     int i;
  377.     if (!is_listobject(args) || getlistsize(args) != n) {
  378.         return err_badarg();
  379.     }
  380.     for (i = 0; i < n; i++) {
  381.         object *v = getlistitem(args, i);
  382.         if (!is_intobject(v)) {
  383.             return err_badarg();
  384.         }
  385.         a[i] = getintvalue(v);
  386.     }
  387.     return 1;
  388. }
  389.  
  390. int
  391. getshortlistarg(args, a, n)
  392.     object *args;
  393.     short *a; /* [n] */
  394.     int n;
  395. {
  396.     int i;
  397.     if (!is_listobject(args) || getlistsize(args) != n) {
  398.         return err_badarg();
  399.     }
  400.     for (i = 0; i < n; i++) {
  401.         object *v = getlistitem(args, i);
  402.         if (!is_intobject(v)) {
  403.             return err_badarg();
  404.         }
  405.         a[i] = getintvalue(v);
  406.     }
  407.     return 1;
  408. }
  409.  
  410. #endif /* UNUSED */
  411.  
  412.  
  413. /* Generic function to create a value -- the inverse of getargs() */
  414. /* After an original idea and first implementation by Steven Miale */
  415.  
  416. static object *do_mktuple PROTO((char**, va_list *, int, int));
  417. static object *do_mkvalue PROTO((char**, va_list *));
  418.  
  419. static object *
  420. do_mktuple(p_format, p_va, endchar, n)
  421.     char **p_format;
  422.     va_list *p_va;
  423.     int endchar;
  424.     int n;
  425. {
  426.     object *v;
  427.     int i;
  428.     if (n < 0)
  429.         return NULL;
  430.     if ((v = newtupleobject(n)) == NULL)
  431.         return NULL;
  432.     for (i = 0; i < n; i++) {
  433.         object *w = do_mkvalue(p_format, p_va);
  434.         if (w == NULL) {
  435.             DECREF(v);
  436.             return NULL;
  437.         }
  438.         settupleitem(v, i, w);
  439.     }
  440.     if (v != NULL && **p_format != endchar) {
  441.         DECREF(v);
  442.         v = NULL;
  443.         err_setstr(SystemError, "Unmatched paren in format");
  444.     }
  445.     else if (endchar)
  446.         ++*p_format;
  447.     return v;
  448. }
  449.  
  450. static object *
  451. do_mkvalue(p_format, p_va)
  452.     char **p_format;
  453.     va_list *p_va;
  454. {
  455.     
  456.     switch (*(*p_format)++) {
  457.     
  458.     case '(':
  459.         return do_mktuple(p_format, p_va, ')',
  460.                   countformat(*p_format, ')'));
  461.         
  462.     case 'b':
  463.     case 'h':
  464.     case 'i':
  465.         return newintobject((long)va_arg(*p_va, int));
  466.         
  467.     case 'l':
  468.         return newintobject((long)va_arg(*p_va, long));
  469.         
  470.     case 'f':
  471.     case 'd':
  472.         return newfloatobject((double)va_arg(*p_va, double));
  473.         
  474.     case 'c':
  475.         {
  476.             char p[1];
  477.             p[0] = va_arg(*p_va, int);
  478.             return newsizedstringobject(p, 1);
  479.         }
  480.     
  481.     case 's':
  482.     case 'z':
  483.         {
  484.             object *v;
  485.             char *str = va_arg(*p_va, char *);
  486.             int n;
  487.             if (**p_format == '#') {
  488.                 ++*p_format;
  489.                 n = va_arg(*p_va, int);
  490.             }
  491.             else
  492.                 n = -1;
  493.             if (str == NULL) {
  494.                 v = None;
  495.                 INCREF(v);
  496.             }
  497.             else {
  498.                 if (n < 0)
  499.                     n = strlen(str);
  500.                 v = newsizedstringobject(str, n);
  501.             }
  502.             return v;
  503.         }
  504.     
  505.     case 'S':
  506.     case 'O':
  507.         {
  508.             object *v;
  509.             v = va_arg(*p_va, object *);
  510.             if (v != NULL)
  511.                 INCREF(v);
  512.             else if (!err_occurred())
  513.                 /* If a NULL was passed because a call
  514.                    that should have constructed a value
  515.                    failed, that's OK, and we pass the error
  516.                    on; but if no error occurred it's not
  517.                    clear that the caller knew what she
  518.                    was doing. */
  519.                 err_setstr(SystemError,
  520.                        "NULL object passed to mkvalue");
  521.             return v;
  522.         }
  523.     
  524.     default:
  525.         err_setstr(SystemError, "bad format char passed to mkvalue");
  526.         return NULL;
  527.     
  528.     }
  529. }
  530.  
  531. #ifdef HAVE_STDARG_PROTOTYPES
  532. /* VARARGS 2 */
  533. object *mkvalue(char *format, ...)
  534. #else
  535. /* VARARGS */
  536. object *mkvalue(va_alist) va_dcl
  537. #endif
  538. {
  539.     va_list va;
  540.     object* retval;
  541. #ifdef HAVE_STDARG_PROTOTYPES
  542.     va_start(va, format);
  543. #else
  544.     char *format;
  545.     va_start(va);
  546.     format = va_arg(va, char *);
  547. #endif
  548.     retval = vmkvalue(format, va);
  549.     va_end(va);
  550.     return retval;
  551. }
  552.  
  553. object *
  554. vmkvalue(format, va)
  555.     char *format;
  556.     va_list va;
  557. {
  558.     char *f = format;
  559.     int n = countformat(f, '\0');
  560.     if (n < 0)
  561.         return NULL;
  562.     if (n == 0) {
  563.         INCREF(None);
  564.         return None;
  565.     }
  566.     if (n == 1)
  567.         return do_mkvalue(&f, &va);
  568.     return do_mktuple(&f, &va, '\0', n);
  569. }
  570.