ƒCƒtƒRƒ“ƒsƒ…[ƒ^ > MINERVA > —α‘θƒvƒƒOƒ‰ƒ€ > MINERVA‚Μ“Α’₯ > Žw—ί > init

init

MINERVA
ifcomputer logo
f
Expert Services on the Web

% abc_library.min % % note that predicates starting with a '_' are not published in % the generated *.mpk file

% the predicate specified in the directive 'init' (if defined) % will be invoked at load time.

:- init('_abc_init').

'_abc_init' :- write('initializing abc_library...'),nl.

abc_f1(x). abc_f2(y). abc_f3(z).

abc_f4(X) :- '_abc_internal'(X).

'_abc_internal'(1).

% example.min % % Use the directive package to declare all predicates of a package. % The package will by dynamically loaded when one of its predicates % is first accessed.

% If there is a directive 'init' defined in the package, it will % be invoked at load time

% packages are produced with minervac or minervax.

:- package(abc_library).

main(_Args) :- abc_f1(X), abc_f2(Y), abc_f3(Z), writeq(xyz(X,Y,Z)),nl.

document: http://www.ifcomputer.co.jp/MINERVA/ExamplePrograms/MinervaFeatures/Directives/init/print_jp.html
published 2008/9/1 update 2001/3/22 (c) 1996-2006 IF Computer Japan
IF Computer §113-0022 Tel 03-5814-3352 start (AT) ifcomputer.com
Customer Support “Œ‹ž“s•Ά‹ž‹ζη‘Κ–Ψ5-28-2   http://www.ifcomputer.co.jp
–ί‚ι> managed with ubiCMS