fix \n => \r\n in pascal files

SunSerega · Apr 22, 2024 · bb7ba8e · bb7ba8e
1 parent cc3e861
commit bb7ba8e
Show file tree

Hide file tree

Showing 14 changed files with 135 additions and 135 deletions.
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/01#Const/1.pas b/Tests/Exec/CLABC/02#Выполнение очередей/01#Const/1.pas
@@ -1,7 +1,7 @@
-## uses OpenCLABC;
-
-var C := CQ(5);
-
-CLContext.Default.SyncInvoke(
-  CombineConvAsyncQueue(a->a, |C,C.ThenConvert(x->x*x, false)|, false).Print
+## uses OpenCLABC;
+
+var C := CQ(5);
+
+CLContext.Default.SyncInvoke(
+  CombineConvAsyncQueue(a->a, |C,C.ThenConvert(x->x*x, false)|, false).Print
 ).Println;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/02#Parameter/1.pas b/Tests/Exec/CLABC/02#Выполнение очередей/02#Parameter/1.pas
@@ -1,7 +1,7 @@
-## uses OpenCLABC;
-
-var P := new ParameterQueue<integer>('P');
-
-CLContext.Default.SyncInvoke(
-  CombineConvAsyncQueue(a->a, |P,P.ThenConvert(x->x*x, false)|, false),
+## uses OpenCLABC;
+
+var P := new ParameterQueue<integer>('P');
+
+CLContext.Default.SyncInvoke(
+  CombineConvAsyncQueue(a->a, |P,P.ThenConvert(x->x*x, false)|, false),
 P.NewSetter(5)).Println;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/04#ThenConvert/ThenConvUse_ConstDelayedFunc.pas b/Tests/Exec/CLABC/02#Выполнение очередей/04#ThenConvert/ThenConvUse_ConstDelayedFunc.pas
@@ -1,26 +1,26 @@
-## uses OpenCLABC;
-
-procedure Test(q: CommandQueue<integer>);
-begin
-  q.Print;
-
-  ('-'*30).Println;
-  CLContext.Default.SyncInvoke(q
-    .ThenUse(x->Println(x))
-    .ThenConvert(x->(x*x).Println)
-    .ThenUse(x->Println(x))
-  );
-
-  ('-'*30).Println;
-  CLContext.Default.SyncInvoke(q
-    .ThenUse(x->Println(x), false)
-    .ThenConvert(x->(x*x).Println, false)
-    .ThenUse(x->Println(x+1), false)
-  );
-
-  ('='*30).Println;
-end;
-
-Test(2);
-Test(HFQ(()->3));
+## uses OpenCLABC;
+
+procedure Test(q: CommandQueue<integer>);
+begin
+  q.Print;
+
+  ('-'*30).Println;
+  CLContext.Default.SyncInvoke(q
+    .ThenUse(x->Println(x))
+    .ThenConvert(x->(x*x).Println)
+    .ThenUse(x->Println(x))
+  );
+
+  ('-'*30).Println;
+  CLContext.Default.SyncInvoke(q
+    .ThenUse(x->Println(x), false)
+    .ThenConvert(x->(x*x).Println, false)
+    .ThenUse(x->Println(x+1), false)
+  );
+
+  ('='*30).Println;
+end;
+
+Test(2);
+Test(HFQ(()->3));
 Test(HFQ(()->4 as object).Cast&<integer>);
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/discard single res.pas b/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/discard single res.pas
@@ -1,10 +1,10 @@
-## uses OpenCLABC;
-
-var Q := HFQ(()->123).Multiusable;
-CLContext.Default.SyncInvoke(
-  Q.DiscardResult
-//  CombineConvAsyncQueueN2((a,b)->(a,b), Q, Q, false)
-//    Q*Q
-//    Q.ThenUse(x->Println(x), false)*Q
-);//.Println;
+## uses OpenCLABC;
+
+var Q := HFQ(()->123).Multiusable;
+CLContext.Default.SyncInvoke(
+  Q.DiscardResult
+//  CombineConvAsyncQueueN2((a,b)->(a,b), Q, Q, false)
+//    Q*Q
+//    Q.ThenUse(x->Println(x), false)*Q
+);//.Println;
 //EventDebug.ReportEventLogs;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/prev mu check.pas b/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/prev mu check.pas
@@ -1,10 +1,10 @@
-## uses OpenCLABC;
-
-var wh := new System.Threading.ManualResetEventSlim(false);
-var Q := (HPQ(wh.Wait)+HFQ(()->123)).Multiusable;
-var t := CLContext.Default.BeginInvoke(
-  Q *
-  Q.ThenUse(x->Println(x))
-);
-wh.Set;
+## uses OpenCLABC;
+
+var wh := new System.Threading.ManualResetEventSlim(false);
+var Q := (HPQ(wh.Wait)+HFQ(()->123)).Multiusable;
+var t := CLContext.Default.BeginInvoke(
+  Q *
+  Q.ThenUse(x->Println(x))
+);
+wh.Set;
 t.Wait;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/~07#HostExec/Quick+MU.pas b/Tests/Exec/CLABC/02#Выполнение очередей/05#Multiusable/~07#HostExec/Quick+MU.pas
@@ -1,4 +1,4 @@
-## uses OpenCLABC;
-
-var Q := HFQ(()->(1).Println+1, false).Multiusable;
+## uses OpenCLABC;
+
+var Q := HFQ(()->(1).Println+1, false).Multiusable;
 CLContext.Default.SyncInvoke(CombineConvSyncQueue(a->a, |Q,Q|, false,true).Println).Println;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/enq cancel.pas b/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/enq cancel.pas
@@ -1,24 +1,24 @@
-## uses OpenCLABC;
-
-var a := new CLArray<integer>(1);
-var wh := new System.Threading.ManualResetEventSlim(false);
-CLContext.Default.SyncInvoke(
-  (
-    HPQ(()->
-    begin
-      wh.Wait;
-      $'HPQ+1'.Println;
-      raise new Exception('TestOK+1');
-    end) +
-    CQ(a)
-  ).MakeCCQ.ThenWriteValue(0, HFQ(()->
-  begin
-    Result := 0;
-    $'HFQ+2'.Println;
-    wh.Set;
-    raise new Exception('TestOK+2');
-  end))
-  .HandleWithoutRes(e->e.Message.Println <> nil)
-);
-a.Dispose;
+## uses OpenCLABC;
+
+var a := new CLArray<integer>(1);
+var wh := new System.Threading.ManualResetEventSlim(false);
+CLContext.Default.SyncInvoke(
+  (
+    HPQ(()->
+    begin
+      wh.Wait;
+      $'HPQ+1'.Println;
+      raise new Exception('TestOK+1');
+    end) +
+    CQ(a)
+  ).MakeCCQ.ThenWriteValue(0, HFQ(()->
+  begin
+    Result := 0;
+    $'HFQ+2'.Println;
+    wh.Set;
+    raise new Exception('TestOK+2');
+  end))
+  .HandleWithoutRes(e->e.Message.Println <> nil)
+);
+a.Dispose;
 $'Expect 3 evs: HPQ + HFQ + async enq'.Println;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/enq err storage.pas b/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/enq err storage.pas
@@ -1,11 +1,11 @@
-## uses OpenCLABC;
-
-var a := new CLArray<integer>(1);
-var wh := new System.Threading.ManualResetEventSlim(false);
-var t := CLContext.Default.BeginInvoke(
-  (HPQ(wh.Wait) + CQ(a)).MakeCCQ.ThenWriteArray(HFQ(()->nil as array of integer, false))
-  .HandleWithoutRes(e->TypeName(e).Println <> nil)
-);
-wh.Set;
-t.Wait;
+## uses OpenCLABC;
+
+var a := new CLArray<integer>(1);
+var wh := new System.Threading.ManualResetEventSlim(false);
+var t := CLContext.Default.BeginInvoke(
+  (HPQ(wh.Wait) + CQ(a)).MakeCCQ.ThenWriteArray(HFQ(()->nil as array of integer, false))
+  .HandleWithoutRes(e->TypeName(e).Println <> nil)
+);
+wh.Set;
+t.Wait;
 a.Dispose;
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/~00#Err/LazyQuickErr.pas b/Tests/Exec/CLABC/02#Выполнение очередей/07#GPUCommandContainer/~00#Err/LazyQuickErr.pas
@@ -1,9 +1,9 @@
-## uses OpenCLABC;
-
-CLContext.Default.SyncInvoke(
-  CLMemoryCCQ.Create(HFQ(()->new CLMemory(1))).ThenWriteArray1(HFQ(()->
-  begin
-    Result := new byte[0];
-    raise new Exception('TestOK');
-  end, false))
+## uses OpenCLABC;
+
+CLContext.Default.SyncInvoke(
+  CLMemoryCCQ.Create(HFQ(()->new CLMemory(1))).ThenWriteArray1(HFQ(()->
+  begin
+    Result := new byte[0];
+    raise new Exception('TestOK');
+  end, false))
 );
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/insta err.pas b/Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/insta err.pas
@@ -1,8 +1,8 @@
-## uses OpenCLABC;
-
-CLContext.Default.SyncInvoke(
-  (
-    HPQ(()->raise new Exception('TestOK'), need_own_thread:=false) +
-    HPQ(()->raise new Exception('TestError'), need_own_thread:=false)
-  ).HandleWithoutRes(e->e.Message.Println <> nil)
+## uses OpenCLABC;
+
+CLContext.Default.SyncInvoke(
+  (
+    HPQ(()->raise new Exception('TestOK'), need_own_thread:=false) +
+    HPQ(()->raise new Exception('TestError'), need_own_thread:=false)
+  ).HandleWithoutRes(e->e.Message.Println <> nil)
 );
diff --git a/Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~05#Wait/QuickUse.ThenWait.pas b/Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~05#Wait/QuickUse.ThenWait.pas
@@ -1,18 +1,18 @@
-## uses OpenCLABC;
-
-var M := WaitMarker.Create;
-
-var mre := new System.Threading.ManualResetEventSlim(false);
-CLContext.Default.SyncInvoke(
-  HPQ(()->
-  begin
-    mre.Wait;
-    'M'.Println;
-    M.SendSignal;
-  end) *
-  HFQ(()->5).ThenUse(x->
-  begin
-    $'/\{x}/\'.Println;
-    mre.Set;
-  end, false).ThenWaitFor(M)
+## uses OpenCLABC;
+
+var M := WaitMarker.Create;
+
+var mre := new System.Threading.ManualResetEventSlim(false);
+CLContext.Default.SyncInvoke(
+  HPQ(()->
+  begin
+    mre.Wait;
+    'M'.Println;
+    M.SendSignal;
+  end) *
+  HFQ(()->5).ThenUse(x->
+  begin
+    $'/\{x}/\'.Println;
+    mre.Set;
+  end, false).ThenWaitFor(M)
 ).Println;
diff --git a/Tests/Exec/CLABC/03#ToString/02#Parameter/1.pas b/Tests/Exec/CLABC/03#ToString/02#Parameter/1.pas
@@ -1,4 +1,4 @@
-## uses OpenCLABC;
-
-Write(new ParameterQueue<byte>('P1', 1));
+## uses OpenCLABC;
+
+Write(new ParameterQueue<byte>('P1', 1));
 Write(new ParameterQueue<object>('P2', 2));
diff --git a/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.pas b/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.pas
@@ -1,3 +1,3 @@
-## uses OpenCLABC;
-
+## uses OpenCLABC;
+
 HPQ(()->begin end).Cast&<Exception>.Print;
diff --git a/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.pas b/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.pas
@@ -1,8 +1,8 @@
-## uses OpenCLABC;
-
-var Q := HFQ(()->1);
-
-(Q >= Q).Println;
-Q.HandleWithoutRes(e->true).Println;
-Q.HandleDefaultRes(e->true, 2).Println;
+## uses OpenCLABC;
+
+var Q := HFQ(()->1);
+
+(Q >= Q).Println;
+Q.HandleWithoutRes(e->true).Println;
+Q.HandleDefaultRes(e->true, 2).Println;
 Q.HandleReplaceRes(lst->3).Println;