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 "mancommd.h"
00049 #include "genfunc_.h"
00050 #include "eulerops.h"
00051 #include "hiegroup.h"
00052
00053 #ifdef __Extended_Version
00054 void MSD_execNameRemoveGroup(void)
00055 {
00056 char gname[30];
00057
00058 while (1 != sscanf(restbuf, "%s", gname))
00059 {
00060 printf("Remove Group: group\n");
00061 if (!lineins("? "))
00062 {
00063 return;
00064 }
00065 }
00066 MSD_highNameRemoveGroup(gname);
00067 }
00068
00069 #endif
00070
00071 int MSD_highNameRemoveGroup(char *name)
00072 {
00073 Id gn;
00074
00075 if ((gn = MSD_getGroupIdFromName(name)) == -1)
00076 {
00077 fprintf(stderr, MEN_NaoEncontrouGroupNome, NAM_RemoveGroup, name);
00078 return(ERROR);
00079 }
00080 return(MSD_highRemoveGroup(gn));
00081 }
00082
00083 #ifdef __Extended_Version
00084 void MSD_execRemoveGroup(void)
00085 {
00086 int gn;
00087
00088 while (1 != sscanf(restbuf, "%d", &gn))
00089 {
00090 printf("Remove Group: gn\n");
00091 if (!lineins("? "))
00092 {
00093 return;
00094 }
00095 }
00096 MSD_highRemoveGroup(gn);
00097 }
00098
00099 #endif
00100
00101 int MSD_highRemoveGroup(int gn)
00102 {
00103 GPTYPE gptr;
00104
00105 if ((gptr = MSD_getGroup(gn)) == GNIL)
00106 {
00107 fprintf(stderr, MEN_NaoEncontrouGroupId, NAM_RemoveGroup, gn);
00108 return(ERROR);
00109 }
00110 if (MSD_lowIsAncestorGroup(gptr, def_grpptr))
00111 {
00112 fprintf(stderr, MEN_GrupoCorrenteEliminado, NAM_RemoveGroup);
00113 return(ERROR);
00114 }
00115 return(MSD_lowRemoveGroup(gptr));
00116 }
00117
00118 int MSD_lowRemoveGroup(GPTYPE gptr)
00119 {
00120 GPTYPE eragrptr;
00121 GPTYPE gptrn;
00122 GPTYPE gptrp;
00123 APTYPE aptrn;
00124 APTYPE aptrp;
00125 SPTYPE optrn;
00126 SPTYPE optrp;
00127
00128 eragrptr = gptr;
00129 for (optrn = objary; optrn != SNIL;)
00130 {
00131 if (MSD_lowIsAncestorGroup(eragrptr, SolGroup(optrn)))
00132 {
00133 optrp = SolNxt(optrn);
00134 MSD_lowSoftRemove(optrn);
00135 optrn = optrp;
00136 }
00137 else
00138 {
00139 optrn = SolNxt(optrn);
00140 }
00141 }
00142
00143 for (aptrn = axsary; aptrn != ANIL;)
00144 {
00145 if (MSD_lowIsAncestorGroup(eragrptr, MSD_getGroupAxis(aptrn)))
00146 {
00147 aptrp = AxsNextA(aptrn);
00148 MSD_lowRemoveAxis(aptrn);
00149 aptrn = aptrp;
00150 }
00151 else
00152 {
00153 aptrn = AxsNextA(aptrn);
00154 }
00155 }
00156
00157 for (gptrn = grpary; gptrn != GNIL;)
00158 {
00159 if (MSD_lowIsAncestorGroup(eragrptr, gptrn) && (gptrn != eragrptr))
00160 {
00161 gptrp = GrpNextG(gptrn);
00162 MSD_lowRemoveOneGroup(gptrn);
00163 gptrn = gptrp;
00164 }
00165 else
00166 {
00167 gptrn = GrpNextG(gptrn);
00168 }
00169 }
00170
00171 MSD_lowRemoveOneGroup(eragrptr);
00172 return(SUCCESS);
00173 }