diff options
author | Sunil Shetye | 2019-05-16 12:18:48 +0530 |
---|---|---|
committer | Sunil Shetye | 2019-05-29 11:08:01 +0530 |
commit | 26b77d7593b5ee0792b6b556f5569ea4227c2b02 (patch) | |
tree | 8f92052234b01bf39b9c3a6e3cb12b3962d96b1b /macros/ToolInitialization/ManageNextConversion.sci | |
parent | 5a73e6bec4a12db7afae9de300e39256f754d8d3 (diff) | |
download | scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.gz scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.bz2 scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.zip |
convert to unix format
Diffstat (limited to 'macros/ToolInitialization/ManageNextConversion.sci')
-rw-r--r-- | macros/ToolInitialization/ManageNextConversion.sci | 178 |
1 files changed, 89 insertions, 89 deletions
diff --git a/macros/ToolInitialization/ManageNextConversion.sci b/macros/ToolInitialization/ManageNextConversion.sci index b0d4337b..f4bdc71d 100644 --- a/macros/ToolInitialization/ManageNextConversion.sci +++ b/macros/ToolInitialization/ManageNextConversion.sci @@ -1,89 +1,89 @@ -function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile)
-// function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile)
-// -----------------------------------------------------------------
-// //NUT: add description here
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-//NUT: verifica se update e managenexconversion possono essere integrate in un'unica funzione.
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-// ---------------------
-// --- Load section. ---
-// ---------------------
-// --- Load File Info Structure. ---
-load(FileInfoDatFile,'FileInfo');
-
-// --- Load Shared Info Structure. ---
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-// --- Load ToBeConverted .dat file. ---
-load(FileInfo.FunctionList.ToBeConvertedDat,'ToBeConverted');
-// -------------------------
-// --- End load section. ---
-// -------------------------
-
-FlagContinueTranslation = 0;
-
-// ------------------------------------
-// --- Finalize the current C code. ---
-// ------------------------------------
-C_FinalizeCode(FileInfo,SharedInfo);
-//PrintStringInfo(' hello',ReportFileName,'file','y');
-
-
-// ------------------------------------------------
-// --- Identify the next function to translate. ---
-// ------------------------------------------------
-SharedInfo.NFilesToTranslate = SharedInfo.NFilesToTranslate - 1;
-
-if (SharedInfo.NFilesToTranslate >= 1)
- // Remove the translated C function from the ToBeConverted list
- ToBeConverted(1) = [];
- FlagContinueTranslation = 1;
- SharedInfo.NextSCIFunName = ToBeConverted(1).SCIFunctionName;
- SharedInfo.NextCFunName = ToBeConverted(1).CFunctionName;
- SharedInfo.NextSCIFunNumber = SharedInfo.NextSCIFunNumber + 1;
- [FlagFound,SharedInfo.NextSCIFileName] = ...
- SCI2CFindFile(FileInfo.UserSciFilesPaths,SharedInfo.NextSCIFunName+'.sci');
- if (FlagFound == 0)
- error(9999, 'Cannot find a scilab file to generate ""'+SharedInfo.NextCFunName+'"".');
- end
-end
-// ----------------------------------------------------
-// --- End Identify the next function to translate. ---
-// ----------------------------------------------------
-
-
-// ---------------------
-// --- Save section. ---
-// ---------------------
-// --- Save Shared Info Structure. ---
-save(FileInfo.SharedInfoDatFile, "SharedInfo");
-clear SharedInfo
-
-// --- Save ToBeConverted .dat file. ---
-save(FileInfo.FunctionList.ToBeConvertedDat, "ToBeConverted");
-clear ToBeConverted
-
-clear FileInfo
-// -------------------------
-// --- End Save section. ---
-// -------------------------
-
-endfunction
+function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile) +// function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile) +// ----------------------------------------------------------------- +// //NUT: add description here +// +// Input data: +// //NUT: add description here +// +// Output data: +// //NUT: add description here +// +// Status: +// 27-Oct-2007 -- Raffaele Nutricato: Author. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +//NUT: verifica se update e managenexconversion possono essere integrate in un'unica funzione. + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),1,1); + +// --------------------- +// --- Load section. --- +// --------------------- +// --- Load File Info Structure. --- +load(FileInfoDatFile,'FileInfo'); + +// --- Load Shared Info Structure. --- +load(FileInfo.SharedInfoDatFile,'SharedInfo'); + +// --- Load ToBeConverted .dat file. --- +load(FileInfo.FunctionList.ToBeConvertedDat,'ToBeConverted'); +// ------------------------- +// --- End load section. --- +// ------------------------- + +FlagContinueTranslation = 0; + +// ------------------------------------ +// --- Finalize the current C code. --- +// ------------------------------------ +C_FinalizeCode(FileInfo,SharedInfo); +//PrintStringInfo(' hello',ReportFileName,'file','y'); + + +// ------------------------------------------------ +// --- Identify the next function to translate. --- +// ------------------------------------------------ +SharedInfo.NFilesToTranslate = SharedInfo.NFilesToTranslate - 1; + +if (SharedInfo.NFilesToTranslate >= 1) + // Remove the translated C function from the ToBeConverted list + ToBeConverted(1) = []; + FlagContinueTranslation = 1; + SharedInfo.NextSCIFunName = ToBeConverted(1).SCIFunctionName; + SharedInfo.NextCFunName = ToBeConverted(1).CFunctionName; + SharedInfo.NextSCIFunNumber = SharedInfo.NextSCIFunNumber + 1; + [FlagFound,SharedInfo.NextSCIFileName] = ... + SCI2CFindFile(FileInfo.UserSciFilesPaths,SharedInfo.NextSCIFunName+'.sci'); + if (FlagFound == 0) + error(9999, 'Cannot find a scilab file to generate ""'+SharedInfo.NextCFunName+'"".'); + end +end +// ---------------------------------------------------- +// --- End Identify the next function to translate. --- +// ---------------------------------------------------- + + +// --------------------- +// --- Save section. --- +// --------------------- +// --- Save Shared Info Structure. --- +save(FileInfo.SharedInfoDatFile, "SharedInfo"); +clear SharedInfo + +// --- Save ToBeConverted .dat file. --- +save(FileInfo.FunctionList.ToBeConvertedDat, "ToBeConverted"); +clear ToBeConverted + +clear FileInfo +// ------------------------- +// --- End Save section. --- +// ------------------------- + +endfunction |