00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041 #include <stdio.h>
00042 #include "mensagem.h"
00043 #include "memvirtu.h"
00044 #include "lowparam.h"
00045 #include "lowmacro.h"
00046 #include "lowsolid.h"
00047 #include "vectorop.h"
00048 #include "eulerops.h"
00049 #include "mancommd.h"
00050 #include "hiegroup.h"
00051
00052 #ifdef __Extended_Version
00053 void MSD_execNameAssociaGroupGroup(void)
00054 {
00055 char gname1[30], gname2[30];
00056
00057 while (2 != sscanf(restbuf, "%s %s", gname1, gname2))
00058 {
00059 printf("AssGroupGroup: group1 group2\n");
00060 if (!lineins("? "))
00061 {
00062 return;
00063 }
00064 }
00065 MSD_highNameAssociaGroupGroup(gname1, gname2);
00066 }
00067
00068 #endif
00069
00070 int MSD_highNameAssociaGroupGroup(char *name1, char *name2)
00071 {
00072 int gn1, gn2;
00073
00074 if ((gn1 = MSD_getGroupIdFromName(name1)) == -1)
00075 {
00076 fprintf(stderr, MEN_NaoEncontrouGroupNome, NAM_AssociaGroupGroup, name1);
00077 return(ERROR);
00078 }
00079 if ((gn2 = MSD_getGroupIdFromName(name2)) == -1)
00080 {
00081 fprintf(stderr, MEN_NaoEncontrouGroupNome, NAM_AssociaGroupGroup, name2);
00082 return(ERROR);
00083 }
00084 return(MSD_highAssociaGroupGroup(gn1, gn2));
00085 }
00086
00087 #ifdef __Extended_Version
00088 void MSD_execAssociaGroupGroup(void)
00089 {
00090 int gn1, gn2;
00091
00092 while (2 != sscanf(restbuf, "%d %d", &gn1, &gn2))
00093 {
00094 printf("AssGroupGroup: gn1 gn2\n");
00095 if (!lineins("? "))
00096 {
00097 return;
00098 }
00099 }
00100 MSD_highAssociaGroupGroup(gn1, gn2);
00101 }
00102
00103 #endif
00104
00105 int MSD_highAssociaGroupGroup(int gn1, int gn2)
00106 {
00107 GPTYPE gptr1;
00108 GPTYPE gptr2;
00109
00110 if (((gptr1 = MSD_getGroup(gn1)) == GNIL) && (gn1 != -1))
00111 {
00112 fprintf(stderr, MEN_NaoEncontrouGroupId, NAM_AssociaGroupGroup, gn1);
00113 return(ERROR);
00114 }
00115 if (((gptr2 = MSD_getGroup(gn2)) == GNIL) && (gn2 != -1))
00116 {
00117 fprintf(stderr, MEN_NaoEncontrouGroupId, NAM_AssociaGroupGroup, gn2);
00118 return(ERROR);
00119 }
00120 return(MSD_lowAssociaGroupGroup(gptr1, gptr2));
00121 }
00122
00123 int MSD_lowAssociaGroupGroup(GPTYPE gptr1, GPTYPE gptr2)
00124 {
00125 Id code, gn1, gn2;
00126
00127 if (Gdoinversion)
00128 {
00129 code = GroupGroup;
00130 gn1 = GrpGroupNo(gptr1);
00131 gn2 = GrpParent(gptr1) != GNIL ? GrpGroupNo(GrpParent(gptr1)) : -1;
00132 MSD_lowAddEulerOp(SNIL, ASSOCIATE, code, gn1, gn2, 0, 0, 0, 0, 0,
00133 0.0, 0.0, 0.0, 0.0);
00134 }
00135
00136 GrpParent(gptr1) = gptr2;
00137 return(SUCCESS);
00138 }