From 26b77d7593b5ee0792b6b556f5569ea4227c2b02 Mon Sep 17 00:00:00 2001 From: Sunil Shetye Date: Thu, 16 May 2019 12:18:48 +0530 Subject: convert to unix format --- macros/ToolInitialization/INIT_LoadLibraries.sci | 128 +++++++++++------------ 1 file changed, 64 insertions(+), 64 deletions(-) (limited to 'macros/ToolInitialization/INIT_LoadLibraries.sci') diff --git a/macros/ToolInitialization/INIT_LoadLibraries.sci b/macros/ToolInitialization/INIT_LoadLibraries.sci index 28eb34f5..0ebabc48 100644 --- a/macros/ToolInitialization/INIT_LoadLibraries.sci +++ b/macros/ToolInitialization/INIT_LoadLibraries.sci @@ -1,64 +1,64 @@ -function INIT_LoadLibraries(FileInfoDatFile) -// function INIT_LoadLibraries(FileInfoDatFile) -// ----------------------------------------------------------------- -// This function loads the SCI2C and USER libraries. -// -// Input data: -// FileInfoDatFile: name of the .dat file containing the FileInfo structure. -// -// Output data: -// --- -// -// Status: -// 12-Jun-2007 -- Raffaele Nutricato: Author. -// 03-Jan-2008 -- Raffaele Nutricato: Changed directory structure. -// -// Copyright 2007 Raffaele Nutricato. -// Contact: raffaele.nutricato@tiscali.it -// ----------------------------------------------------------------- - -// ------------------------------ -// --- Check input arguments. --- -// ------------------------------ -SCI2CNInArgCheck(argn(2),1,1); - -// ----------------------- -// --- Initialization. --- -// ----------------------- -// --- Load File Info Structure. --- -clear FileInfo -load(FileInfoDatFile,'FileInfo'); - -// --- Load Shared Info Structure. --- -clear SharedInfo -load(FileInfo.SharedInfoDatFile,'SharedInfo'); -PrintStepInfo('Load SCI2C and USER2C Libraries.',FileInfo.GeneralReport,'both'); -// --------------------------- -// --- End Initialization. --- -// --------------------------- - -// ---------------------------------- -// --- Initialize Function Lists. --- -// ---------------------------------- -SCI2CAvailableC = []; -USER2CAvailableC = []; -Converted = []; -ToBeConverted(1).SCIFunctionName = SharedInfo.NextSCIFunName; -ToBeConverted(1).CFunctionName = SharedInfo.NextCFunName; - -// --- Read the list of library functions available. --- -[SCI2CAvailableC,SCI2CNElem] = FL_ExtractFuncList(FileInfo.SCI2CLibCFLFun,FileInfo.SCI2CLibCFLCls,... - SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport); -//disp (SCI2CAvailable); -[USER2CAvailableC,USER2CNElem] = FL_ExtractFuncList(FileInfo.USER2CLibCFLFun,FileInfo.USER2CLibCFLCls,... - SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport); - -// --- Save .dat files. --- -Available = SCI2CAvailableC; -save(FileInfo.FunctionList.SCI2CAvailableCDat, "Available"); -Available = USER2CAvailableC; -save(FileInfo.FunctionList.USER2CAvailableCDat, "Available"); -save(FileInfo.FunctionList.ConvertedDat, "Converted"); -save(FileInfo.FunctionList.ToBeConvertedDat, "ToBeConverted"); - -endfunction +function INIT_LoadLibraries(FileInfoDatFile) +// function INIT_LoadLibraries(FileInfoDatFile) +// ----------------------------------------------------------------- +// This function loads the SCI2C and USER libraries. +// +// Input data: +// FileInfoDatFile: name of the .dat file containing the FileInfo structure. +// +// Output data: +// --- +// +// Status: +// 12-Jun-2007 -- Raffaele Nutricato: Author. +// 03-Jan-2008 -- Raffaele Nutricato: Changed directory structure. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),1,1); + +// ----------------------- +// --- Initialization. --- +// ----------------------- +// --- Load File Info Structure. --- +clear FileInfo +load(FileInfoDatFile,'FileInfo'); + +// --- Load Shared Info Structure. --- +clear SharedInfo +load(FileInfo.SharedInfoDatFile,'SharedInfo'); +PrintStepInfo('Load SCI2C and USER2C Libraries.',FileInfo.GeneralReport,'both'); +// --------------------------- +// --- End Initialization. --- +// --------------------------- + +// ---------------------------------- +// --- Initialize Function Lists. --- +// ---------------------------------- +SCI2CAvailableC = []; +USER2CAvailableC = []; +Converted = []; +ToBeConverted(1).SCIFunctionName = SharedInfo.NextSCIFunName; +ToBeConverted(1).CFunctionName = SharedInfo.NextCFunName; + +// --- Read the list of library functions available. --- +[SCI2CAvailableC,SCI2CNElem] = FL_ExtractFuncList(FileInfo.SCI2CLibCFLFun,FileInfo.SCI2CLibCFLCls,... + SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport); +//disp (SCI2CAvailable); +[USER2CAvailableC,USER2CNElem] = FL_ExtractFuncList(FileInfo.USER2CLibCFLFun,FileInfo.USER2CLibCFLCls,... + SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport); + +// --- Save .dat files. --- +Available = SCI2CAvailableC; +save(FileInfo.FunctionList.SCI2CAvailableCDat, "Available"); +Available = USER2CAvailableC; +save(FileInfo.FunctionList.USER2CAvailableCDat, "Available"); +save(FileInfo.FunctionList.ConvertedDat, "Converted"); +save(FileInfo.FunctionList.ToBeConvertedDat, "ToBeConverted"); + +endfunction -- cgit