[Stratagus-CVS] stratagus/src/ui ccl_ui.c

[Russell Smith]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/09/11 02:49:06

Modified files:
        src/ui         : ccl_ui.c 

Log message:
        Rollback Bad for-unit-with-resource patch

Patches:
Index: stratagus/src/ui/ccl_ui.c
diff -u stratagus/src/ui/ccl_ui.c:1.122 stratagus/src/ui/ccl_ui.c:1.123
--- stratagus/src/ui/ccl_ui.c:1.122     Wed Sep 10 18:47:28 2003
+++ stratagus/src/ui/ccl_ui.c   Thu Sep 11 02:49:06 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_ui.c,v 1.122 2003/09/10 22:47:28 mr-russ Exp $
+//     $Id: ccl_ui.c,v 1.123 2003/09/11 06:49:06 mr-russ Exp $
 
 //@{
 
@@ -3062,25 +3062,6 @@
            value=gh_car(list);
            list=gh_cdr(list);
            ba.Hint=gh_scm2newstr(value,NULL);
-       } else if( gh_eq_p(value,gh_symbol2scm("for-unit-with-resource")) )
-           // FIXME: ba.UnitMask shouldn't be a string
-           value=gh_car(list);
-           list=gh_cdr(list);
-           s1=strdup(",");
-           while( !gh_null_p(value) ) {
-               s2=gh_scm2newstr(gh_car(value),NULL);
-               s1=realloc(s1,strlen(s1)+strlen(s2)+2);
-               strcat(s1,s2);
-               strcat(s1,",");
-               value=gh_cdr(value);
-               free(s2);
-           }
-           ba.UnitMask=s1;
-           //If not allowed, allow for when have a resource
-           if( !strncmp(ba.UnitMask,",R,",3) ) {
-               free(ba.UnitMask);
-               ba.UnitMask=strdup("R");
-           }
        } else if( gh_eq_p(value,gh_symbol2scm("for-unit")) ) {
            // FIXME: ba.UnitMask shouldn't be a string
            value=gh_car(list);