Listing creation

Functions
PROCEDURE	GetCharComment (VAR str_CharComment :TC255)
	Initialize a string with the character of begin of comment.
INTEGER FUNCTION	GetSynchroChannel (str_Line :TC255, int_NbPog :INTEGER) INTEGER
	Return the list of channels that must be synchronized.
BOOLEAN FUNCTION	IsBlockSynchro (str_Line :TC255, int_ListingMin, int_ListingMax :INTEGER, VAR real_Val :REAL) BOOLEAN
	Return true if the line contains a synchronization.
BOOLEAN FUNCTION	IsLineStartProg (str_Line :TC255) BOOLEAN
	Return true if the line is a start line of a program.
PROCEDURE	ListingSynchroCopy ()
	Save the listing file to Listing.txt file.
PROCEDURE	ListingSynchroCreate (VAR str_NcFile1, str_NcFile0 :TC255, int_NbCol, int_ListingMin, int_ListingMax :INTEGER)
	Write the listing file according with synchronizations.
PROCEDURE	ListingSynchroManage (int_NbCol, int_ListingMin, int_ListingMax :INTEGER)
	Procedure called to create the synchronization file.

Detailed Description

Function Documentation

GetCharComment()

PROCEDURE GetCharComment

(

VAR str_CharComment :TC255

)

Initialize a string with the character of begin of comment.

Parameters

[out]

str_CharComment

: character that start a comment

Attention

Must implemented in the Specific PostProcessor
For a Fanuc it should be initialized to (

GetCharComment(str_CharComment);

GetSynchroChannel()

INTEGER FUNCTION GetSynchroChannel	(	str_Line :TC255	,
		int_NbPog :INTEGER	)

Return the list of channels that must be synchronized.

Parameters

[in]	str_Line	: Line that contains the synchronization
[in]	int_NbProg	: Number of programs outputed

Returns

The list of synchronized channel each number define a channel
12 means channel 1 and 2
13 means channel 1 and 3

Attention

Must implemented in the Standard PostProcessor
This procedure will work until 9 channel due of the return format

strcpy(str_Line,'M500 P12');
int_Ret := GetSynchroChannel(str_Line,3);
writeln('The channel synchronized are : ',int_Ret);

IsBlockSynchro()

BOOLEAN FUNCTION IsBlockSynchro	(	str_Line :TC255	,
		int_ListingMin	,
		int_ListingMax :INTEGER	,
		VAR real_Val :REAL	)

Return true if the line contains a synchronization.

Parameters

[in]	str_Line	: line to check
[in]	int_ListingMin	: minimum number for the synchro
[in]	int_ListingMax	: maximum number for the synchro
[out]	real_Val	: number of the synchro read in the line

Returns

True if a synchro is read, false otherwise

Attention

Must implemented in the Standard PostProcessor

strcpy(str_Line, 'M500');
IF IsBlockSynchro(str_Line,500,600,real_Val) THEN
BEGIN
    writeln('A synchronization is present in the line with the number : ', real_Val);
END
ELSE
BEGIN
    writeln('There is no synchronization in the line');
*/

IsLineStartProg()

BOOLEAN FUNCTION IsLineStartProg

(

str_Line :TC255

)

Return true if the line is a start line of a program.

Parameters

[in]

str_Line

: Line to test

Returns

True if the line test is a start of program

Attention

Must implemented in the Specific PostProcessor

strcpy(str_Line,'O1000');
IF IsLineStartProg THEN
BEGIN
    writeln('The line is the start of a program');
END
ELSE
BEGIN
    writeln('The line is not the start of a program');
*/

ListingSynchroCopy()

PROCEDURE ListingSynchroCopy

(

)

Save the listing file to Listing.txt file.

ListingSynchroCopy

ListingSynchroCreate()

PROCEDURE ListingSynchroCreate	(	VAR	str_NcFile1,
		str_NcFile0 :TC255	,
		int_NbCol	,
		int_ListingMin	,
		int_ListingMax :INTEGER	)

Write the listing file according with synchronizations.

Parameters

[out]	str_NcFile1	: NC file contains all the generated files
[out]	str_NcFile0	: NC file contains the listing according with synchronizations
[in]	int_NbCol	: number of column for each channel. If is null the number of column is done in automatic
[in]	int_ListingMin	: minimum number for synchronization
[in]	int_ListingMax	: maximum number for synchronization

ListingSynchroCreate(str_NcFile1, str_NcFile0,40,500,600);

See also

ListingSynchroManage

ListingSynchroManage()

PROCEDURE ListingSynchroManage	(	int_NbCol	,
		int_ListingMin	,
		int_ListingMax :INTEGER	)

Procedure called to create the synchronization file.

If there more than one file, create a concatenate file with all and call ListingSynchroCreate

Parameters

[in]	int_NbCol	: maximum number of column for each channel. If is null an auto value is assumed
[in]	int_ListingMin	: minimum number for synchronizations
[in]	int_ListingMax	: maximum number for synchronizations

ListingSynchroManage(40,500,600);