inform about new module for system library
This commit is contained in:
parent
14b1f65e35
commit
3272d5d230
@ -3211,7 +3211,7 @@ Yap_InitSysPreds(void)
|
|||||||
Yap_InitCPred ("virtual_alarm", 4, p_virtual_alarm, SafePredFlag|SyncPredFlag|HiddenPredFlag);
|
Yap_InitCPred ("virtual_alarm", 4, p_virtual_alarm, SafePredFlag|SyncPredFlag|HiddenPredFlag);
|
||||||
Yap_InitCPred ("enable_interrupts", 0, p_enable_interrupts, SafePredFlag);
|
Yap_InitCPred ("enable_interrupts", 0, p_enable_interrupts, SafePredFlag);
|
||||||
Yap_InitCPred ("disable_interrupts", 0, p_disable_interrupts, SafePredFlag);
|
Yap_InitCPred ("disable_interrupts", 0, p_disable_interrupts, SafePredFlag);
|
||||||
CurrentModule = SYSTEM_MODULE;
|
CurrentModule = OPERATING_SYSTEM_MODULE;
|
||||||
Yap_InitCPred ("true_file_name", 2, p_true_file_name, SyncPredFlag);
|
Yap_InitCPred ("true_file_name", 2, p_true_file_name, SyncPredFlag);
|
||||||
Yap_InitCPred ("true_file_name", 3, p_true_file_name3, SyncPredFlag);
|
Yap_InitCPred ("true_file_name", 3, p_true_file_name3, SyncPredFlag);
|
||||||
CurrentModule = cm;
|
CurrentModule = cm;
|
||||||
|
@ -90,6 +90,7 @@
|
|||||||
#define CHARSIO_MODULE Yap_heap_regs->charsio_module
|
#define CHARSIO_MODULE Yap_heap_regs->charsio_module
|
||||||
#define TERMS_MODULE Yap_heap_regs->terms_module
|
#define TERMS_MODULE Yap_heap_regs->terms_module
|
||||||
#define SYSTEM_MODULE Yap_heap_regs->system_module
|
#define SYSTEM_MODULE Yap_heap_regs->system_module
|
||||||
|
#define OPERATING_SYSTEM_MODULE Yap_heap_regs->operating_system_module
|
||||||
#define READUTIL_MODULE Yap_heap_regs->readutil_module
|
#define READUTIL_MODULE Yap_heap_regs->readutil_module
|
||||||
#define HACKS_MODULE Yap_heap_regs->hacks_module
|
#define HACKS_MODULE Yap_heap_regs->hacks_module
|
||||||
#define ARG_MODULE Yap_heap_regs->arg_module
|
#define ARG_MODULE Yap_heap_regs->arg_module
|
||||||
|
@ -90,6 +90,7 @@
|
|||||||
Term charsio_module;
|
Term charsio_module;
|
||||||
Term terms_module;
|
Term terms_module;
|
||||||
Term system_module;
|
Term system_module;
|
||||||
|
Term operating_system_module;
|
||||||
Term readutil_module;
|
Term readutil_module;
|
||||||
Term hacks_module;
|
Term hacks_module;
|
||||||
Term arg_module;
|
Term arg_module;
|
||||||
|
@ -184,6 +184,7 @@
|
|||||||
AtomOnline = Yap_LookupAtom("online");
|
AtomOnline = Yap_LookupAtom("online");
|
||||||
AtomOpen = Yap_LookupAtom("open");
|
AtomOpen = Yap_LookupAtom("open");
|
||||||
AtomOperatingSystemError = Yap_LookupAtom("operating_system_error");
|
AtomOperatingSystemError = Yap_LookupAtom("operating_system_error");
|
||||||
|
AtomOperatingSystemSupport = Yap_LookupAtom("operating_system_support");
|
||||||
AtomOperator = Yap_LookupAtom("operator");
|
AtomOperator = Yap_LookupAtom("operator");
|
||||||
AtomOperatorPriority = Yap_LookupAtom("operator_priority");
|
AtomOperatorPriority = Yap_LookupAtom("operator_priority");
|
||||||
AtomOperatorSpecifier = Yap_LookupAtom("operator_specifier");
|
AtomOperatorSpecifier = Yap_LookupAtom("operator_specifier");
|
||||||
|
@ -90,6 +90,7 @@
|
|||||||
Yap_heap_regs->charsio_module = MkAtomTerm(AtomCharsio);
|
Yap_heap_regs->charsio_module = MkAtomTerm(AtomCharsio);
|
||||||
Yap_heap_regs->terms_module = MkAtomTerm(AtomTerms);
|
Yap_heap_regs->terms_module = MkAtomTerm(AtomTerms);
|
||||||
Yap_heap_regs->system_module = MkAtomTerm(AtomSystem);
|
Yap_heap_regs->system_module = MkAtomTerm(AtomSystem);
|
||||||
|
Yap_heap_regs->operating_system_module = MkAtomTerm(AtomOperatingSystemSupport);
|
||||||
Yap_heap_regs->readutil_module = MkAtomTerm(AtomReadutil);
|
Yap_heap_regs->readutil_module = MkAtomTerm(AtomReadutil);
|
||||||
Yap_heap_regs->hacks_module = MkAtomTerm(AtomYapHacks);
|
Yap_heap_regs->hacks_module = MkAtomTerm(AtomYapHacks);
|
||||||
Yap_heap_regs->arg_module = MkAtomTerm(AtomArg);
|
Yap_heap_regs->arg_module = MkAtomTerm(AtomArg);
|
||||||
|
@ -184,6 +184,7 @@
|
|||||||
AtomOnline = AtomAdjust(AtomOnline);
|
AtomOnline = AtomAdjust(AtomOnline);
|
||||||
AtomOpen = AtomAdjust(AtomOpen);
|
AtomOpen = AtomAdjust(AtomOpen);
|
||||||
AtomOperatingSystemError = AtomAdjust(AtomOperatingSystemError);
|
AtomOperatingSystemError = AtomAdjust(AtomOperatingSystemError);
|
||||||
|
AtomOperatingSystemSupport = AtomAdjust(AtomOperatingSystemSupport);
|
||||||
AtomOperator = AtomAdjust(AtomOperator);
|
AtomOperator = AtomAdjust(AtomOperator);
|
||||||
AtomOperatorPriority = AtomAdjust(AtomOperatorPriority);
|
AtomOperatorPriority = AtomAdjust(AtomOperatorPriority);
|
||||||
AtomOperatorSpecifier = AtomAdjust(AtomOperatorSpecifier);
|
AtomOperatorSpecifier = AtomAdjust(AtomOperatorSpecifier);
|
||||||
|
@ -90,6 +90,7 @@
|
|||||||
Yap_heap_regs->charsio_module = AtomTermAdjust(Yap_heap_regs->charsio_module);
|
Yap_heap_regs->charsio_module = AtomTermAdjust(Yap_heap_regs->charsio_module);
|
||||||
Yap_heap_regs->terms_module = AtomTermAdjust(Yap_heap_regs->terms_module);
|
Yap_heap_regs->terms_module = AtomTermAdjust(Yap_heap_regs->terms_module);
|
||||||
Yap_heap_regs->system_module = AtomTermAdjust(Yap_heap_regs->system_module);
|
Yap_heap_regs->system_module = AtomTermAdjust(Yap_heap_regs->system_module);
|
||||||
|
Yap_heap_regs->operating_system_module = AtomTermAdjust(Yap_heap_regs->operating_system_module);
|
||||||
Yap_heap_regs->readutil_module = AtomTermAdjust(Yap_heap_regs->readutil_module);
|
Yap_heap_regs->readutil_module = AtomTermAdjust(Yap_heap_regs->readutil_module);
|
||||||
Yap_heap_regs->hacks_module = AtomTermAdjust(Yap_heap_regs->hacks_module);
|
Yap_heap_regs->hacks_module = AtomTermAdjust(Yap_heap_regs->hacks_module);
|
||||||
Yap_heap_regs->arg_module = AtomTermAdjust(Yap_heap_regs->arg_module);
|
Yap_heap_regs->arg_module = AtomTermAdjust(Yap_heap_regs->arg_module);
|
||||||
|
@ -366,6 +366,8 @@
|
|||||||
#define AtomOpen Yap_heap_regs->AtomOpen_
|
#define AtomOpen Yap_heap_regs->AtomOpen_
|
||||||
Atom AtomOperatingSystemError_;
|
Atom AtomOperatingSystemError_;
|
||||||
#define AtomOperatingSystemError Yap_heap_regs->AtomOperatingSystemError_
|
#define AtomOperatingSystemError Yap_heap_regs->AtomOperatingSystemError_
|
||||||
|
Atom AtomOperatingSystemSupport_;
|
||||||
|
#define AtomOperatingSystemSupport Yap_heap_regs->AtomOperatingSystemSupport_
|
||||||
Atom AtomOperator_;
|
Atom AtomOperator_;
|
||||||
#define AtomOperator Yap_heap_regs->AtomOperator_
|
#define AtomOperator Yap_heap_regs->AtomOperator_
|
||||||
Atom AtomOperatorPriority_;
|
Atom AtomOperatorPriority_;
|
||||||
|
@ -189,6 +189,7 @@ A On N "on"
|
|||||||
A Online N "online"
|
A Online N "online"
|
||||||
A Open N "open"
|
A Open N "open"
|
||||||
A OperatingSystemError N "operating_system_error"
|
A OperatingSystemError N "operating_system_error"
|
||||||
|
A OperatingSystemSupport N "operating_system_support"
|
||||||
A Operator N "operator"
|
A Operator N "operator"
|
||||||
A OperatorPriority N "operator_priority"
|
A OperatorPriority N "operator_priority"
|
||||||
A OperatorSpecifier N "operator_specifier"
|
A OperatorSpecifier N "operator_specifier"
|
||||||
|
@ -93,6 +93,7 @@ Term attributes_module ATTRIBUTES_MODULE MkAT AtomAttributes
|
|||||||
Term charsio_module CHARSIO_MODULE MkAT AtomCharsio
|
Term charsio_module CHARSIO_MODULE MkAT AtomCharsio
|
||||||
Term terms_module TERMS_MODULE MkAT AtomTerms
|
Term terms_module TERMS_MODULE MkAT AtomTerms
|
||||||
Term system_module SYSTEM_MODULE MkAT AtomSystem
|
Term system_module SYSTEM_MODULE MkAT AtomSystem
|
||||||
|
Term operating_system_module OPERATING_SYSTEM_MODULE MkAT AtomOperatingSystemSupport
|
||||||
Term readutil_module READUTIL_MODULE MkAT AtomReadutil
|
Term readutil_module READUTIL_MODULE MkAT AtomReadutil
|
||||||
Term hacks_module HACKS_MODULE MkAT AtomYapHacks
|
Term hacks_module HACKS_MODULE MkAT AtomYapHacks
|
||||||
Term arg_module ARG_MODULE MkAT AtomArg
|
Term arg_module ARG_MODULE MkAT AtomArg
|
||||||
|
Reference in New Issue
Block a user