(* ::Package:: *)

(* :Name: pc` *)
(* :Author: Hongzhe Zhou, Shanghai, 2023*)
(* :Version: 0.1 *)
(* :Summary:
    Needs this package automatically Needs the following:
      pcReadBasic, pcRead1D, pcRead2D,
      pcReadVAR, pcGetParam, pcPlot,
      pcTFM, pcParticleStalker,pcDerivative,
      pcPowercor, pcStreamLine, pcSub
*)


BeginPackage["pc`","pcUtils`",
  "pcReadBasic`","pcRead1D`","pcRead2D`","pcReadFFT`",
  "pcReadVAR`","pcGetParam`","pcPlot`","pcPlot3D`",
  "pcTFM`","pcParticleStalker`","pcDerivative`",
  "pcPowercor`","pcPowerSpec`","pcStreamLine`","pcSub`"
]


(* ::Chapter:: *)
(*Usage messages*)


pcInitialize::usage="pcInitialize[] is equivalent to (pcReload[];pcPlotStyle[]).";
pcParallelize::usage="pcParallelize[n] sets up the package for multiple kernels.
Input:
  n: Integer. Optional. Launches n subkernels. If not provided then launches all
     configured subkernels.
";

pcFunctions::usage="pcFunctions[] returns a list of all available functions in this package.
pcFunctions[str] returns those whose names contain the String str."


Begin["`Private`"]


(* ::Chapter:: *)
(*Functions*)


(* ::Section:: *)
(*One-click initialization*)


pcDirectory=$InputFileName//DirectoryName;
pcInitialize[]:=Module[{},
  pcReload[];pcPlotStyle[];
]
pcParallelize[n_|PatternSequence[]]:=With[{dir=pcDirectory},
  CloseKernels[];
  LaunchKernels[n]//Quiet;
  ParallelEvaluate[
    AppendTo[$Path,dir];
    Needs["pc`"];
    pcInitialize[]
  ];
]


(* ::Section:: *)
(*Extract all available functions*)


pcFunctions[]:=Cases[Names["pc*`*"],x_/;!StringContainsQ[x,"Private"]]
pcFunctions[str_String]:=Cases[pcFunctions[],_?(StringContainsQ[#,str]&)]


(* ::Chapter:: *)
(*End*)


End[]


Protect[
  pcInitialize,pcParallelize,
  pcFunctions
]


EndPackage[]