← Back to branch summary

~ubuntu-branches/ubuntu/utopic/castle-game-engine/utopic

« back to all changes in this revision

Viewing changes to src/castlescript/castlescriptcorefunctions.pas

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2013-04-27 18:06:40 UTC
  • Revision ID: package-import@ubuntu.com-20130427180640-eink4nmwzuivez1c
Tags: upstream-4.0.1
Import upstream version 4.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/castlescript/castlescriptcorefunctions.pas
 
1
{
 
2
  Copyright 2001-2013 Michalis Kamburelis.
 
3
 
 
4
  This file is part of "Castle Game Engine".
 
5
 
 
6
  "Castle Game Engine" is free software; see the file COPYING.txt,
 
7
  included in this distribution, for details about the copyright.
 
8
 
 
9
  "Castle Game Engine" is distributed in the hope that it will be useful,
 
10
  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
12
 
 
13
  ----------------------------------------------------------------------------
 
14
}
 
15
 
 
16
{ CastleScript built-in simple functions on four "core" types. }
 
17
unit CastleScriptCoreFunctions;
 
18
 
 
19
interface
 
20
 
 
21
uses CastleScript;
 
22
 
 
23
type
 
24
  TCasScriptAdd = class(TCasScriptFunction)
 
25
  public
 
26
    class function Name: string; override;
 
27
    class function ShortName: string; override;
 
28
    class function InfixOperatorName: string; override;
 
29
  end;
 
30
 
 
31
  TCasScriptSubtract = class(TCasScriptFunction)
 
32
  public
 
33
    class function Name: string; override;
 
34
    class function ShortName: string; override;
 
35
    class function InfixOperatorName: string; override;
 
36
  end;
 
37
 
 
38
  TCasScriptMultiply = class(TCasScriptFunction)
 
39
  public
 
40
    class function Name: string; override;
 
41
    class function ShortName: string; override;
 
42
    class function InfixOperatorName: string; override;
 
43
  end;
 
44
 
 
45
  TCasScriptDivide = class(TCasScriptFunction)
 
46
  public
 
47
    class function Name: string; override;
 
48
    class function ShortName: string; override;
 
49
    class function InfixOperatorName: string; override;
 
50
  end;
 
51
 
 
52
  TCasScriptNegate = class(TCasScriptFunction)
 
53
  public
 
54
    class function Name: string; override;
 
55
    class function ShortName: string; override;
 
56
  end;
 
57
 
 
58
  TCasScriptModulo = class(TCasScriptFunction)
 
59
  public
 
60
    class function Name: string; override;
 
61
    class function ShortName: string; override;
 
62
    class function InfixOperatorName: string; override;
 
63
  end;
 
64
 
 
65
  TCasScriptSin = class(TCasScriptFunction)
 
66
  public
 
67
    class function Name: string; override;
 
68
    class function ShortName: string; override;
 
69
  end;
 
70
 
 
71
  TCasScriptCos = class(TCasScriptFunction)
 
72
  public
 
73
    class function Name: string; override;
 
74
    class function ShortName: string; override;
 
75
  end;
 
76
 
 
77
  TCasScriptTan = class(TCasScriptFunction)
 
78
  public
 
79
    class function Name: string; override;
 
80
    class function ShortName: string; override;
 
81
  end;
 
82
 
 
83
  TCasScriptCotan = class(TCasScriptFunction)
 
84
  public
 
85
    class function Name: string; override;
 
86
    class function ShortName: string; override;
 
87
  end;
 
88
 
 
89
  TCasScriptArcSin = class(TCasScriptFunction)
 
90
  public
 
91
    class function Name: string; override;
 
92
    class function ShortName: string; override;
 
93
  end;
 
94
 
 
95
  TCasScriptArcCos = class(TCasScriptFunction)
 
96
  public
 
97
    class function Name: string; override;
 
98
    class function ShortName: string; override;
 
99
  end;
 
100
 
 
101
  TCasScriptArcTan = class(TCasScriptFunction)
 
102
  public
 
103
    class function Name: string; override;
 
104
    class function ShortName: string; override;
 
105
  end;
 
106
 
 
107
  TCasScriptArcCotan = class(TCasScriptFunction)
 
108
  public
 
109
    class function Name: string; override;
 
110
    class function ShortName: string; override;
 
111
  end;
 
112
 
 
113
  TCasScriptSinh = class(TCasScriptFunction)
 
114
  public
 
115
    class function Name: string; override;
 
116
    class function ShortName: string; override;
 
117
  end;
 
118
 
 
119
  TCasScriptCosh = class(TCasScriptFunction)
 
120
  public
 
121
    class function Name: string; override;
 
122
    class function ShortName: string; override;
 
123
  end;
 
124
 
 
125
  TCasScriptTanh = class(TCasScriptFunction)
 
126
  public
 
127
    class function Name: string; override;
 
128
    class function ShortName: string; override;
 
129
  end;
 
130
 
 
131
  TCasScriptCotanh = class(TCasScriptFunction)
 
132
  public
 
133
    class function Name: string; override;
 
134
    class function ShortName: string; override;
 
135
  end;
 
136
 
 
137
  TCasScriptLog2 = class(TCasScriptFunction)
 
138
  public
 
139
    class function Name: string; override;
 
140
    class function ShortName: string; override;
 
141
  end;
 
142
 
 
143
  TCasScriptLn = class(TCasScriptFunction)
 
144
  public
 
145
    class function Name: string; override;
 
146
    class function ShortName: string; override;
 
147
  end;
 
148
 
 
149
  TCasScriptLog = class(TCasScriptFunction)
 
150
  public
 
151
    class function Name: string; override;
 
152
    class function ShortName: string; override;
 
153
  end;
 
154
 
 
155
  TCasScriptPower2 = class(TCasScriptFunction)
 
156
  public
 
157
    class function Name: string; override;
 
158
    class function ShortName: string; override;
 
159
  end;
 
160
 
 
161
  TCasScriptExp = class(TCasScriptFunction)
 
162
  public
 
163
    class function Name: string; override;
 
164
    class function ShortName: string; override;
 
165
  end;
 
166
 
 
167
  TCasScriptPower = class(TCasScriptFunction)
 
168
  public
 
169
    class function Name: string; override;
 
170
    class function ShortName: string; override;
 
171
    class function InfixOperatorName: string; override;
 
172
  end;
 
173
 
 
174
  TCasScriptSqr = class(TCasScriptFunction)
 
175
  public
 
176
    class function Name: string; override;
 
177
    class function ShortName: string; override;
 
178
  end;
 
179
 
 
180
  TCasScriptSqrt = class(TCasScriptFunction)
 
181
  public
 
182
    class function Name: string; override;
 
183
    class function ShortName: string; override;
 
184
  end;
 
185
 
 
186
  TCasScriptMax = class(TCasScriptFunction)
 
187
  public
 
188
    class function ShortName: string; override;
 
189
  end;
 
190
 
 
191
  TCasScriptMin = class(TCasScriptFunction)
 
192
  public
 
193
    class function ShortName: string; override;
 
194
  end;
 
195
 
 
196
  TCasScriptSgn = class(TCasScriptFunction)
 
197
  public
 
198
    class function Name: string; override;
 
199
    class function ShortName: string; override;
 
200
  end;
 
201
 
 
202
  TCasScriptAbs = class(TCasScriptFunction)
 
203
  public
 
204
    class function Name: string; override;
 
205
    class function ShortName: string; override;
 
206
  end;
 
207
 
 
208
  TCasScriptCeil = class(TCasScriptFunction)
 
209
  public
 
210
    class function ShortName: string; override;
 
211
  end;
 
212
 
 
213
  TCasScriptFloor = class(TCasScriptFunction)
 
214
  public
 
215
    class function ShortName: string; override;
 
216
  end;
 
217
 
 
218
  TCasScriptRound = class(TCasScriptFunction)
 
219
  public
 
220
    class function ShortName: string; override;
 
221
  end;
 
222
 
 
223
  TCasScriptGreater = class(TCasScriptFunction)
 
224
  public
 
225
    class function Name: string; override;
 
226
    class function ShortName: string; override;
 
227
    class function InfixOperatorName: string; override;
 
228
  end;
 
229
 
 
230
  TCasScriptLesser = class(TCasScriptFunction)
 
231
  public
 
232
    class function Name: string; override;
 
233
    class function ShortName: string; override;
 
234
    class function InfixOperatorName: string; override;
 
235
  end;
 
236
 
 
237
  TCasScriptGreaterEq = class(TCasScriptFunction)
 
238
  public
 
239
    class function Name: string; override;
 
240
    class function ShortName: string; override;
 
241
    class function InfixOperatorName: string; override;
 
242
  end;
 
243
 
 
244
  TCasScriptLesserEq = class(TCasScriptFunction)
 
245
  public
 
246
    class function Name: string; override;
 
247
    class function ShortName: string; override;
 
248
    class function InfixOperatorName: string; override;
 
249
  end;
 
250
 
 
251
  TCasScriptEqual = class(TCasScriptFunction)
 
252
  public
 
253
    class function Name: string; override;
 
254
    class function ShortName: string; override;
 
255
    class function InfixOperatorName: string; override;
 
256
  end;
 
257
 
 
258
  TCasScriptNotEqual = class(TCasScriptFunction)
 
259
  public
 
260
    class function Name: string; override;
 
261
    class function ShortName: string; override;
 
262
    class function InfixOperatorName: string; override;
 
263
  end;
 
264
 
 
265
  TCasScriptOr = class(TCasScriptFunction)
 
266
  public
 
267
    class function Name: string; override;
 
268
    class function ShortName: string; override;
 
269
  end;
 
270
 
 
271
  TCasScriptAnd = class(TCasScriptFunction)
 
272
  public
 
273
    class function Name: string; override;
 
274
    class function ShortName: string; override;
 
275
  end;
 
276
 
 
277
  TCasScriptNot = class(TCasScriptFunction)
 
278
  public
 
279
    class function Name: string; override;
 
280
    class function ShortName: string; override;
 
281
  end;
 
282
 
 
283
  TCasScriptInt = class(TCasScriptFunction)
 
284
  public
 
285
    class function ShortName: string; override;
 
286
  end;
 
287
 
 
288
  TCasScriptFloatFun = class(TCasScriptFunction)
 
289
  public
 
290
    class function ShortName: string; override;
 
291
  end;
 
292
 
 
293
  TCasScriptBool = class(TCasScriptFunction)
 
294
  public
 
295
    class function ShortName: string; override;
 
296
  end;
 
297
 
 
298
  TCasScriptStringFun = class(TCasScriptFunction)
 
299
  public
 
300
    class function ShortName: string; override;
 
301
  end;
 
302
 
 
303
  TCasScriptWriteln = class(TCasScriptFunction)
 
304
  public
 
305
    class function ShortName: string; override;
 
306
  end;
 
307
 
 
308
  TCasScriptCharacterFromCode = class(TCasScriptFunction)
 
309
  public
 
310
    class function ShortName: string; override;
 
311
  end;
 
312
 
 
313
  TCasScriptRandom = class(TCasScriptFunction)
 
314
  public
 
315
    class function ShortName: string; override;
 
316
  end;
 
317
 
 
318
implementation
 
319
 
 
320
class function TCasScriptAdd.Name: string;
 
321
begin
 
322
  Result := 'add (+)';
 
323
end;
 
324
 
 
325
class function TCasScriptAdd.ShortName: string;
 
326
begin
 
327
  Result := '';
 
328
end;
 
329
 
 
330
class function TCasScriptAdd.InfixOperatorName: string;
 
331
begin
 
332
  Result := '+';
 
333
end;
 
334
 
 
335
class function TCasScriptSubtract.Name: string;
 
336
begin
 
337
  Result := 'subtract (-)';
 
338
end;
 
339
 
 
340
class function TCasScriptSubtract.ShortName: string;
 
341
begin
 
342
  Result := '';
 
343
end;
 
344
 
 
345
class function TCasScriptSubtract.InfixOperatorName: string;
 
346
begin
 
347
  Result := '-';
 
348
end;
 
349
 
 
350
class function TCasScriptMultiply.Name: string;
 
351
begin
 
352
  Result := 'multiply (*)';
 
353
end;
 
354
 
 
355
class function TCasScriptMultiply.ShortName: string;
 
356
begin
 
357
  Result := '';
 
358
end;
 
359
 
 
360
class function TCasScriptMultiply.InfixOperatorName: string;
 
361
begin
 
362
  Result := '*';
 
363
end;
 
364
 
 
365
class function TCasScriptDivide.Name: string;
 
366
begin
 
367
  Result := 'divide (/)';
 
368
end;
 
369
 
 
370
class function TCasScriptDivide.ShortName: string;
 
371
begin
 
372
  Result := '';
 
373
end;
 
374
 
 
375
class function TCasScriptDivide.InfixOperatorName: string;
 
376
begin
 
377
  Result := '/';
 
378
end;
 
379
 
 
380
class function TCasScriptNegate.Name: string;
 
381
begin
 
382
  Result := 'negate (unary -)';
 
383
end;
 
384
 
 
385
class function TCasScriptNegate.ShortName: string;
 
386
begin
 
387
  Result := '';
 
388
end;
 
389
 
 
390
class function TCasScriptModulo.Name: string;
 
391
begin
 
392
  Result := 'modulo (%)';
 
393
end;
 
394
 
 
395
class function TCasScriptModulo.ShortName: string;
 
396
begin
 
397
  Result := '';
 
398
end;
 
399
 
 
400
class function TCasScriptModulo.InfixOperatorName: string;
 
401
begin
 
402
  Result := '%';
 
403
end;
 
404
 
 
405
class function TCasScriptSin.Name: string;
 
406
begin
 
407
  Result := 'sinus';
 
408
end;
 
409
 
 
410
class function TCasScriptSin.ShortName: string;
 
411
begin
 
412
  Result := 'Sin';
 
413
end;
 
414
 
 
415
class function TCasScriptCos.Name: string;
 
416
begin
 
417
  Result := 'cosinus';
 
418
end;
 
419
 
 
420
class function TCasScriptCos.ShortName: string;
 
421
begin
 
422
  Result := 'Cos';
 
423
end;
 
424
 
 
425
class function TCasScriptTan.Name: string;
 
426
begin
 
427
  Result := 'tangens';
 
428
end;
 
429
 
 
430
class function TCasScriptTan.ShortName: string;
 
431
begin
 
432
  Result := 'Tan';
 
433
end;
 
434
 
 
435
class function TCasScriptCotan.Name: string;
 
436
begin
 
437
  Result := 'cotangens';
 
438
end;
 
439
 
 
440
class function TCasScriptCotan.ShortName: string;
 
441
begin
 
442
  Result := 'Cotan';
 
443
end;
 
444
 
 
445
class function TCasScriptArcSin.Name: string;
 
446
begin
 
447
  Result := 'arcSinus';
 
448
end;
 
449
 
 
450
class function TCasScriptArcSin.ShortName: string;
 
451
begin
 
452
  Result := 'ArcSin';
 
453
end;
 
454
 
 
455
class function TCasScriptArcCos.Name: string;
 
456
begin
 
457
  Result := 'arcCosinus';
 
458
end;
 
459
 
 
460
class function TCasScriptArcCos.ShortName: string;
 
461
begin
 
462
  Result := 'ArcCos';
 
463
end;
 
464
 
 
465
class function TCasScriptArcTan.Name: string;
 
466
begin
 
467
  Result := 'arcTangens';
 
468
end;
 
469
 
 
470
class function TCasScriptArcTan.ShortName: string;
 
471
begin
 
472
  Result := 'ArcTan';
 
473
end;
 
474
 
 
475
class function TCasScriptArcCotan.Name: string;
 
476
begin
 
477
  Result := 'arcCotangens';
 
478
end;
 
479
 
 
480
class function TCasScriptArcCotan.ShortName: string;
 
481
begin
 
482
  Result := 'ArcCotan';
 
483
end;
 
484
 
 
485
class function TCasScriptSinh.Name: string;
 
486
begin
 
487
  Result := 'sinh';
 
488
end;
 
489
 
 
490
class function TCasScriptSinh.ShortName: string;
 
491
begin
 
492
  Result := 'Sinh';
 
493
end;
 
494
 
 
495
class function TCasScriptCosh.Name: string;
 
496
begin
 
497
  Result := 'cosh';
 
498
end;
 
499
 
 
500
class function TCasScriptCosh.ShortName: string;
 
501
begin
 
502
  Result := 'Cosh';
 
503
end;
 
504
 
 
505
class function TCasScriptTanh.Name: string;
 
506
begin
 
507
  Result := 'tanh';
 
508
end;
 
509
 
 
510
class function TCasScriptTanh.ShortName: string;
 
511
begin
 
512
  Result := 'Tanh';
 
513
end;
 
514
 
 
515
class function TCasScriptCotanh.Name: string;
 
516
begin
 
517
  Result := 'cotanh';
 
518
end;
 
519
 
 
520
class function TCasScriptCotanh.ShortName: string;
 
521
begin
 
522
  Result := 'Cotanh';
 
523
end;
 
524
 
 
525
class function TCasScriptLog2.Name: string;
 
526
begin
 
527
  Result := 'logarithm (base 2)';
 
528
end;
 
529
 
 
530
class function TCasScriptLog2.ShortName: string;
 
531
begin
 
532
  Result := 'Log2';
 
533
end;
 
534
 
 
535
class function TCasScriptLn.Name: string;
 
536
begin
 
537
  Result := 'logarithm (base e)';
 
538
end;
 
539
 
 
540
class function TCasScriptLn.ShortName: string;
 
541
begin
 
542
  Result := 'Ln';
 
543
end;
 
544
 
 
545
class function TCasScriptLog.Name: string;
 
546
begin
 
547
  Result := 'logarithm';
 
548
end;
 
549
 
 
550
class function TCasScriptLog.ShortName: string;
 
551
begin
 
552
  Result := 'Log';
 
553
end;
 
554
 
 
555
class function TCasScriptPower2.Name: string;
 
556
begin
 
557
  Result := 'power (base 2)';
 
558
end;
 
559
 
 
560
class function TCasScriptPower2.ShortName: string;
 
561
begin
 
562
  Result := 'Power2';
 
563
end;
 
564
 
 
565
class function TCasScriptExp.Name: string;
 
566
begin
 
567
  Result := 'power (base enat)';
 
568
end;
 
569
 
 
570
class function TCasScriptExp.ShortName: string;
 
571
begin
 
572
  Result := 'Exp';
 
573
end;
 
574
 
 
575
class function TCasScriptPower.Name: string;
 
576
begin
 
577
  Result := 'power';
 
578
end;
 
579
 
 
580
class function TCasScriptPower.ShortName: string;
 
581
begin
 
582
  Result := 'Power';
 
583
end;
 
584
 
 
585
class function TCasScriptPower.InfixOperatorName: string;
 
586
begin
 
587
  Result := '^';
 
588
end;
 
589
 
 
590
class function TCasScriptSqr.Name: string;
 
591
begin
 
592
  Result := 'sqr (square)';
 
593
end;
 
594
 
 
595
class function TCasScriptSqr.ShortName: string;
 
596
begin
 
597
  Result := 'Sqr';
 
598
end;
 
599
 
 
600
class function TCasScriptSqrt.Name: string;
 
601
begin
 
602
  Result := 'sqrt (square root)';
 
603
end;
 
604
 
 
605
class function TCasScriptSqrt.ShortName: string;
 
606
begin
 
607
  Result := 'Sqrt';
 
608
end;
 
609
 
 
610
class function TCasScriptMax.ShortName: string;
 
611
begin
 
612
  Result := 'max';
 
613
end;
 
614
 
 
615
class function TCasScriptMin.ShortName: string;
 
616
begin
 
617
  Result := 'min';
 
618
end;
 
619
 
 
620
class function TCasScriptSgn.Name: string;
 
621
begin
 
622
  Result := 'signum';
 
623
end;
 
624
 
 
625
class function TCasScriptSgn.ShortName: string;
 
626
begin
 
627
  Result := 'Sgn';
 
628
end;
 
629
 
 
630
class function TCasScriptAbs.Name: string;
 
631
begin
 
632
  Result := 'abs (absolute value)';
 
633
end;
 
634
 
 
635
class function TCasScriptAbs.ShortName: string;
 
636
begin
 
637
  Result := 'Abs';
 
638
end;
 
639
 
 
640
class function TCasScriptCeil.ShortName: string;
 
641
begin
 
642
  Result := 'Ceil';
 
643
end;
 
644
 
 
645
class function TCasScriptFloor.ShortName: string;
 
646
begin
 
647
  Result := 'Floor';
 
648
end;
 
649
 
 
650
class function TCasScriptRound.ShortName: string;
 
651
begin
 
652
  Result := 'round';
 
653
end;
 
654
 
 
655
class function TCasScriptGreater.Name: string;
 
656
begin
 
657
  Result := 'greater (>)';
 
658
end;
 
659
 
 
660
class function TCasScriptGreater.ShortName: string;
 
661
begin
 
662
  Result := '';
 
663
end;
 
664
 
 
665
class function TCasScriptGreater.InfixOperatorName: string;
 
666
begin
 
667
  Result := '>';
 
668
end;
 
669
 
 
670
class function TCasScriptLesser.Name: string;
 
671
begin
 
672
  Result := 'lesser (<)';
 
673
end;
 
674
 
 
675
class function TCasScriptLesser.ShortName: string;
 
676
begin
 
677
  Result := '';
 
678
end;
 
679
 
 
680
class function TCasScriptLesser.InfixOperatorName: string;
 
681
begin
 
682
  Result := '<';
 
683
end;
 
684
 
 
685
class function TCasScriptGreaterEq.Name: string;
 
686
begin
 
687
  Result := 'greater/equal (>=)';
 
688
end;
 
689
 
 
690
class function TCasScriptGreaterEq.ShortName: string;
 
691
begin
 
692
  Result := '';
 
693
end;
 
694
 
 
695
class function TCasScriptGreaterEq.InfixOperatorName: string;
 
696
begin
 
697
  Result := '>=';
 
698
end;
 
699
 
 
700
class function TCasScriptLesserEq.Name: string;
 
701
begin
 
702
  Result := 'lesser/equal (<=)';
 
703
end;
 
704
 
 
705
class function TCasScriptLesserEq.ShortName: string;
 
706
begin
 
707
  Result := '';
 
708
end;
 
709
 
 
710
class function TCasScriptLesserEq.InfixOperatorName: string;
 
711
begin
 
712
  Result := '<=';
 
713
end;
 
714
 
 
715
class function TCasScriptEqual.Name: string;
 
716
begin
 
717
  Result := 'equal (=)';
 
718
end;
 
719
 
 
720
class function TCasScriptEqual.ShortName: string;
 
721
begin
 
722
  Result := '';
 
723
end;
 
724
 
 
725
class function TCasScriptEqual.InfixOperatorName: string;
 
726
begin
 
727
  Result := '=';
 
728
end;
 
729
 
 
730
class function TCasScriptNotEqual.Name: string;
 
731
begin
 
732
  Result := 'not equal (<>)';
 
733
end;
 
734
 
 
735
class function TCasScriptNotEqual.ShortName: string;
 
736
begin
 
737
  Result := '';
 
738
end;
 
739
 
 
740
class function TCasScriptNotEqual.InfixOperatorName: string;
 
741
begin
 
742
  Result := '<>';
 
743
end;
 
744
 
 
745
class function TCasScriptOr.Name: string;
 
746
begin
 
747
  Result := 'or (alternative)';
 
748
end;
 
749
 
 
750
class function TCasScriptOr.ShortName: string;
 
751
begin
 
752
  Result := 'Or';
 
753
end;
 
754
 
 
755
class function TCasScriptAnd.Name: string;
 
756
begin
 
757
  Result := 'and (conjunction)';
 
758
end;
 
759
 
 
760
class function TCasScriptAnd.ShortName: string;
 
761
begin
 
762
  Result := 'And';
 
763
end;
 
764
 
 
765
class function TCasScriptNot.Name: string;
 
766
begin
 
767
  Result := 'not (logical negation)';
 
768
end;
 
769
 
 
770
class function TCasScriptNot.ShortName: string;
 
771
begin
 
772
  Result := 'Not';
 
773
end;
 
774
 
 
775
class function TCasScriptInt.ShortName: string;
 
776
begin
 
777
  Result := 'int';
 
778
end;
 
779
 
 
780
class function TCasScriptFloatFun.ShortName: string;
 
781
begin
 
782
  Result := 'float';
 
783
end;
 
784
 
 
785
class function TCasScriptBool.ShortName: string;
 
786
begin
 
787
  Result := 'bool';
 
788
end;
 
789
 
 
790
class function TCasScriptStringFun.ShortName: string;
 
791
begin
 
792
  Result := 'string';
 
793
end;
 
794
 
 
795
class function TCasScriptWriteln.ShortName: string;
 
796
begin
 
797
  Result := 'writeln';
 
798
end;
 
799
 
 
800
class function TCasScriptCharacterFromCode.ShortName: string;
 
801
begin
 
802
  Result := 'character_from_code';
 
803
end;
 
804
 
 
805
class function TCasScriptRandom.ShortName: string;
 
806
begin
 
807
  Result := 'random';
 
808
end;
 
809
 
 
810
end.