/dports/lang/clips/clips_core_source_630/core/ |
H A D | sysdep.c | 1509 ts = EnvAddSymbol(theEnv,"lex"); in InitializeKeywords() 1511 ts = EnvAddSymbol(theEnv,"mea"); in InitializeKeywords() 1541 ts = EnvAddSymbol(theEnv,"type"); in InitializeKeywords() 1559 ts = EnvAddSymbol(theEnv,"NONE"); in InitializeKeywords() 1572 ts = EnvAddSymbol(theEnv,"test"); in InitializeKeywords() 1574 ts = EnvAddSymbol(theEnv,"or"); in InitializeKeywords() 1576 ts = EnvAddSymbol(theEnv,"and"); in InitializeKeywords() 1578 ts = EnvAddSymbol(theEnv,"not"); in InitializeKeywords() 1587 ts = EnvAddSymbol(theEnv,"is-a"); in InitializeKeywords() 1589 ts = EnvAddSymbol(theEnv,"role"); in InitializeKeywords() [all …]
|
H A D | strngfun.c | 164 SetpValue(returnValue,(void *) EnvAddSymbol(theEnv,"")); in StrOrSymCatFunction() 323 SetpValue(returnValue,(void *) EnvAddSymbol(theEnv,"")); in UpcaseFunction() 334 SetpValue(returnValue,(void *) EnvAddSymbol(theEnv,"")); in UpcaseFunction() 362 SetpValue(returnValue,(void *) EnvAddSymbol(theEnv,nsptr)); in UpcaseFunction() 504 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() 507 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() 515 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() 518 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() 523 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() 542 { return((void *) EnvAddSymbol(theEnv,"")); } in SubStringFunction() [all …]
|
H A D | iofun.c | 359 returnValue->value = (void *) EnvAddSymbol(theEnv,"EOF"); in ReadFunction() 453 theToken->value = (void *) EnvAddSymbol(theEnv,"EOF"); in ReadTokenFromStdin() 780 hptr = EnvAddSymbol(theEnv,""); in FormatFunction() 859 hptr = EnvAddSymbol(theEnv,fstr); in FormatFunction() 864 { hptr = EnvAddSymbol(theEnv,""); } in FormatFunction() 1133 theString = ValueToString(EnvAddSymbol(theEnv,printBuffer)); in PrintFormatFlag() 1198 returnValue->value = (void *) EnvAddSymbol(theEnv,"EOF"); in ReadlineFunction() 1203 returnValue->value = (void *) EnvAddSymbol(theEnv,buffer); in ReadlineFunction() 1395 returnValue->value = (void *) EnvAddSymbol(theEnv,"EOF"); in ReadNumberFunction() 1488 theToken->value = (void *) EnvAddSymbol(theEnv,"EOF"); in ReadNumber() [all …]
|
H A D | classinf.c | 679 SetMFValue(result->value,1,EnvAddSymbol(theEnv,"MLT")); in EnvSlotFacets() 681 SetMFValue(result->value,1,EnvAddSymbol(theEnv,"SGL")); in EnvSlotFacets() 684 SetMFValue(result->value,2,EnvAddSymbol(theEnv,"NIL")); in EnvSlotFacets() 694 SetMFValue(result->value,3,EnvAddSymbol(theEnv,"NIL")); in EnvSlotFacets() 696 SetMFValue(result->value,3,EnvAddSymbol(theEnv,"INH")); in EnvSlotFacets() 699 SetMFValue(result->value,4,EnvAddSymbol(theEnv,"INT")); in EnvSlotFacets() 701 SetMFValue(result->value,4,EnvAddSymbol(theEnv,"R")); in EnvSlotFacets() 703 SetMFValue(result->value,4,EnvAddSymbol(theEnv,"RW")); in EnvSlotFacets() 706 SetMFValue(result->value,5,EnvAddSymbol(theEnv,"SHR")); in EnvSlotFacets() 708 SetMFValue(result->value,5,EnvAddSymbol(theEnv,"LCL")); in EnvSlotFacets() [all …]
|
H A D | scanner.c | 218 theToken->value = (void *) EnvAddSymbol(theEnv,"?"); in GetToken() 263 theToken->value = (void *) EnvAddSymbol(theEnv,"$?"); in GetToken() 295 theToken->value = (void *) EnvAddSymbol(theEnv,"("); in GetToken() 301 theToken->value = (void *) EnvAddSymbol(theEnv,")"); in GetToken() 307 theToken->value = (void *) EnvAddSymbol(theEnv,"~"); in GetToken() 313 theToken->value = (void *) EnvAddSymbol(theEnv,"|"); in GetToken() 319 theToken->value = (void *) EnvAddSymbol(theEnv,"&"); in GetToken() 331 theToken->value = (void *) EnvAddSymbol(theEnv,"stop"); in GetToken() 456 return(EnvAddSymbol(theEnv,ScannerData(theEnv)->GlobalString)); in ScanSymbol() 500 { thePtr = EnvAddSymbol(theEnv,""); } in ScanString() [all …]
|
H A D | tmpltfun.c | 582 SetMFValue(theList,1,EnvAddSymbol(theEnv,"implied")); in EnvDeftemplateSlotNames() 645 { return(EnvAddSymbol(theEnv,"static")); } in DeftemplateSlotDefaultPFunction() 647 { return(EnvAddSymbol(theEnv,"dynamic")); } in DeftemplateSlotDefaultPFunction() 806 SetpValue(theValue,EnvAddSymbol(theEnv,"?NONE")); in EnvDeftemplateSlotDefaultValue() 1280 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"FLOAT")); in EnvDeftemplateSlotTypes() 1286 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"INTEGER")); in EnvDeftemplateSlotTypes() 1292 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"SYMBOL")); in EnvDeftemplateSlotTypes() 1298 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"STRING")); in EnvDeftemplateSlotTypes() 1304 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"EXTERNAL-ADDRESS")); in EnvDeftemplateSlotTypes() 1310 SetMFValue(result->value,i++,EnvAddSymbol(theEnv,"FACT-ADDRESS")); in EnvDeftemplateSlotTypes() [all …]
|
H A D | miscfun.c | 232 return(EnvAddSymbol(theEnv,genstring)); in GensymFunction() 282 return(EnvAddSymbol(theEnv,genstring)); in GensymStar() 804 return(EnvAddSymbol(theEnv,"UNKNOWN")); in OperatingSystemFunction() 808 return(EnvAddSymbol(theEnv,"VMS")); in OperatingSystemFunction() 812 return(EnvAddSymbol(theEnv,"UNIX-V")); in OperatingSystemFunction() 816 return(EnvAddSymbol(theEnv,"UNIX-7")); in OperatingSystemFunction() 820 return(EnvAddSymbol(theEnv,"LINUX")); in OperatingSystemFunction() 824 return(EnvAddSymbol(theEnv,"DARWIN")); in OperatingSystemFunction() 832 return(EnvAddSymbol(theEnv,"DOS")); in OperatingSystemFunction() 836 return(EnvAddSymbol(theEnv,"WINDOWS")); in OperatingSystemFunction() [all …]
|
H A D | parsefun.c | 177 SetpValue(returnValue,EnvAddSymbol(theEnv,"MISSING-LEFT-PARENTHESIS")); in CheckSyntax() 190 SetpValue(returnValue,EnvAddSymbol(theEnv,"EXPECTED-SYMBOL-AFTER-LEFT-PARENTHESIS")); in CheckSyntax() 235 SetpValue(returnValue,EnvAddSymbol(theEnv,"EXTRANEOUS-INPUT-AFTER-LAST-PARENTHESIS")); in CheckSyntax() 264 SetpValue(returnValue,EnvAddSymbol(theEnv,"EXTRANEOUS-INPUT-AFTER-LAST-PARENTHESIS")); in CheckSyntax() 325 SetMFValue(theMultifield,1,EnvAddSymbol(theEnv,ParseFunctionData(theEnv)->ErrorString)); in SetErrorCaptureValues() 336 SetMFValue(theMultifield,2,EnvAddSymbol(theEnv,ParseFunctionData(theEnv)->WarningString)); in SetErrorCaptureValues()
|
H A D | default.c | 95 theDefault->value = EnvAddSymbol(theEnv,"nil"); in DeriveDefaultFromConstraints() 108 theValue = FindDefaultValue(theEnv,SYMBOL,constraints,EnvAddSymbol(theEnv,"nil")); in DeriveDefaultFromConstraints() 114 theValue = FindDefaultValue(theEnv,STRING,constraints,EnvAddSymbol(theEnv,"")); in DeriveDefaultFromConstraints() 132 theValue = FindDefaultValue(theEnv,INSTANCE_NAME,constraints,EnvAddSymbol(theEnv,"nil")); in DeriveDefaultFromConstraints() 157 theValue = EnvAddSymbol(theEnv,"nil"); in DeriveDefaultFromConstraints()
|
H A D | modulutl.c | 120 returnValue = (SYMBOL_HN *) EnvAddSymbol(theEnv,newString); in ExtractModuleName() 155 if (thePosition == 0) return((SYMBOL_HN *) EnvAddSymbol(theEnv,theString)); in ExtractConstructName() 189 returnValue = (SYMBOL_HN *) EnvAddSymbol(theEnv,newString); in ExtractConstructName() 324 rv = SearchImportedConstructModules(theEnv,(SYMBOL_HN *) EnvAddSymbol(theEnv,constructName), in FindImportedConstruct() 326 (SYMBOL_HN *) EnvAddSymbol(theEnv,findName),count, in FindImportedConstruct()
|
H A D | prntutil.c | 475 thePtr = EnvAddSymbol(theEnv,floatString); in FloatToString() 482 thePtr = EnvAddSymbol(theEnv,floatString); in FloatToString() 498 thePtr = EnvAddSymbol(theEnv,buffer); in LongIntegerToString() 576 thePtr = EnvAddSymbol(theEnv,buffer); in DataObjectToString() 586 thePtr = EnvAddSymbol(theEnv,buffer); in DataObjectToString() 600 thePtr = EnvAddSymbol(theEnv,newString); in DataObjectToString()
|
H A D | classcom.c | 801 …return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetClassDefaultsModeName(EnvGetClassDefaultsMode(theEnv))… in GetClassDefaultsModeCommand() 822 …{ return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetClassDefaultsModeName(EnvGetClassDefaultsMode(theEnv… in SetClassDefaultsModeCommand() 825 …{ return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetClassDefaultsModeName(EnvGetClassDefaultsMode(theEnv… in SetClassDefaultsModeCommand() 841 …return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetClassDefaultsModeName(EnvGetClassDefaultsMode(theEnv))… in SetClassDefaultsModeCommand() 848 return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetClassDefaultsModeName(oldMode))); in SetClassDefaultsModeCommand()
|
H A D | factlhs.c | 175 CreateImpliedDeftemplate(theEnv,(SYMBOL_HN *) EnvAddSymbol(theEnv,"initial-fact"),FALSE); in CreateInitialFactPattern() 189 topNode->bottom->value = (void *) EnvAddSymbol(theEnv,"initial-fact"); in CreateInitialFactPattern()
|
H A D | crstrtgy.c | 980 return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetStrategyName(EnvGetStrategy(theEnv)))); in GetStrategyCommand() 1001 { return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetStrategyName(EnvGetStrategy(theEnv)))); } in SetStrategyCommand() 1004 { return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetStrategyName(EnvGetStrategy(theEnv)))); } in SetStrategyCommand() 1030 return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetStrategyName(EnvGetStrategy(theEnv)))); in SetStrategyCommand() 1037 return((SYMBOL_HN *) EnvAddSymbol(theEnv,GetStrategyName(oldStrategy))); in SetStrategyCommand()
|
H A D | agenda.c | 1138 { return((SYMBOL_HN *) EnvAddSymbol(theEnv,oldValue)); } in SetSalienceEvaluationCommand() 1141 { return((SYMBOL_HN *) EnvAddSymbol(theEnv,oldValue)); } in SetSalienceEvaluationCommand() 1160 return((SYMBOL_HN *) EnvAddSymbol(theEnv,oldValue)); in SetSalienceEvaluationCommand() 1167 return((SYMBOL_HN *) EnvAddSymbol(theEnv,oldValue)); in SetSalienceEvaluationCommand() 1180 …return((SYMBOL_HN *) EnvAddSymbol(theEnv,SalienceEvaluationName(EnvGetSalienceEvaluation(theEnv)))… in GetSalienceEvaluationCommand()
|
H A D | msgcom.c | 166 MessageHandlerData(theEnv)->INIT_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,INIT_STRING); in SetupMessageHandlers() 169 MessageHandlerData(theEnv)->DELETE_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,DELETE_STRING); in SetupMessageHandlers() 172 MessageHandlerData(theEnv)->CREATE_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,CREATE_STRING); in SetupMessageHandlers() 178 MessageHandlerData(theEnv)->SELF_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,SELF_STRING); in SetupMessageHandlers() 868 msym = (SYMBOL_HN *) EnvAddSymbol(theEnv,"*"); in WildDeleteHandler()
|
H A D | symbol.c | 165 SymbolData(theEnv)->TrueSymbolHN = EnvAddSymbol(theEnv,TRUE_STRING); in InitializeAtomTables() 167 SymbolData(theEnv)->FalseSymbolHN = EnvAddSymbol(theEnv,FALSE_STRING); in InitializeAtomTables() 169 SymbolData(theEnv)->PositiveInfinity = EnvAddSymbol(theEnv,POSITIVE_INFINITY_STRING); in InitializeAtomTables() 171 SymbolData(theEnv)->NegativeInfinity = EnvAddSymbol(theEnv,NEGATIVE_INFINITY_STRING); in InitializeAtomTables() 321 globle void *EnvAddSymbol( in EnvAddSymbol() function 1869 return EnvAddSymbol(GetCurrentEnvironment(),str); in AddSymbol()
|
H A D | classini.c | 168 DefclassData(theEnv)->ISA_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,SUPERCLASS_RLN); in SetupObjectSystem() 170 DefclassData(theEnv)->NAME_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,NAME_RLN); in SetupObjectSystem() 173 …DefclassData(theEnv)->INITIAL_OBJECT_SYMBOL = (SYMBOL_HN *) EnvAddSymbol(theEnv,INITIAL_OBJECT_NAM… in SetupObjectSystem() 708 sys = NewClass(theEnv,(SYMBOL_HN *) EnvAddSymbol(theEnv,name)); in AddSystemClass()
|
H A D | moduldef.c | 424 newDefmodule->name = (SYMBOL_HN *) EnvAddSymbol(theEnv,"MAIN"); in CreateMainModule() 709 return((SYMBOL_HN *) EnvAddSymbol(theEnv,ValueToString(theModule->name))); in GetCurrentModuleCommand() 731 …defaultReturn = (SYMBOL_HN *) EnvAddSymbol(theEnv,ValueToString(((struct defmodule *) EnvGetCurren… in SetCurrentModuleCommand()
|
H A D | factfun.c | 264 …else if (FindSlot(theFact->whichDeftemplate,(SYMBOL_HN *) EnvAddSymbol(theEnv,theSlotName),&positi… in FactSlotValue() 345 SetMFValue(theList,1,EnvAddSymbol(theEnv,"implied")); in EnvFactSlotNames()
|
H A D | multifld.c | 174 { theAtom = GenConstant(theEnv,STRING,EnvAddSymbol(theEnv,theToken.printForm)); } in StringToMultifield() 743 if (strsize == 0) return(EnvAddSymbol(theEnv,"")); in ImplodeMultifield() 843 rv = EnvAddSymbol(theEnv,ret_str); in ImplodeMultifield()
|
H A D | modulbsc.c | 183 SetMFValue(theList,count,EnvAddSymbol(theEnv,EnvGetDefmoduleName(theEnv,theConstruct))); in EnvGetDefmoduleList()
|
H A D | dffctbsc.c | 175 newDeffacts->header.name = (SYMBOL_HN *) EnvAddSymbol(theEnv,"initial-fact"); in ClearDeffacts()
|
H A D | tmpltbsc.c | 149 CreateImpliedDeftemplate(theEnv,(SYMBOL_HN *) EnvAddSymbol(theEnv,"initial-fact"),FALSE); in ClearDeftemplates()
|
H A D | multifun.c | 590 { return(EnvAddSymbol(theEnv,"")); } in ImplodeFunction() 597 { return(EnvAddSymbol(theEnv,"")); } in ImplodeFunction() 837 SetpValue(nth_value,(void *) EnvAddSymbol(theEnv,"nil")); in NthFunction() 845 SetpValue(nth_value,(void *) EnvAddSymbol(theEnv,"nil")); in NthFunction() 853 SetpValue(nth_value,(void *) EnvAddSymbol(theEnv,"nil")); in NthFunction()
|