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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
Index: s_loader.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_loader.c,v
retrieving revision 1.6
diff -u -w -r1.6 s_loader.c
--- s_loader.c 30 May 2005 03:04:19 -0000 1.6
+++ s_loader.c 15 Nov 2005 22:28:41 -0000
@@ -49,7 +49,7 @@
int sys_load_lib(char *dirname, char *classname)
{
char symname[MAXPDSTRING], filename[MAXPDSTRING], dirbuf[MAXPDSTRING],
- classname2[MAXPDSTRING], *nameptr, *lastdot;
+ classname2[MAXPDSTRING], *nameptr, *lastdot, tmptildestr[MAXPDSTRING];
void *dlobj;
t_xxx makeout = NULL;
int fd;
@@ -96,9 +96,40 @@
#else
strcpy(symname, nameptr);
#endif
+ /*
+ * this is a quick hack to get the matrix externals working as single
+ * files. This should be done with hex translation of special characters
+ * <hans@at.or.at>
+ */
/* if the last character is a tilde, replace with "_tilde" */
if (symname[strlen(symname) - 1] == '~')
- strcpy(symname + (strlen(symname) - 1), "_tilde");
+ {
+ strcpy(symname + (strlen(symname) - 1), "");
+ strcpy(tmptildestr, "_tilde");
+ }
+ else
+ {
+ strcpy(tmptildestr, "");
+ }
+ switch (symname[strlen(symname) - 1])
+ {
+ case '.':
+ strcpy(symname + (strlen(symname) - 1), "_dot");
+ break;
+ case '+':
+ strcpy(symname + (strlen(symname) - 1), "_plus");
+ break;
+ case '-':
+ strcpy(symname + (strlen(symname) - 1), "_hyphen");
+ break;
+ case '*':
+ strcpy(symname + (strlen(symname) - 1), "_asterisk");
+ break;
+ case '^':
+ strcpy(symname + (strlen(symname) - 1), "_caret");
+ break;
+ }
+ strcat(symname, tmptildestr);
/* and append _setup to form the C setup function name */
strcat(symname, "_setup");
#ifdef DL_OPEN
|
