Skip to content

Commit

Permalink
Compilation after loading in import
Browse files Browse the repository at this point in the history
  • Loading branch information
evshvarov committed May 20, 2017
1 parent d0b50ad commit 001d03c
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 3 deletions.
2 changes: 2 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
.DS*

dev.md

dev.md
13 changes: 10 additions & 3 deletions sc.code.cls
Original file line number Diff line number Diff line change
Expand Up @@ -114,16 +114,23 @@ ClassMethod import(filemask = "*.*", qspec = "cku-d", ByRef err = "", recurse =
s ext = $p( filename, ".", * )

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

if verbose $$$log

}
// compile all the loaded classes to obey dependencies
s sc=$system.OBJ.CompileList( .loaded, "ckbr-d/multicompile",.err )

}
w:verbose !,!,"#; Imported from ", ..workdir()
if verbose {
if $D(err) zw err
w !,!,"#; Imported from ", ..workdir()
}
Q sc
}

Expand Down

0 comments on commit 001d03c

Please sign in to comment.