/dports/lang/mosh/mosh-0.2.7/src/ |
H A D | PortProcedures.h | 45 Object peekCharEx(VM* theVM, int argc, const Object* argv); 46 Object getDatumEx(VM* theVM, int argc, const Object* argv); 49 Object getCharEx(VM* theVM, int argc, const Object* argv); 61 Object putCharEx(VM* theVM, int argc, const Object* argv); 69 Object getLineEx(VM* theVM, int argc, const Object* argv); 76 Object readEx(VM* theVM, int argc, const Object* argv); 88 Object formatEx(VM* theVM, int argc, const Object* argv); 94 Object writeEx(VM* theVM, int argc, const Object* argv); 101 Object getU8Ex(VM* theVM, int argc, const Object* argv); 130 Object portPEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | ErrorProcedures.cpp | 61 theVM->currentErrorPort().toTextualOutputPort()->display(theVM, content); in raiseAfter2() 67 theVM->throwException(condition); in raiseAfter2() 79 theVM->currentErrorPort().toTextualOutputPort()->display(theVM, content); in raiseAfter3() 86 theVM->throwException(condition); in raiseAfter3() 98 theVM->currentErrorPort().toTextualOutputPort()->display(theVM, content); in raiseAfter4() 162 theVM->throwException(argv[0]); in throwEx() 206 MOSH_ASSERT(theVM); in callAssertionViolationImmidiaImmediately() 214 theVM->throwException(condition); in callAssertionViolationImmidiaImmediately() 227 if (theVM->isR6RSMode()) { in callAssertionViolationAfter() 266 MOSH_ASSERT(theVM); in callLexicalViolationImmidiaImmediately() [all …]
|
H A D | ArithmeticProcedures.h | 43 Object exptEx(VM* theVM, int argc, const Object* argv); 44 Object sqrtEx(VM* theVM, int argc, const Object* argv); 45 Object asinEx(VM* theVM, int argc, const Object* argv); 48 Object tanEx(VM* theVM, int argc, const Object* argv); 49 Object sinEx(VM* theVM, int argc, const Object* argv); 50 Object cosEx(VM* theVM, int argc, const Object* argv); 51 Object logEx(VM* theVM, int argc, const Object* argv); 52 Object expEx(VM* theVM, int argc, const Object* argv); 57 Object gcdEx(VM* theVM, int argc, const Object* argv); 58 Object lcmEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | UtilityProcedures.h | 63 Object charPEx(VM* theVM, int argc, const Object* argv); 68 Object eqPEx(VM* theVM, int argc, const Object* argv); 69 Object eqvPEx(VM* theVM, int argc, const Object* argv); 76 Object pairPEx(VM* theVM, int argc, const Object* argv); 78 Object map10Ex(VM* theVM, int argc, const Object* argv); 82 Object evalEx(VM* theVM, int argc, const Object* argv); 85 Object modEx(VM* theVM, int argc, const Object* argv); 86 Object divEx(VM* theVM, int argc, const Object* argv); 87 Object exitEx(VM* theVM, int argc, const Object* argv); 90 Object loadEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | FFIProcedures.h | 39 Object internalFfiMallocEx(VM* theVM, int argc, const Object* argv); 40 Object internalFfiFreeEx(VM* theVM, int argc, const Object* argv); 43 Object internalFfiOpenEx(VM* theVM, int argc, const Object* argv); 44 Object internalFfiCallEx(VM* theVM, int argc, const Object* argv); 47 Object sharedErrnoEx(VM* theVM, int argc, const Object* argv); 49 Object pointerPEx(VM* theVM, int argc, const Object* argv); 50 Object pointerTointegerEx(VM* theVM, int argc, const Object* argv); 51 Object integerTopointerEx(VM* theVM, int argc, const Object* argv); 52 Object pointerSetCInt8DEx(VM* theVM, int argc, const Object* argv); 65 Object pointerSetCIntDEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | ByteVectorProcedures.h | 48 Object utf8TostringEx(VM* theVM, int argc, const Object* argv); 50 Object stringToutf8Ex(VM* theVM, int argc, const Object* argv); 51 Object utf32TostringEx(VM* theVM, int argc, const Object* argv); 52 Object utf16TostringEx(VM* theVM, int argc, const Object* argv); 53 Object stringToutf32Ex(VM* theVM, int argc, const Object* argv); 54 Object stringToutf16Ex(VM* theVM, int argc, const Object* argv); 61 Object bytevectorS64RefEx(VM* theVM, int argc, const Object* argv); 82 Object bytevectorS8RefEx(VM* theVM, int argc, const Object* argv); 85 Object bytevectorCopyEx(VM* theVM, int argc, const Object* argv); 88 Object bytevectorEqPEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | ListProcedures.h | 42 Object listEx(VM* theVM, int argc, const Object* argv); 46 Object caaarEx(VM* theVM, int argc, const Object* argv); 49 Object caadrEx(VM* theVM, int argc, const Object* argv); 50 Object caarEx(VM* theVM, int argc, const Object* argv); 53 Object cadarEx(VM* theVM, int argc, const Object* argv); 57 Object cadrEx(VM* theVM, int argc, const Object* argv); 64 Object cdarEx(VM* theVM, int argc, const Object* argv); 71 Object cddrEx(VM* theVM, int argc, const Object* argv); 74 Object consEx(VM* theVM, int argc, const Object* argv); 75 Object carEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | FlonumProcedures.h | 40 Object flexptEx(VM* theVM, int argc, const Object* argv); 41 Object flsqrtEx(VM* theVM, int argc, const Object* argv); 42 Object flatanEx(VM* theVM, int argc, const Object* argv); 43 Object flacosEx(VM* theVM, int argc, const Object* argv); 44 Object flasinEx(VM* theVM, int argc, const Object* argv); 45 Object fltanEx(VM* theVM, int argc, const Object* argv); 46 Object flcosEx(VM* theVM, int argc, const Object* argv); 47 Object flsinEx(VM* theVM, int argc, const Object* argv); 48 Object fllogEx(VM* theVM, int argc, const Object* argv); 49 Object flexpEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | MultiVMProcedures.h | 40 extern scheme::VM* theVM; 46 return theVM; in currentVM() 51 theVM = vm; in setCurrentVM() 55 Object whereisEx(VM* theVM, int argc, const Object* argv); 57 Object vmSelfEx(VM* theVM, int argc, const Object* argv); 58 Object mainVmPEx(VM* theVM, int argc, const Object* argv); 59 Object vmPEx(VM* theVM, int argc, const Object* argv); 60 Object makeVmEx(VM* theVM, int argc, const Object* argv); 64 Object vmEvalEx(VM* theVM, int argc, const Object* argv); 70 Object mutexPEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | FixnumProcedures.h | 39 Object fxEqPEx(VM* theVM, int argc, const Object* argv); 40 Object fxGtPEx(VM* theVM, int argc, const Object* argv); 41 Object fxLtPEx(VM* theVM, int argc, const Object* argv); 42 Object fxGePEx(VM* theVM, int argc, const Object* argv); 43 Object fxLePEx(VM* theVM, int argc, const Object* argv); 49 Object fxmaxEx(VM* theVM, int argc, const Object* argv); 50 Object fxminEx(VM* theVM, int argc, const Object* argv); 51 Object fxAddEx(VM* theVM, int argc, const Object* argv); 52 Object fxMulEx(VM* theVM, int argc, const Object* argv); 53 Object fxSubEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | CompilerProcedures.h | 47 Object printStackEx(VM* theVM, int argc, const Object* argv); 48 Object disasmEx(VM* theVM, int argc, const Object* argv); 49 Object labelEx(VM* theVM, int argc, const Object* argv); 50 Object localRefEx(VM* theVM, int argc, const Object* argv); 51 Object pass3FindFreeEx(VM* theVM, int argc, const Object* argv); 52 Object pass3FindSetsEx(VM* theVM, int argc, const Object* argv); 69 Object simpleStructPEx(VM* theVM, int argc, const Object* argv); 76 Object sameMarksMulPEx(VM* theVM, int argc, const Object* argv); 77 Object sameMarksPEx(VM* theVM, int argc, const Object* argv); 78 Object idTorealLabelEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | PortProcedures.cpp | 324 return callIOErrorAfter(theVM, ioError); in peekCharEx() 345 return callIOErrorAfter(theVM, ioError); in getDatumEx() 364 return callIOErrorAfter(theVM, ioError); in getStringAllEx() 662 FaslReader reader(theVM, inputPort); in faslReadEx() 711 theVM->unregisterPort(outPort); in closePortEx() 748 return theVM->currentErrorPort(); in currentErrorPortEx() 760 out->display(theVM, obj); in sysDisplayEx() 1640 theVM->registerPort(ret); in openFileOutputPortEx() 1644 theVM->registerPort(ret); in openFileOutputPortEx() 1732 return theVM->currentInputPort(); in currentInputPortEx() [all …]
|
H A D | SocketProcedures.h | 39 Object sslSupportedPEx(VM* theVM, int argc, const Object* argv); 40 Object sslSocketPEx(VM* theVM, int argc, const Object* argv); 41 Object socketSslizeDEx(VM* theVM, int argc, const Object* argv); 52 Object socketPortEx(VM* theVM, int argc, const Object* argv); 53 Object socketPEx(VM* theVM, int argc, const Object* argv); 54 Object socketAcceptEx(VM* theVM, int argc, const Object* argv); 57 Object socketRecvEx(VM* theVM, int argc, const Object* argv); 58 Object socketRecvDEx(VM* theVM, int argc, const Object* argv); 59 Object socketSendEx(VM* theVM, int argc, const Object* argv); 60 Object socketCloseEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | ByteVectorProcedures.cpp | 80 return nullTerminatedBytevectorTostringEx(theVM, 2, args); in nullTerminatedUtf8TostringEx() 83 Object scheme::utf8TostringEx(VM* theVM, int argc, const Object* argv) in utf8TostringEx() argument 91 return bytevectorTostringEx(theVM, 2, args); in utf8TostringEx() 94 Object scheme::stringToutf8Ex(VM* theVM, int argc, const Object* argv) in stringToutf8Ex() argument 102 return stringTobytevectorEx(theVM, 2, args); in stringToutf8Ex() 142 return callIOErrorAfter(theVM, ioError); in utf32TostringEx() 182 return callIOErrorAfter(theVM, ioError); 202 return stringTobytevectorEx(theVM, 2, args); 205 return stringTobytevectorEx(theVM, 2, args); 225 return stringTobytevectorEx(theVM, 2, args); [all …]
|
H A D | ListProcedures.cpp | 469 callAssertionViolationAfter(theVM, in vectorRefEx() 488 callAssertionViolationAfter(theVM, in vectorSetDEx() 1124 const Object sexp_map(VM* theVM, Object f, Object s); 1165 r = theVM->callClosure2(f, s, newdbg); in sexp_map_with_debug() 1177 return sexp_map_with_debug(theVM,dbg,f,s); in sexpMapDebugEx() 1181 Object sexp_map(VM* theVM, Object f, Object s) in sexp_map() argument 1188 r = Object::cons(sexp_map(theVM,f,s.car()), in sexp_map() 1189 sexp_map(theVM,f,s.cdr())); in sexp_map() 1191 r = sexp_map_for_vector(theVM,f,s); in sexp_map() 1193 r = theVM->callClosure1(f, s); in sexp_map() [all …]
|
H A D | HashTableProcedures.h | 41 Object hashtableKeysEx(VM* theVM, int argc, const Object* argv); 43 Object hashtableCopyEx(VM* theVM, int argc, const Object* argv); 47 Object hashtableSizeEx(VM* theVM, int argc, const Object* argv); 48 Object hashtablePEx(VM* theVM, int argc, const Object* argv); 49 Object makeHashtableEx(VM* theVM, int argc, const Object* argv); 52 Object hashtableRefEx(VM* theVM, int argc, const Object* argv); 56 Object eqvHashEx(VM* theVM, int argc, const Object* argv); 57 Object stringHashEx(VM* theVM, int argc, const Object* argv); 58 Object stringCiHashEx(VM* theVM, int argc, const Object* argv); 59 Object symbolHashEx(VM* theVM, int argc, const Object* argv); [all …]
|
H A D | MultiVMProcedures.cpp | 79 Object scheme::whereisEx(VM* theVM, int argc, const Object* argv) in whereisEx() argument 88 Object scheme::vmSelfEx(VM* theVM, int argc, const Object* argv) in vmSelfEx() argument 92 return Object::makeVM(theVM); in vmSelfEx() 100 return Object::makeBool(theVM->isMainThread()); in mainVmPEx() 105 Object scheme::vmPEx(VM* theVM, int argc, const Object* argv) in vmPEx() argument 162 VM::copyOptions(vm, theVM); in makeVmEx() 263 extern Object activateR6RSMode(VM* theVM, bool isDebugExpand); 312 return Object::makeVM(theVM); in vmSelfEx() 320 return Object::makeBool(theVM->isMainThread()); in mainVmPEx() 325 Object scheme::vmPEx(VM* theVM, int argc, const Object* argv) in vmPEx() argument [all …]
|
H A D | main.cpp | 68 VM* theVM; variable 70 static VM* theVM; variable 163 if (signo == SIGPROF && theVM != NULL) { in signal_handler() 164 theVM->collectProfile(); in signal_handler() 297 theVM = factory.create(INITIAL_STACK_SIZE, isProfilerOn); in main() 299 if (!setCurrentVM(theVM)) { in main() 326 theVM->loadFileWithGuard(UC("all-tests.scm")); in main() 340 theVM->setValueString(UC("%loadpath"), Object::False); in main() 347 activateR6RSMode(theVM, isDebugExpand); in main() 356 const Object result = theVM->getProfileResult(); in main() [all …]
|
H A D | ArithmeticProcedures.cpp | 285 Object div = integerDivEx(theVM, argc, argv); in integerDiv0Ex() 838 return remainderEx(theVM, 2, arguments); in moduloEx() 895 return moduloEx(theVM, 2, arguments); in moduloEx() 949 return moduloEx(theVM, 2, arguments); in moduloEx() 959 return moduloEx(theVM, 2, arguments); in moduloEx() 1001 return quotientEx(theVM, 2, arguments); in quotientEx() 1031 return quotientEx(theVM, 2, arguments); in quotientEx() 1059 return quotientEx(theVM, 2, arguments); in quotientEx() 1069 return quotientEx(theVM, 2, arguments); in quotientEx() 1110 return remainderEx(theVM, 2, arguments); in remainderEx() [all …]
|
H A D | SocketProcedures.cpp | 47 Object scheme::sslSupportedPEx(VM* theVM, int argc, const Object* argv) in sslSupportedPEx() argument 56 Object scheme::sslSocketPEx(VM* theVM, int argc, const Object* argv) in sslSocketPEx() argument 64 Object scheme::socketSslizeDEx(VM* theVM, int argc, const Object* argv) in socketSslizeDEx() argument 138 return theVM->values6( in internalMonapiMessageReceiveEx() 199 return theVM->values6( in internalMonapiMessageSendReceiveEx() 293 Object scheme::socketPortEx(VM* theVM, int argc, const Object* argv) in socketPortEx() argument 302 Object scheme::socketPEx(VM* theVM, int argc, const Object* argv) in socketPEx() argument 335 Object scheme::socketCloseEx(VM* theVM, int argc, const Object* argv) in socketCloseEx() argument 345 Object scheme::socketSendEx(VM* theVM, int argc, const Object* argv) in socketSendEx() argument 361 Object scheme::socketRecvDEx(VM* theVM, int argc, const Object* argv) in socketRecvDEx() argument [all …]
|
H A D | UtilityProcedures.cpp | 600 return theVM->vmapply(argv[0], argv[1]); in vmApplyEx() 625 return theVM->evalAfter(argv[0]); in evalEx() 646 return theVM->values(argc, argv); in valuesEx() 701 theVM->flushAllPorts(); in exitEx() 703 if (theVM->isMainThread()) { in exitEx() 741 theVM->loadFileUnsafe(path->data()); in loadEx() 924 return theVM->getClosureName(argv[0]); in internalGetClosureNameEx() 939 theVM->setValueSymbol(id, val); in setSymbolValueDEx() 949 return theVM->getGlobalValue(id); in symbolValueEx() 1043 return theVM->dynamicWinders(); in currentDynamicWindersEx() [all …]
|
H A D | FixnumProcedures.cpp | 47 Object scheme::fxEqPEx(VM* theVM, int argc, const Object* argv) in fxEqPEx() argument 63 Object scheme::fxGtPEx(VM* theVM, int argc, const Object* argv) in fxGtPEx() argument 79 Object scheme::fxLtPEx(VM* theVM, int argc, const Object* argv) in fxLtPEx() argument 95 Object scheme::fxGePEx(VM* theVM, int argc, const Object* argv) in fxGePEx() argument 111 Object scheme::fxLePEx(VM* theVM, int argc, const Object* argv) in fxLePEx() argument 167 Object scheme::fxmaxEx(VM* theVM, int argc, const Object* argv) in fxmaxEx() argument 181 Object scheme::fxminEx(VM* theVM, int argc, const Object* argv) in fxminEx() argument 195 Object scheme::fxAddEx(VM* theVM, int argc, const Object* argv) in fxAddEx() argument 212 Object scheme::fxMulEx(VM* theVM, int argc, const Object* argv) in fxMulEx() argument 229 Object scheme::fxSubEx(VM* theVM, int argc, const Object* argv) in fxSubEx() argument [all …]
|
H A D | ErrorProcedures.h | 88 Object callIOErrorAfter(VM* theVM, IOError e); 91 Object callIOReadErrorAfter(VM* theVM, Object who, Object message, Object port); 92 Object throwEx(VM* theVM, int argc, const Object* argv); 93 Object callIoFileNotExistAfter(VM* theVM, Object who, Object message, Object filename); 94 Object callLexicalAndIOReadAfter(VM* theVM, Object who, Object message); 95 Object callIoFileNameErrorAfter(VM* theVM, Object who, Object message, Object filename); 97 Object callUndefinedViolationAfter(VM* theVM, Object who, Object message); 108 Object callIoFileAlreadyExistAfter(VM* theVM, Object who, Object message, Object filname); 109 Object callIoFileProtectionAfter(VM* theVM, Object who, Object message, Object filename); 110 Object callIoFileReadOnlyAfter(VM* theVM, Object who, Object message, Object filename); [all …]
|
H A D | FlonumProcedures.cpp | 57 Object scheme::flexptEx(VM* theVM, int argc, const Object* argv) in flexptEx() argument 66 Object scheme::flsqrtEx(VM* theVM, int argc, const Object* argv) in flsqrtEx() argument 75 Object scheme::flatanEx(VM* theVM, int argc, const Object* argv) in flatanEx() argument 89 Object scheme::flacosEx(VM* theVM, int argc, const Object* argv) in flacosEx() argument 98 Object scheme::flasinEx(VM* theVM, int argc, const Object* argv) in flasinEx() argument 107 Object scheme::fltanEx(VM* theVM, int argc, const Object* argv) in fltanEx() argument 116 Object scheme::flcosEx(VM* theVM, int argc, const Object* argv) in flcosEx() argument 125 Object scheme::flsinEx(VM* theVM, int argc, const Object* argv) in flsinEx() argument 133 Object scheme::fllogEx(VM* theVM, int argc, const Object* argv) in fllogEx() argument 147 Object scheme::flexpEx(VM* theVM, int argc, const Object* argv) in flexpEx() argument [all …]
|
H A D | CompilerProcedures.cpp | 57 static Object findSets(VM* theVM, Object iform, Object lvars); 156 return findFree(theVM, argv[0], argv[1], argv[2]); in pass3FindFreeEx() 161 return findSets(theVM, argv[0], argv[1]); in pass3FindSetsEx() 374 Object findSets(VM* theVM, Object iform, Object lvars) in findSets() argument 493 return findSetsLabel(theVM, i, lvars, labelsSeen); in findSetsRec() 874 Object* code = theVM->disasm(closure); in disasmEx() 890 theVM->printStack(); in printStackEx() 940 return theVM->values3(cancel(m1Mul, m2Mul), in joinWrapsEx() 1097 i = sameMarksMulPEx(theVM, 3, as); in idTorealLabelEx() 1139 callAssertionViolationAfter(theVM, in simpleStructSetDEx() [all …]
|