Skip to content

Commit 001d03c

Browse files
committed
Compilation after loading in import
1 parent d0b50ad commit 001d03c

File tree

2 files changed

+12
-3
lines changed

2 files changed

+12
-3
lines changed

.gitignore

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
11
.DS*
22

33
dev.md
4+
5+
dev.md

sc.code.cls

Lines changed: 10 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -114,16 +114,23 @@ ClassMethod import(filemask = "*.*", qspec = "cku-d", ByRef err = "", recurse =
114114
s ext = $p( filename, ".", * )
115115

116116
if $zcvt( ext, "l" ) = "dfi" {
117-
s sc = ##class(%DeepSee.UserLibrary.Utils).%Import( filename, 1, 0, 0, "", .loaded )
117+
s sc = ##class(%DeepSee.UserLibrary.Utils).%Import( filename, 1, 0, 0, "", .dsloaded )
118118
} else {
119-
s sc = $system.OBJ.Load( filename, qspec, .err, .loaded)
119+
// load classes only
120+
s sc = $system.OBJ.Load( filename, "k-d", .err, .loaded)
120121
}
121122

122123
if verbose $$$log
123124

124125
}
126+
// compile all the loaded classes to obey dependencies
127+
s sc=$system.OBJ.CompileList( .loaded, "ckbr-d/multicompile",.err )
128+
125129
}
126-
w:verbose !,!,"#; Imported from ", ..workdir()
130+
if verbose {
131+
if $D(err) zw err
132+
w !,!,"#; Imported from ", ..workdir()
133+
}
127134
Q sc
128135
}
129136

0 commit comments

Comments
 (0)