mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-11 15:51:36 +00:00
51 lines
1.3 KiB
C++
51 lines
1.3 KiB
C++
void () test_str =
|
|
{
|
|
local string a,b,c,d;
|
|
a = "testing ";
|
|
b = "temp ";
|
|
c = "strings ";
|
|
d = "\n";
|
|
print (a + b + c + d);
|
|
printf ("%i \"%.5s\" %3.4f %v\n", 14, "hi there", 3.1415926, '4 1 3');
|
|
};
|
|
|
|
integer (integer argc, string []argv) main =
|
|
{
|
|
local integer i;
|
|
local SEL sel;
|
|
for (i = 0; i < argc; i++) {
|
|
print (argv[i]);
|
|
print ("\n");
|
|
}
|
|
local id foo = [[Foo alloc] init];
|
|
[foo run];
|
|
sel = sel_get_uid ("run");
|
|
if (sel) {
|
|
print ("found selector for `run'\n");
|
|
if ([foo respondsToSelector:sel])
|
|
print ("foo responds to `run'\n");
|
|
else
|
|
print ("foo does not repond to `run'\n");
|
|
} else
|
|
print ("did not find selector for `run'\n");
|
|
sel = sel_get_uid ("alloc");
|
|
if (sel) {
|
|
print ("found selector for `alloc'\n");
|
|
if ([Object instancesRespondToSelector:sel])
|
|
print ("Object instances respond to `alloc'\n");
|
|
else
|
|
print ("Object instances do not repond to `alloc'\n");
|
|
} else
|
|
print ("did not find selector for `alloc'\n");
|
|
sel = sel_get_uid ("run:with:me:");
|
|
if (sel) {
|
|
print ("found selector for `run:with:me:'\n");
|
|
if ([Object instancesRespondToSelector:sel])
|
|
print ("Object instances respond to `run:with:me:'\n");
|
|
else
|
|
print ("Object instances do not repond to `run:with:me:'\n");
|
|
} else
|
|
print ("did not find selector for `run:with:me:'\n");
|
|
test_str ();
|
|
return 0;
|
|
};
|