mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-12-13 22:21:17 +00:00
35 lines
442 B
R
35 lines
442 B
R
#include "string.h"
|
|
#include "SchemeString.h"
|
|
|
|
@implementation String
|
|
|
|
+ (id) newFromString: (string) s
|
|
{
|
|
return [[self alloc] initWithString: s];
|
|
}
|
|
|
|
- (id) initWithString: (string) s
|
|
{
|
|
self = [super init];
|
|
value = str_new();
|
|
str_copy(value, s);
|
|
return self;
|
|
}
|
|
|
|
- (string) stringValue
|
|
{
|
|
return value;
|
|
}
|
|
|
|
- (string) printForm
|
|
{
|
|
return value;
|
|
}
|
|
|
|
- (void) dealloc
|
|
{
|
|
str_free (value);
|
|
[super dealloc];
|
|
}
|
|
|
|
@end
|