Skip to main content

Handling Kernel start. What is a full initialization stack and what place the Autoload has there?


According to: tutorial/WolframSystemSessions



Initialization


On startup, the Wolfram Language kernel does the following:




  • Performs license management operations.





  • Runs Wolfram Language commands specified in any -run options passed to the kernel executable.




  • Runs the Wolfram Language commands in the systemwide initialization file $BaseDirectory/Kernel/init.m.




  • Runs the Wolfram Language commands in the user-specific initialization file $UserBaseDirectory/Kernel/init.m.




  • Loads init.m and Kernel/init.m files in Autoload directories.





  • Begins running the main loop.





So I'd say that packages in Autoload have a freedom to do everything since everything should be already loaded. Yet this example fails:


dir = FileNameJoin[{$UserBaseDirectory, "Autoload", "Fetch", "Kernel"}];

CreateDirectory[dir, CreateIntermediateDirectories -> True]


SetDirectory @ dir;

Export[
"init.m",
"Print @ StringTake[URLFetch[\"www.wolfram.com\"], 300]; ",
"Text"]

Now quit the Kernel and evaluate something. I only get messages:




URLFetch::invhttp: Couldn't resolve proxy name.


StringTake[$Failed, 300]


Throw::nocatch: Uncaught Throw[False] returned to top level.


Throw::nocatch: Uncaught Throw[False] returned to top level.


Throw::nocatch: Uncaught Throw[False] returned to top level.


General::stop: Further output of Throw::nocatch will be suppressed during this calculation.


Break::nofwd: No enclosing For, While, or Do found for Break[].



While normally this procedure works StringTake[URLFetch["www.wolfram.com"], 300].


Question What's the problem? What more do we need to know about the Initialization stack? Are there any workarounds?



Currently I'm just setting procedure via ScheduledTask to fire 2 seconds later. But that's just silly.


This is not a question about URLFetch (yet good to know this specific problem) but about things I have to know to not be surprised next time.



Answer



Update


Leaving my original answer below for historical purposes, however it only applies up until version 11.1.1.


As of version 11.2.0, the kernel startup initialization has been overhauled and this example (as well as others) now works correctly: placing the URLFetch call in init.m does result in an output like












Persistence & Initialization framework, and I recommend Roman Maeder's presentation from the 2017 Wolfram Technology Conference.




To make my comment into an answer,




The basic problem, which is not so easy to fix, is that the kernel initialization code has protection against aborts. Since Throw/Catch are implemented internally using this (C code level) abort machinery, they are not functional during initialization, so running any code using them is problematic.



The URLFetch implementation does depend on Catch working correctly, as can be seen from


TracePrint[URLFetch["www.wolfram.com"], _Catch]

Some related questions are the following: (1), (2), (3), (4).


Comments

Popular posts from this blog

mathematical optimization - Minimizing using indices, error: Part::pkspec1: The expression cannot be used as a part specification

I want to use Minimize where the variables to minimize are indices pointing into an array. Here a MWE that hopefully shows what my problem is. vars = u@# & /@ Range[3]; cons = Flatten@ { Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; Minimize[{Total@((vec1[[#]] - vec2[[u[#]]])^2 & /@ Range[1, 3]), cons}, vars, Integers] The error I get: Part::pkspec1: The expression u[1] cannot be used as a part specification. >> Answer Ok, it seems that one can get around Mathematica trying to evaluate vec2[[u[1]]] too early by using the function Indexed[vec2,u[1]] . The working MWE would then look like the following: vars = u@# & /@ Range[3]; cons = Flatten@{ Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; NMinimize[ {Total@((vec1[[#]] - Indexed[vec2, u[#]])^2 & /@ R...

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]