Add pid/1 predicate to the os library

This commit is contained in:
Paulo Moura
2021-05-18 19:35:35 +01:00
parent 0eeae24049
commit b9ad6f4fd2
3 changed files with 16 additions and 1 deletions

View File

@@ -300,6 +300,7 @@ pub(crate) enum SystemClauseType {
GetEnv,
SetEnv,
UnsetEnv,
PID,
CharsBase64,
DevourWhitespace,
IsSTOEnabled,
@@ -588,6 +589,7 @@ impl SystemClauseType {
&SystemClauseType::GetEnv => clause_name!("$getenv"),
&SystemClauseType::SetEnv => clause_name!("$setenv"),
&SystemClauseType::UnsetEnv => clause_name!("$unsetenv"),
&SystemClauseType::PID => clause_name!("$pid"),
&SystemClauseType::CharsBase64 => clause_name!("$chars_base64"),
&SystemClauseType::LoadLibraryAsStream => clause_name!("$load_library_as_stream"),
&SystemClauseType::DevourWhitespace => clause_name!("$devour_whitespace"),
@@ -806,6 +808,7 @@ impl SystemClauseType {
("$getenv", 2) => Some(SystemClauseType::GetEnv),
("$setenv", 2) => Some(SystemClauseType::SetEnv),
("$unsetenv", 1) => Some(SystemClauseType::UnsetEnv),
("$pid", 1) => Some(SystemClauseType::PID),
("$chars_base64", 4) => Some(SystemClauseType::CharsBase64),
("$load_library_as_stream", 3) => Some(SystemClauseType::LoadLibraryAsStream),
("$push_load_context", 2) => Some(SystemClauseType::REPL(REPLCodePtr::PushLoadContext)),