Hi Erich, I think I do not use the correct editor with KATE for my .ini file, it is too silly for me. I attach to you my last 2 test-files. I think you can tell me what I have to do. Greetings Franz
Am Do., 18. Mai 2023 um 15:10 Uhr schrieb Erich Steinböck < [email protected]>: > Hi Franz, > your address "" "rexxc" works in your MyRexxComp.rex and prints: > all went well with: MyRexxComp.rex , MyRexxComp.cmp.rex has been created > > Please provide a piece of failing code and the exact error message you're > seeing. > Note that on Linux (in contrast to Windows) the case of filenames is > significant. > _______________________________________________ > Oorexx-devel mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/oorexx-devel >
fmarx@localhost:~/Schreibtisch/FMarx ooRexx> rexx MyRexxComp.rex
6 *-* Say "MyRexxComp (V3.3) starts" time()
>L> "MyRexxComp (V3.3) starts"
>F> TIME => "17:30:11"
>O> " " => "MyRexxComp (V3.3) starts 17:30:11"
>>> "MyRexxComp (V3.3) starts 17:30:11"
MyRexxComp (V3.3) starts 17:30:11
7 *-* myfile = "MyRexxComp.ini"
>L> "MyRexxComp.ini"
>>> "MyRexxComp.ini"
>=> MYFILE <= "MyRexxComp.ini"
9 *-* MyCode = STREAM(myfile,"C","OPEN READ")
>V> MYFILE => "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>L> "C"
>A> "C"
>L> "OPEN READ"
>A> "OPEN READ"
>F> STREAM => "READY:"
>>> "READY:"
>=> MYCODE <= "READY:"
10 *-* IF Mycode \= "READY:"
>V> MYCODE => "READY:"
>L> "READY:"
>O> "\=" => "0"
>>> "0"
16 *-* N=LINES(myfile,COUNT)
>V> MYFILE => "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>V> COUNT => "COUNT"
>A> "COUNT"
>F> LINES => "9"
>>> "9"
>=> N <= "9"
17 *-* DO I=1 TO N
>L> "1"
>V> N => "9"
>K> "TO" => "9"
>=> I <= "1"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN =>
"/*'*****************************************************************************************************************************************/"
>K> "VALUE" =>
"/*'*****************************************************************************************************************************************/"
>>>
"/*'*****************************************************************************************************************************************/"
>=> REXXFILE1 <=
"/*'*****************************************************************************************************************************************/"
>.> ""
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/"
>A>
"/*'*****************************************************************************************************************************************/"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "��"
>L> "/*"
>O> "==" => "0"
>>> "0"
20 *-* if rexxFile1 = ""
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/"
>L> ""
>O> "=" => "0"
>>> "0"
21 *-* rexxFile2=rexxFile1||".cmp.rex"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/"
>L> ".cmp.rex"
>O> "||" =>
"/*'*****************************************************************************************************************************************/.cmp.rex"
>>>
"/*'*****************************************************************************************************************************************/.cmp.rex"
>=> REXXFILE2 <=
"/*'*****************************************************************************************************************************************/.cmp.rex"
22 *-* rexxFile1=rexxFile1||".rex"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/"
>L> ".rex"
>O> "||" =>
"/*'*****************************************************************************************************************************************/.rex"
>>>
"/*'*****************************************************************************************************************************************/.rex"
>=> REXXFILE1 <=
"/*'*****************************************************************************************************************************************/.rex"
23 *-* address "" "rexxc" rexxFile1 rexxFile2 "-s"
>L> "rexxc"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/.rex"
>O> " " => "rexxc
/*'*****************************************************************************************************************************************/.rex"
>V> REXXFILE2 =>
"/*'*****************************************************************************************************************************************/.cmp.rex"
>O> " " => "rexxc
/*'*****************************************************************************************************************************************/.rex
/*'*****************************************************************************************************************************************/.cmp.rex"
>L> "-s"
>O> " " => "rexxc
/*'*****************************************************************************************************************************************/.rex
/*'*****************************************************************************************************************************************/.cmp.rex
-s"
>>> "rexxc
/*'*****************************************************************************************************************************************/.rex
/*'*****************************************************************************************************************************************/.cmp.rex
-s"
Error 3: Failure during initialization.
Error 3.901: Failure during initialization: Program
"/******************************************************************************************************************************************/.rex
/******************************************************************************************************************************************/.cmp.rex"
was not found.
+++ "RC(253)"
24 *-* if rc=0
>V> RC => "253"
>L> "0"
>O> "=" => "0"
>>> "0"
25 *-* else
25 *-* say "problem! rc="rc", please check:" rexxFile1
>L> "problem! rc="
>V> RC => "253"
>O> "" => "problem! rc=253"
>L> ", please check:"
>O> "" => "problem! rc=253, please check:"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/.rex"
>O> " " => "problem! rc=253, please check:
/*'*****************************************************************************************************************************************/.rex"
>>> "problem! rc=253, please check:
/*'*****************************************************************************************************************************************/.rex"
problem! rc=253, please check:
/*'*****************************************************************************************************************************************/.rex
26 *-* End
17 *-* DO I=1 TO N
>V> I => "1"
>=> I <= "2"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => "/* MyRexxComp.ini has to contain all the names of
my Rexx-Program 1.) to check out and if ok -> 2. create a compiled Rexx with
*.cmp.rex */"
>K> "VALUE" => "/* MyRexxComp.ini has to contain all the names of
my Rexx-Program 1.) to check out and if ok -> 2. create a compiled Rexx with
*.cmp.rex */"
>>> "/* MyRexxComp.ini has to contain all the names of my
Rexx-Program 1.) to check out and if ok -> 2. create a compiled Rexx with
*.cmp.rex */"
>=> REXXFILE1 <= "/*"
>.> " MyRexxComp.ini has to contain all the names of my
Rexx-Program 1.) to check out and if ok -> 2. create a compiled Rexx with
*.cmp.rex */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "/*"
>A> "/*"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "2"
>=> I <= "3"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN =>
"/*'*****************************************************************************************************************************************/"
>K> "VALUE" =>
"/*'*****************************************************************************************************************************************/"
>>>
"/*'*****************************************************************************************************************************************/"
>=> REXXFILE1 <=
"/*'*****************************************************************************************************************************************/"
>.> ""
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 =>
"/*'*****************************************************************************************************************************************/"
>A>
"/*'*****************************************************************************************************************************************/"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "3"
>=> I <= "4"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => " MyRexxComp /* Rexx-Programm to analyze and
compile */"
>K> "VALUE" => " MyRexxComp /* Rexx-Programm to analyze
and compile */"
>>> " MyRexxComp /* Rexx-Programm to analyze and compile
*/"
>=> REXXFILE1 <= "MyRexxComp"
>.> " /* Rexx-Programm to analyze and compile */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "MyRexxComp"
>A> "MyRexxComp"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "My"
>L> "/*"
>O> "==" => "0"
>>> "0"
20 *-* if rexxFile1 = ""
>V> REXXFILE1 => "MyRexxComp"
>L> ""
>O> "=" => "0"
>>> "0"
21 *-* rexxFile2=rexxFile1||".cmp.rex"
>V> REXXFILE1 => "MyRexxComp"
>L> ".cmp.rex"
>O> "||" => "MyRexxComp.cmp.rex"
>>> "MyRexxComp.cmp.rex"
>=> REXXFILE2 <= "MyRexxComp.cmp.rex"
22 *-* rexxFile1=rexxFile1||".rex"
>V> REXXFILE1 => "MyRexxComp"
>L> ".rex"
>O> "||" => "MyRexxComp.rex"
>>> "MyRexxComp.rex"
>=> REXXFILE1 <= "MyRexxComp.rex"
23 *-* address "" "rexxc" rexxFile1 rexxFile2 "-s"
>L> "rexxc"
>V> REXXFILE1 => "MyRexxComp.rex"
>O> " " => "rexxc MyRexxComp.rex"
>V> REXXFILE2 => "MyRexxComp.cmp.rex"
>O> " " => "rexxc MyRexxComp.rex MyRexxComp.cmp.rex"
>L> "-s"
>O> " " => "rexxc MyRexxComp.rex MyRexxComp.cmp.rex -s"
>>> "rexxc MyRexxComp.rex MyRexxComp.cmp.rex -s"
24 *-* if rc=0
>V> RC => "0"
>L> "0"
>O> "=" => "1"
>>> "1"
24 *-* then
24 *-* say "all went well with:" rexxFile1 "," rexxFile2 "has been
created"
>L> "all went well with:"
>V> REXXFILE1 => "MyRexxComp.rex"
>O> " " => "all went well with: MyRexxComp.rex"
>L> ","
>O> " " => "all went well with: MyRexxComp.rex ,"
>V> REXXFILE2 => "MyRexxComp.cmp.rex"
>O> " " => "all went well with: MyRexxComp.rex ,
MyRexxComp.cmp.rex"
>L> "has been created"
>O> " " => "all went well with: MyRexxComp.rex ,
MyRexxComp.cmp.rex has been created"
>>> "all went well with: MyRexxComp.rex , MyRexxComp.cmp.rex has
been created"
all went well with: MyRexxComp.rex , MyRexxComp.cmp.rex has been created
26 *-* End
17 *-* DO I=1 TO N
>V> I => "4"
>=> I <= "5"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => " PrimeV39 /* Rexx-Programm to analyze and
compile */"
>K> "VALUE" => " PrimeV39 /* Rexx-Programm to analyze
and compile */"
>>> " PrimeV39 /* Rexx-Programm to analyze and compile
*/"
>=> REXXFILE1 <= "PrimeV39"
>.> " /* Rexx-Programm to analyze and compile */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "PrimeV39"
>A> "PrimeV39"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "Pr"
>L> "/*"
>O> "==" => "0"
>>> "0"
20 *-* if rexxFile1 = ""
>V> REXXFILE1 => "PrimeV39"
>L> ""
>O> "=" => "0"
>>> "0"
21 *-* rexxFile2=rexxFile1||".cmp.rex"
>V> REXXFILE1 => "PrimeV39"
>L> ".cmp.rex"
>O> "||" => "PrimeV39.cmp.rex"
>>> "PrimeV39.cmp.rex"
>=> REXXFILE2 <= "PrimeV39.cmp.rex"
22 *-* rexxFile1=rexxFile1||".rex"
>V> REXXFILE1 => "PrimeV39"
>L> ".rex"
>O> "||" => "PrimeV39.rex"
>>> "PrimeV39.rex"
>=> REXXFILE1 <= "PrimeV39.rex"
23 *-* address "" "rexxc" rexxFile1 rexxFile2 "-s"
>L> "rexxc"
>V> REXXFILE1 => "PrimeV39.rex"
>O> " " => "rexxc PrimeV39.rex"
>V> REXXFILE2 => "PrimeV39.cmp.rex"
>O> " " => "rexxc PrimeV39.rex PrimeV39.cmp.rex"
>L> "-s"
>O> " " => "rexxc PrimeV39.rex PrimeV39.cmp.rex -s"
>>> "rexxc PrimeV39.rex PrimeV39.cmp.rex -s"
24 *-* if rc=0
>V> RC => "0"
>L> "0"
>O> "=" => "1"
>>> "1"
24 *-* then
24 *-* say "all went well with:" rexxFile1 "," rexxFile2 "has been
created"
>L> "all went well with:"
>V> REXXFILE1 => "PrimeV39.rex"
>O> " " => "all went well with: PrimeV39.rex"
>L> ","
>O> " " => "all went well with: PrimeV39.rex ,"
>V> REXXFILE2 => "PrimeV39.cmp.rex"
>O> " " => "all went well with: PrimeV39.rex , PrimeV39.cmp.rex"
>L> "has been created"
>O> " " => "all went well with: PrimeV39.rex , PrimeV39.cmp.rex
has been created"
>>> "all went well with: PrimeV39.rex , PrimeV39.cmp.rex has
been created"
all went well with: PrimeV39.rex , PrimeV39.cmp.rex has been created
26 *-* End
17 *-* DO I=1 TO N
>V> I => "5"
>=> I <= "6"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => "/* Test1 */ /* Rexx-Programm to analyze and
compile */"
>K> "VALUE" => "/* Test1 */ /* Rexx-Programm to analyze
and compile */"
>>> "/* Test1 */ /* Rexx-Programm to analyze and compile
*/"
>=> REXXFILE1 <= "/*"
>.> " Test1 */ /* Rexx-Programm to analyze and compile */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "/*"
>A> "/*"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "6"
>=> I <= "7"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => "/* Test2 */ /* Rexx-Programm to analyze and
compile */"
>K> "VALUE" => "/* Test2 */ /* Rexx-Programm to analyze
and compile */"
>>> "/* Test2 */ /* Rexx-Programm to analyze and compile
*/"
>=> REXXFILE1 <= "/*"
>.> " Test2 */ /* Rexx-Programm to analyze and compile */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "/*"
>A> "/*"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "7"
>=> I <= "8"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => "/* Test4 */ /* Rexx-Programm to analyze and
compile */"
>K> "VALUE" => "/* Test4 */ /* Rexx-Programm to analyze
and compile */"
>>> "/* Test4 */ /* Rexx-Programm to analyze and compile
*/"
>=> REXXFILE1 <= "/*"
>.> " Test4 */ /* Rexx-Programm to analyze and compile */"
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "/*"
>A> "/*"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "8"
>=> I <= "9"
18 *-* Parse VALUE LINEIN("MyRexxComp.ini") with rexxFile1 .
>L> "MyRexxComp.ini"
>A> "MyRexxComp.ini"
>F> LINEIN => "/* Lotto3 */ /* Rexx-Programm to analyze and
compile */ "
>K> "VALUE" => "/* Lotto3 */ /* Rexx-Programm to analyze
and compile */ "
>>> "/* Lotto3 */ /* Rexx-Programm to analyze and compile
*/ "
>=> REXXFILE1 <= "/*"
>.> " Lotto3 */ /* Rexx-Programm to analyze and compile */ "
19 *-* if substr(rexxFile1,1,2) == "/*"
>V> REXXFILE1 => "/*"
>A> "/*"
>L> "1"
>A> "1"
>L> "2"
>A> "2"
>F> SUBSTR => "/*"
>L> "/*"
>O> "==" => "1"
>>> "1"
19 *-* then
19 *-* iterate /* line begins with comment */
17 *-* DO I=1 TO N
>V> I => "9"
>=> I <= "10"
28 *-* Address Command "sleep 10"
>L> "sleep 10"
>>> "sleep 10"
29 *-* exit
MyRexxComp.rex
Description: Binary data
MyRexxComp.ini
Description: Binary data
_______________________________________________ Oorexx-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/oorexx-devel
