File: doubleq.m

package info (click to toggle)
cursel 0.1.9-4
  • links: PTS
  • area: main
  • in suites: woody
  • size: 604 kB
  • ctags: 35
  • sloc: objc: 6,388; makefile: 135; ansic: 61; sh: 26
file content (40 lines) | stat: -rw-r--r-- 1,053 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

/*
 * Copyright (c) 2000 David Stes.
 *
 * This library is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Library General Public License as published 
 * by the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * $Id: doubleq.m,v 1.1.1.1 2000/08/04 19:28:35 stes Exp $
 */

#include <Object.h>
#include <ocstring.h>
#include "doubleq.h"
#include "cursel.h"

@implementation Doublequote

- (STR)str
{
  id e = expandstr(expr);return (e)?[e str]:"";
}  

- expr:v
{
  expr = v;return self;
}

@end