home *** CD-ROM | disk | FTP | other *** search
/ vis-ftp.cs.umass.edu / vis-ftp.cs.umass.edu.tar / vis-ftp.cs.umass.edu / pub / Software / ASCENDER / ascender.tar.Z / ascender.tar / lisp-stubs.c < prev    next >
C/C++ Source or Header  |  1996-04-03  |  4KB  |  136 lines
  1.  
  2.  
  3. /* 
  4.  * Lisp-side stub functions
  5.  * Outgoing parameters placed on xdr_out stream, 
  6.  * Incoming return value appears on xdr_in stream.
  7.  */
  8.  
  9. #include <rpc/rpc.h>
  10. #include "rcde_types.h"
  11.  
  12. extern XDR  xdr_in, xdr_out;
  13. extern int sv_return_length, sv_return_type;
  14. char stub_error[500];
  15. int
  16. set_building_parameters_stub(proj_id, angle_error, line_endpoint_window, search_angle, support_column, min_line_support, token_support, token_window)
  17.     unsigned int proj_id;
  18.     double angle_error;
  19.     double line_endpoint_window;
  20.     double search_angle;
  21.     double support_column;
  22.     double min_line_support;
  23.     double token_support;
  24.     double token_window;
  25.     {
  26.     int result;
  27.     xdr_setpos(&xdr_out, (u_int)0);
  28.  
  29.     if (xdr_double(&xdr_out, &angle_error) &&
  30.         xdr_double(&xdr_out, &line_endpoint_window) &&
  31.         xdr_double(&xdr_out, &search_angle) &&
  32.         xdr_double(&xdr_out, &support_column) &&
  33.         xdr_double(&xdr_out, &min_line_support) &&
  34.         xdr_double(&xdr_out, &token_support) &&
  35.         xdr_double(&xdr_out, &token_window) )
  36.         {
  37.         if (debug_ex(0, proj_id))
  38.             if (xdr_int(&xdr_in, &result))
  39.                 return result;
  40.             else
  41.                 interface_error(sprintf(stub_error,
  42.                   "Result XDR error error in set_building_parameters.\n"));
  43.         else
  44.             interface_error(sprintf(stub_error,
  45.               "Debug_ex error error in set_building_parameters.\n"));
  46.         }
  47.     else
  48.         interface_error(sprintf(stub_error,
  49.           "Main XDR error in set_building_parameters.\n"));
  50.     }
  51.  
  52.  
  53.  
  54.  
  55. int
  56. find_polygons_stub(proj_id, sensitivity, constrain, manual, lines, x1, y1, x2, y2, k, panechoice)
  57.     unsigned int proj_id;
  58.     double sensitivity;
  59.     boolean constrain;
  60.     boolean manual;
  61.     boolean lines;
  62.     int x1;
  63.     int y1;
  64.     int x2;
  65.     int y2;
  66.     int k;
  67.     c_handle panechoice;
  68.     {
  69.     int result;
  70.     xdr_setpos(&xdr_out, (u_int)0);
  71.  
  72.     if (xdr_double(&xdr_out, &sensitivity) &&
  73.         xdr_bool(&xdr_out, &constrain) &&
  74.         xdr_bool(&xdr_out, &manual) &&
  75.         xdr_bool(&xdr_out, &lines) &&
  76.         xdr_int(&xdr_out, &x1) &&
  77.         xdr_int(&xdr_out, &y1) &&
  78.         xdr_int(&xdr_out, &x2) &&
  79.         xdr_int(&xdr_out, &y2) &&
  80.         xdr_int(&xdr_out, &k) &&
  81.         xdr_int(&xdr_out, &panechoice) )
  82.         {
  83.         if (debug_ex(1, proj_id))
  84.             if (xdr_int(&xdr_in, &result))
  85.                 return result;
  86.             else
  87.                 interface_error(sprintf(stub_error,
  88.                   "Result XDR error error in find_polygons.\n"));
  89.         else
  90.             interface_error(sprintf(stub_error,
  91.               "Debug_ex error error in find_polygons.\n"));
  92.         }
  93.     else
  94.         interface_error(sprintf(stub_error,
  95.           "Main XDR error in find_polygons.\n"));
  96.     }
  97.  
  98.  
  99.  
  100.  
  101. int
  102. acquireModel_stub(proj_id, sensitivity, constrain, regionsize, overlap)
  103.     unsigned int proj_id;
  104.     double sensitivity;
  105.     boolean constrain;
  106.     double regionsize;
  107.     double overlap;
  108.     {
  109.     int result;
  110.     xdr_setpos(&xdr_out, (u_int)0);
  111.  
  112.     if (xdr_double(&xdr_out, &sensitivity) &&
  113.         xdr_bool(&xdr_out, &constrain) &&
  114.         xdr_double(&xdr_out, ®ionsize) &&
  115.         xdr_double(&xdr_out, &overlap) )
  116.         {
  117.         if (debug_ex(2, proj_id))
  118.             if (xdr_int(&xdr_in, &result))
  119.                 return result;
  120.             else
  121.                 interface_error(sprintf(stub_error,
  122.                   "Result XDR error error in acquireModel.\n"));
  123.         else
  124.             interface_error(sprintf(stub_error,
  125.               "Debug_ex error error in acquireModel.\n"));
  126.         }
  127.     else
  128.         interface_error(sprintf(stub_error,
  129.           "Main XDR error in acquireModel.\n"));
  130.     }
  131.  
  132.  
  133.  
  134.  
  135.  
  136.