Subversion Repositories tendra.SVN

Rev

Rev 7 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7 Rev 38
Line 1355... Line 1355...
1355
	    if ( *m ) OUT ( output, "\n#endif /* %s */\n", m ) ;
1355
	    if ( *m ) OUT ( output, "\n#endif /* %s */\n", m ) ;
1356
 
1356
 
1357
	} else {
1357
	} else {
1358
	    /* Source output file */
1358
	    /* Source output file */
1359
	    if (i->method == null) {
1359
	    if (i->method == null) {
1360
		char *m, *s;
1360
		char *m, *s, *si, *sr;
1361
		char *w1, *w2;
1361
		char *w1, *w2;
1362
		int n = output_incl_len;
1362
		int n = output_incl_len;
1363
		m = macro_name(DEFINE_PREFIX, i->api, i->file, i->subset);
1363
		m = macro_name(DEFINE_PREFIX, i->api, i->file, i->subset);
1364
		w1 = macro_name(WRONG_PREFIX, i->api, null_str, null_str);
1364
		w1 = macro_name(WRONG_PREFIX, i->api, null_str, null_str);
1365
		w2 = macro_name(WRONG_PREFIX, i->api, i->file, i->subset);
1365
		w2 = macro_name(WRONG_PREFIX, i->api, i->file, i->subset);
Line 1376... Line 1376...
1376
		OUT(output, "#endif\n");
1376
		OUT(output, "#endif\n");
1377
		OUT(output, "#endif\n\n");
1377
		OUT(output, "#endif\n\n");
1378
		OUT(output, "#ifndef %s\n", m);
1378
		OUT(output, "#ifndef %s\n", m);
1379
		OUT(output, "#pragma TenDRA no token definition allow\n");
1379
		OUT(output, "#pragma TenDRA no token definition allow\n");
1380
		OUT(output, "#endif\n");
1380
		OUT(output, "#endif\n");
-
 
1381
		/* create realtive include path */
-
 
1382
		si = string_printf("%s/%s",output_incl_dir,s);
-
 
1383
		sr = relative2(nm,si);
1381
		OUT(output, "#pragma implement interface <../%s>\n", s);
1384
		OUT(output, "#pragma implement interface <%s>\n", sr);
1382
		OUT(output, "#endif\n");
1385
		OUT(output, "#endif\n");
1383
	    } else {
1386
	    } else {
1384
		print_object(output, i->elements, 1);
1387
		print_object(output, i->elements, 1);
1385
	    }
1388
	    }
1386
	}
1389
	}