HEADTYPE = atolwhex(EARGF(usage()));
/* do something about setting INITTEXT */
break;
- case 'x': /* produce export table */
- doexp = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SEXPORT);
- break;
- case 'u': /* produce dynamically loadable module */
- dlm = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SIMPORT);
- break;
case 'V':
print("%cl version %s\n", thechar, getgoversion());
errorexit();
case 'r':
rpath = EARGF(usage());
break;
- case 'x': /* produce export table */
- doexp = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SEXPORT);
- break;
- case 'u': /* produce dynamically loadable module */
- dlm = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SIMPORT);
- break;
case 'V':
print("%cl version %s\n", thechar, getgoversion());
errorexit();
case 'r':
rpath = EARGF(usage());
break;
- case 'x': /* produce export table */
- doexp = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SEXPORT);
- break;
- case 'u': /* produce dynamically loadable module */
- dlm = 1;
- if(argv[1] != nil && argv[1][0] != '-' && !isobjfile(argv[1]))
- readundefs(ARGF(), SIMPORT);
- break;
case 'V':
print("%cl version %s\n", thechar, getgoversion());
errorexit();
if((int)len != len) {
fprint(2, "%s: too much pkg data in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
data = mal(len+1);
if(Bread(f, data, len) != len) {
fprint(2, "%s: short pkg read %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
data[len] = '\0';
// first \n$$ marks beginning of exports - skip rest of line
p0 = strstr(data, "\n$$");
- if(p0 == nil)
+ if(p0 == nil) {
+ if(debug['u']) {
+ fprint(2, "%s: cannot find export data in %s\n", argv0, filename);
+ errorexit();
+ }
return;
+ }
p0 += 3;
while(*p0 != '\n' && *p0 != '\0')
p0++;
p1 = strstr(p0, "\n$$");
if(p1 == nil) {
fprint(2, "%s: cannot find end of exports in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
while(p0 < p1 && (*p0 == ' ' || *p0 == '\t' || *p0 == '\n'))
if(p0 < p1) {
if(strncmp(p0, "package ", 8) != 0) {
fprint(2, "%s: bad package section in %s - %s\n", argv0, filename, p0);
+ if(debug['u'])
+ errorexit();
return;
}
p0 += 8;
name = p0;
while(p0 < p1 && *p0 != ' ' && *p0 != '\t' && *p0 != '\n')
p0++;
+ if(debug['u'] && memcmp(p0, " safe\n", 6) != 0) {
+ fprint(2, "%s: load of unsafe package %s\n", argv0, filename);
+ errorexit();
+ }
if(p0 < p1) {
*p0++ = '\0';
if(strcmp(pkg, "main") == 0 && strcmp(name, "main") != 0)
p1 = strstr(p0, "\n$$");
if(p1 == nil) {
fprint(2, "%s: cannot find end of local types in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
p0 = strchr(p0+1, '\n');
if(p0 == nil) {
fprint(2, "%s: found $$ // dynimport but no newline in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
p1 = strstr(p0, "\n$$");
p1 = strstr(p0, "\n!\n");
if(p1 == nil) {
fprint(2, "%s: cannot find end of // dynimport section in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
loaddynimport(filename, p0 + 1, p1 - (p0+1));
p0 = strchr(p0+1, '\n');
if(p0 == nil) {
fprint(2, "%s: found $$ // dynexporg but no newline in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
p1 = strstr(p0, "\n$$");
p1 = strstr(p0, "\n!\n");
if(p1 == nil) {
fprint(2, "%s: cannot find end of // dynexporg section in %s\n", argv0, filename);
+ if(debug['u'])
+ errorexit();
return;
}
loaddynexport(filename, pkg, p0 + 1, p1 - (p0+1));