Branch data Line data Source code
1 : : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : : /*
3 : : * This file is part of the LibreOffice project.
4 : : *
5 : : * This Source Code Form is subject to the terms of the Mozilla Public
6 : : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : : *
9 : : * This file incorporates work covered by the following license notice:
10 : : *
11 : : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : : * contributor license agreements. See the NOTICE file distributed
13 : : * with this work for additional information regarding copyright
14 : : * ownership. The ASF licenses this file to you under the Apache
15 : : * License, Version 2.0 (the "License"); you may not use this file
16 : : * except in compliance with the License. You may obtain a copy of
17 : : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : : */
19 : :
20 : :
21 : : #include "runtime.hxx"
22 : : #include "stdobj.hxx"
23 : : #include "rtlproto.hxx"
24 : : #include "errobject.hxx"
25 : : #include "basegfx/numeric/ftools.hxx"
26 : :
27 : :
28 : : // Properties and methods lay the return value down at Get (bWrite = sal_False)
29 : : // at the element 0 of the Argv; at Put (bWrite = sal_True) the value from
30 : : // element 0 is stored.
31 : :
32 : 0 : RTLFUNC(Erl)
33 : : {
34 : : (void)pBasic;
35 : : (void)bWrite;
36 : :
37 : 0 : rPar.Get( 0 )->PutLong( StarBASIC::GetErl() );
38 : 0 : }
39 : :
40 : 0 : RTLFUNC(Err)
41 : : {
42 : : (void)pBasic;
43 : : (void)bWrite;
44 : :
45 [ # # ]: 0 : if( SbiRuntime::isVBAEnabled() )
46 : : {
47 [ # # ][ # # ]: 0 : rPar.Get( 0 )->PutObject( SbxErrObject::getErrObject() );
48 : : }
49 : : else
50 : : {
51 [ # # ]: 0 : if( bWrite )
52 : : {
53 : 0 : sal_Int32 nVal = rPar.Get( 0 )->GetLong();
54 [ # # ]: 0 : if( nVal <= 65535L )
55 : 0 : StarBASIC::Error( StarBASIC::GetSfxFromVBError( (sal_uInt16) nVal ) );
56 : : }
57 : : else
58 : 0 : rPar.Get( 0 )->PutLong( StarBASIC::GetVBErrorCode( StarBASIC::GetErrBasic() ) );
59 : : }
60 : 0 : }
61 : :
62 : 36 : RTLFUNC(False)
63 : : {
64 : : (void)pBasic;
65 : : (void)bWrite;
66 : :
67 : 36 : rPar.Get(0)->PutBool( sal_False );
68 : 36 : }
69 : :
70 : 0 : RTLFUNC(Empty)
71 : : {
72 : : (void)pBasic;
73 : : (void)bWrite;
74 : : (void)rPar;
75 : 0 : }
76 : :
77 : 0 : RTLFUNC(Nothing)
78 : : {
79 : : (void)pBasic;
80 : : (void)bWrite;
81 : :
82 : : // return an empty object
83 : 0 : rPar.Get( 0 )->PutObject( NULL );
84 : 0 : }
85 : :
86 : 0 : RTLFUNC(Null)
87 : : {
88 : : (void)pBasic;
89 : : (void)bWrite;
90 : :
91 : : // returns an empty object-variable
92 : 0 : rPar.Get( 0 )->PutNull();
93 : 0 : }
94 : :
95 : 0 : RTLFUNC(PI)
96 : : {
97 : : (void)pBasic;
98 : : (void)bWrite;
99 : :
100 : 0 : rPar.Get( 0 )->PutDouble( F_PI );
101 : 0 : }
102 : :
103 : 168 : RTLFUNC(True)
104 : : {
105 : : (void)pBasic;
106 : : (void)bWrite;
107 : :
108 : 168 : rPar.Get( 0 )->PutBool( sal_True );
109 : 168 : }
110 : :
111 : 0 : RTLFUNC(ATTR_NORMAL)
112 : : {
113 : : (void)pBasic;
114 : : (void)bWrite;
115 : :
116 : 0 : rPar.Get(0)->PutInteger(0);
117 : 0 : }
118 : 0 : RTLFUNC(ATTR_READONLY)
119 : : {
120 : : (void)pBasic;
121 : : (void)bWrite;
122 : :
123 : 0 : rPar.Get(0)->PutInteger(1);
124 : 0 : }
125 : 0 : RTLFUNC(ATTR_HIDDEN)
126 : : {
127 : : (void)pBasic;
128 : : (void)bWrite;
129 : :
130 : 0 : rPar.Get(0)->PutInteger(2);
131 : 0 : }
132 : 0 : RTLFUNC(ATTR_SYSTEM)
133 : : {
134 : : (void)pBasic;
135 : : (void)bWrite;
136 : :
137 : 0 : rPar.Get(0)->PutInteger(4);
138 : 0 : }
139 : 0 : RTLFUNC(ATTR_VOLUME)
140 : : {
141 : : (void)pBasic;
142 : : (void)bWrite;
143 : :
144 : 0 : rPar.Get(0)->PutInteger(8);
145 : 0 : }
146 : 0 : RTLFUNC(ATTR_DIRECTORY)
147 : : {
148 : : (void)pBasic;
149 : : (void)bWrite;
150 : :
151 : 0 : rPar.Get(0)->PutInteger(16);
152 : 0 : }
153 : 0 : RTLFUNC(ATTR_ARCHIVE)
154 : : {
155 : : (void)pBasic;
156 : : (void)bWrite;
157 : :
158 : 0 : rPar.Get(0)->PutInteger(32);
159 : 0 : }
160 : :
161 : 0 : RTLFUNC(V_EMPTY)
162 : : {
163 : : (void)pBasic;
164 : : (void)bWrite;
165 : :
166 : 0 : rPar.Get(0)->PutInteger(0);
167 : 0 : }
168 : 0 : RTLFUNC(V_NULL)
169 : : {
170 : : (void)pBasic;
171 : : (void)bWrite;
172 : :
173 : 0 : rPar.Get(0)->PutInteger(1);
174 : 0 : }
175 : 0 : RTLFUNC(V_INTEGER)
176 : : {
177 : : (void)pBasic;
178 : : (void)bWrite;
179 : :
180 : 0 : rPar.Get(0)->PutInteger(2);
181 : 0 : }
182 : 0 : RTLFUNC(V_LONG)
183 : : {
184 : : (void)pBasic;
185 : : (void)bWrite;
186 : :
187 : 0 : rPar.Get(0)->PutInteger(3);
188 : 0 : }
189 : 0 : RTLFUNC(V_SINGLE)
190 : : {
191 : : (void)pBasic;
192 : : (void)bWrite;
193 : :
194 : 0 : rPar.Get(0)->PutInteger(4);
195 : 0 : }
196 : 0 : RTLFUNC(V_DOUBLE)
197 : : {
198 : : (void)pBasic;
199 : : (void)bWrite;
200 : :
201 : 0 : rPar.Get(0)->PutInteger(5);
202 : 0 : }
203 : 0 : RTLFUNC(V_CURRENCY)
204 : : {
205 : : (void)pBasic;
206 : : (void)bWrite;
207 : :
208 : 0 : rPar.Get(0)->PutInteger(6);
209 : 0 : }
210 : 0 : RTLFUNC(V_DATE)
211 : : {
212 : : (void)pBasic;
213 : : (void)bWrite;
214 : :
215 : 0 : rPar.Get(0)->PutInteger(7);
216 : 0 : }
217 : 0 : RTLFUNC(V_STRING)
218 : : {
219 : : (void)pBasic;
220 : : (void)bWrite;
221 : :
222 : 0 : rPar.Get(0)->PutInteger(8);
223 : 0 : }
224 : :
225 : 0 : RTLFUNC(MB_OK)
226 : : {
227 : : (void)pBasic;
228 : : (void)bWrite;
229 : :
230 : 0 : rPar.Get(0)->PutInteger(0);
231 : 0 : }
232 : 0 : RTLFUNC(MB_OKCANCEL)
233 : : {
234 : : (void)pBasic;
235 : : (void)bWrite;
236 : :
237 : 0 : rPar.Get(0)->PutInteger(1);
238 : 0 : }
239 : 0 : RTLFUNC(MB_ABORTRETRYIGNORE)
240 : : {
241 : : (void)pBasic;
242 : : (void)bWrite;
243 : :
244 : 0 : rPar.Get(0)->PutInteger(2);
245 : 0 : }
246 : 0 : RTLFUNC(MB_YESNOCANCEL)
247 : : {
248 : : (void)pBasic;
249 : : (void)bWrite;
250 : :
251 : 0 : rPar.Get(0)->PutInteger(3);
252 : 0 : }
253 : 0 : RTLFUNC(MB_YESNO)
254 : : {
255 : : (void)pBasic;
256 : : (void)bWrite;
257 : :
258 : 0 : rPar.Get(0)->PutInteger(4);
259 : 0 : }
260 : 0 : RTLFUNC(MB_RETRYCANCEL)
261 : : {
262 : : (void)pBasic;
263 : : (void)bWrite;
264 : :
265 : 0 : rPar.Get(0)->PutInteger(5);
266 : 0 : }
267 : 0 : RTLFUNC(MB_ICONSTOP)
268 : : {
269 : : (void)pBasic;
270 : : (void)bWrite;
271 : :
272 : 0 : rPar.Get(0)->PutInteger(16);
273 : 0 : }
274 : 0 : RTLFUNC(MB_ICONQUESTION)
275 : : {
276 : : (void)pBasic;
277 : : (void)bWrite;
278 : :
279 : 0 : rPar.Get(0)->PutInteger(32);
280 : 0 : }
281 : 0 : RTLFUNC(MB_ICONEXCLAMATION)
282 : : {
283 : : (void)pBasic;
284 : : (void)bWrite;
285 : :
286 : 0 : rPar.Get(0)->PutInteger(48);
287 : 0 : }
288 : 0 : RTLFUNC(MB_ICONINFORMATION)
289 : : {
290 : : (void)pBasic;
291 : : (void)bWrite;
292 : :
293 : 0 : rPar.Get(0)->PutInteger(64);
294 : 0 : }
295 : 0 : RTLFUNC(MB_DEFBUTTON1)
296 : : {
297 : : (void)pBasic;
298 : : (void)bWrite;
299 : :
300 : 0 : rPar.Get(0)->PutInteger(0);
301 : 0 : }
302 : 0 : RTLFUNC(MB_DEFBUTTON2)
303 : : {
304 : : (void)pBasic;
305 : : (void)bWrite;
306 : :
307 : 0 : rPar.Get(0)->PutInteger(256);
308 : 0 : }
309 : 0 : RTLFUNC(MB_DEFBUTTON3)
310 : : {
311 : : (void)pBasic;
312 : : (void)bWrite;
313 : :
314 : 0 : rPar.Get(0)->PutInteger(512);
315 : 0 : }
316 : 0 : RTLFUNC(MB_APPLMODAL)
317 : : {
318 : : (void)pBasic;
319 : : (void)bWrite;
320 : :
321 : 0 : rPar.Get(0)->PutInteger(0);
322 : 0 : }
323 : 0 : RTLFUNC(MB_SYSTEMMODAL)
324 : : {
325 : : (void)pBasic;
326 : : (void)bWrite;
327 : :
328 : 0 : rPar.Get(0)->PutInteger(4096);
329 : 0 : }
330 : :
331 : 0 : RTLFUNC(IDOK)
332 : : {
333 : : (void)pBasic;
334 : : (void)bWrite;
335 : :
336 : 0 : rPar.Get(0)->PutInteger(1);
337 : 0 : }
338 : :
339 : 0 : RTLFUNC(IDCANCEL)
340 : : {
341 : : (void)pBasic;
342 : : (void)bWrite;
343 : :
344 : 0 : rPar.Get(0)->PutInteger(2);
345 : 0 : }
346 : 0 : RTLFUNC(IDABORT)
347 : : {
348 : : (void)pBasic;
349 : : (void)bWrite;
350 : :
351 : 0 : rPar.Get(0)->PutInteger(3);
352 : 0 : }
353 : 0 : RTLFUNC(IDRETRY)
354 : : {
355 : : (void)pBasic;
356 : : (void)bWrite;
357 : :
358 : 0 : rPar.Get(0)->PutInteger(4);
359 : 0 : }
360 : 0 : RTLFUNC(IDYES)
361 : : {
362 : : (void)pBasic;
363 : : (void)bWrite;
364 : :
365 : 0 : rPar.Get(0)->PutInteger(6);
366 : 0 : }
367 : 0 : RTLFUNC(IDNO)
368 : : {
369 : : (void)pBasic;
370 : : (void)bWrite;
371 : :
372 : 0 : rPar.Get(0)->PutInteger(7);
373 : 0 : }
374 : :
375 : 0 : RTLFUNC(CF_TEXT)
376 : : {
377 : : (void)pBasic;
378 : : (void)bWrite;
379 : :
380 : 0 : rPar.Get(0)->PutInteger(1);
381 : 0 : }
382 : 0 : RTLFUNC(CF_BITMAP)
383 : : {
384 : : (void)pBasic;
385 : : (void)bWrite;
386 : :
387 : 0 : rPar.Get(0)->PutInteger(2);
388 : 0 : }
389 : 0 : RTLFUNC(CF_METAFILEPICT)
390 : : {
391 : : (void)pBasic;
392 : : (void)bWrite;
393 : :
394 : 0 : rPar.Get(0)->PutInteger(3);
395 : 0 : }
396 : :
397 : 0 : RTLFUNC(TYP_AUTHORFLD)
398 : : {
399 : : (void)pBasic;
400 : : (void)bWrite;
401 : :
402 : 0 : rPar.Get(0)->PutInteger(7);
403 : 0 : }
404 : 0 : RTLFUNC(TYP_CHAPTERFLD)
405 : : {
406 : : (void)pBasic;
407 : : (void)bWrite;
408 : :
409 : 0 : rPar.Get(0)->PutInteger(4);
410 : 0 : }
411 : 0 : RTLFUNC(TYP_CONDTXTFLD)
412 : : {
413 : : (void)pBasic;
414 : : (void)bWrite;
415 : :
416 : 0 : rPar.Get(0)->PutInteger(27);
417 : 0 : }
418 : 0 : RTLFUNC(TYP_DATEFLD)
419 : : {
420 : : (void)pBasic;
421 : : (void)bWrite;
422 : :
423 : 0 : rPar.Get(0)->PutInteger(0);
424 : 0 : }
425 : 0 : RTLFUNC(TYP_DBFLD)
426 : : {
427 : : (void)pBasic;
428 : : (void)bWrite;
429 : :
430 : 0 : rPar.Get(0)->PutInteger(19);
431 : 0 : }
432 : 0 : RTLFUNC(TYP_DBNAMEFLD)
433 : : {
434 : : (void)pBasic;
435 : : (void)bWrite;
436 : :
437 : 0 : rPar.Get(0)->PutInteger(3);
438 : 0 : }
439 : 0 : RTLFUNC(TYP_DBNEXTSETFLD)
440 : : {
441 : : (void)pBasic;
442 : : (void)bWrite;
443 : :
444 : 0 : rPar.Get(0)->PutInteger(24);
445 : 0 : }
446 : 0 : RTLFUNC(TYP_DBNUMSETFLD)
447 : : {
448 : : (void)pBasic;
449 : : (void)bWrite;
450 : :
451 : 0 : rPar.Get(0)->PutInteger(25);
452 : 0 : }
453 : 0 : RTLFUNC(TYP_DBSETNUMBERFLD)
454 : : {
455 : : (void)pBasic;
456 : : (void)bWrite;
457 : :
458 : 0 : rPar.Get(0)->PutInteger(26);
459 : 0 : }
460 : 0 : RTLFUNC(TYP_DDEFLD)
461 : : {
462 : : (void)pBasic;
463 : : (void)bWrite;
464 : :
465 : 0 : rPar.Get(0)->PutInteger(14);
466 : 0 : }
467 : 0 : RTLFUNC(TYP_DOCINFOFLD)
468 : : {
469 : : (void)pBasic;
470 : : (void)bWrite;
471 : :
472 : 0 : rPar.Get(0)->PutInteger(18);
473 : 0 : }
474 : 0 : RTLFUNC(TYP_DOCSTATFLD)
475 : : {
476 : : (void)pBasic;
477 : : (void)bWrite;
478 : :
479 : 0 : rPar.Get(0)->PutInteger(6);
480 : 0 : }
481 : 0 : RTLFUNC(TYP_EXTUSERFLD)
482 : : {
483 : : (void)pBasic;
484 : : (void)bWrite;
485 : :
486 : 0 : rPar.Get(0)->PutInteger(30);
487 : 0 : }
488 : 0 : RTLFUNC(TYP_FILENAMEFLD)
489 : : {
490 : : (void)pBasic;
491 : : (void)bWrite;
492 : :
493 : 0 : rPar.Get(0)->PutInteger(2);
494 : 0 : }
495 : 0 : RTLFUNC(TYP_FIXDATEFLD)
496 : : {
497 : : (void)pBasic;
498 : : (void)bWrite;
499 : :
500 : 0 : rPar.Get(0)->PutInteger(31);
501 : 0 : }
502 : 0 : RTLFUNC(TYP_FIXTIMEFLD)
503 : : {
504 : : (void)pBasic;
505 : : (void)bWrite;
506 : :
507 : 0 : rPar.Get(0)->PutInteger(32);
508 : 0 : }
509 : 0 : RTLFUNC(TYP_FORMELFLD)
510 : : {
511 : : (void)pBasic;
512 : : (void)bWrite;
513 : :
514 : 0 : rPar.Get(0)->PutInteger(10);
515 : 0 : }
516 : 0 : RTLFUNC(TYP_GETFLD)
517 : : {
518 : : (void)pBasic;
519 : : (void)bWrite;
520 : :
521 : 0 : rPar.Get(0)->PutInteger(9);
522 : 0 : }
523 : 0 : RTLFUNC(TYP_GETREFFLD)
524 : : {
525 : : (void)pBasic;
526 : : (void)bWrite;
527 : :
528 : 0 : rPar.Get(0)->PutInteger(13);
529 : 0 : }
530 : 0 : RTLFUNC(TYP_HIDDENPARAFLD)
531 : : {
532 : : (void)pBasic;
533 : : (void)bWrite;
534 : :
535 : 0 : rPar.Get(0)->PutInteger(17);
536 : 0 : }
537 : 0 : RTLFUNC(TYP_HIDDENTXTFLD)
538 : : {
539 : : (void)pBasic;
540 : : (void)bWrite;
541 : :
542 : 0 : rPar.Get(0)->PutInteger(11);
543 : 0 : }
544 : 0 : RTLFUNC(TYP_INPUTFLD)
545 : : {
546 : : (void)pBasic;
547 : : (void)bWrite;
548 : :
549 : 0 : rPar.Get(0)->PutInteger(16);
550 : 0 : }
551 : 0 : RTLFUNC(TYP_MACROFLD)
552 : : {
553 : : (void)pBasic;
554 : : (void)bWrite;
555 : :
556 : 0 : rPar.Get(0)->PutInteger(15);
557 : 0 : }
558 : 0 : RTLFUNC(TYP_NEXTPAGEFLD)
559 : : {
560 : : (void)pBasic;
561 : : (void)bWrite;
562 : :
563 : 0 : rPar.Get(0)->PutInteger(28);
564 : 0 : }
565 : 0 : RTLFUNC(TYP_PAGENUMBERFLD)
566 : : {
567 : : (void)pBasic;
568 : : (void)bWrite;
569 : :
570 : 0 : rPar.Get(0)->PutInteger(5);
571 : 0 : }
572 : 0 : RTLFUNC(TYP_POSTITFLD)
573 : : {
574 : : (void)pBasic;
575 : : (void)bWrite;
576 : :
577 : 0 : rPar.Get(0)->PutInteger(21);
578 : 0 : }
579 : 0 : RTLFUNC(TYP_PREVPAGEFLD)
580 : : {
581 : : (void)pBasic;
582 : : (void)bWrite;
583 : :
584 : 0 : rPar.Get(0)->PutInteger(29);
585 : 0 : }
586 : 0 : RTLFUNC(TYP_SEQFLD)
587 : : {
588 : : (void)pBasic;
589 : : (void)bWrite;
590 : :
591 : 0 : rPar.Get(0)->PutInteger(23);
592 : 0 : }
593 : 0 : RTLFUNC(TYP_SETFLD)
594 : : {
595 : : (void)pBasic;
596 : : (void)bWrite;
597 : :
598 : 0 : rPar.Get(0)->PutInteger(8);
599 : 0 : }
600 : 0 : RTLFUNC(TYP_SETINPFLD)
601 : : {
602 : : (void)pBasic;
603 : : (void)bWrite;
604 : :
605 : 0 : rPar.Get(0)->PutInteger(33);
606 : 0 : }
607 : 0 : RTLFUNC(TYP_SETREFFLD)
608 : : {
609 : : (void)pBasic;
610 : : (void)bWrite;
611 : :
612 : 0 : rPar.Get(0)->PutInteger(12);
613 : 0 : }
614 : 0 : RTLFUNC(TYP_TEMPLNAMEFLD)
615 : : {
616 : : (void)pBasic;
617 : : (void)bWrite;
618 : :
619 : 0 : rPar.Get(0)->PutInteger(22);
620 : 0 : }
621 : 0 : RTLFUNC(TYP_TIMEFLD)
622 : : {
623 : : (void)pBasic;
624 : : (void)bWrite;
625 : :
626 : 0 : rPar.Get(0)->PutInteger(1);
627 : 0 : }
628 : 0 : RTLFUNC(TYP_USERFLD)
629 : : {
630 : : (void)pBasic;
631 : : (void)bWrite;
632 : :
633 : 0 : rPar.Get(0)->PutInteger(20);
634 : 0 : }
635 : 0 : RTLFUNC(TYP_USRINPFLD)
636 : : {
637 : : (void)pBasic;
638 : : (void)bWrite;
639 : :
640 : 0 : rPar.Get(0)->PutInteger(34);
641 : 0 : }
642 : 0 : RTLFUNC(TYP_SETREFPAGEFLD)
643 : : {
644 : : (void)pBasic;
645 : : (void)bWrite;
646 : :
647 : 0 : rPar.Get(0)->PutInteger(35);
648 : 0 : }
649 : 0 : RTLFUNC(TYP_GETREFPAGEFLD)
650 : : {
651 : : (void)pBasic;
652 : : (void)bWrite;
653 : :
654 : 0 : rPar.Get(0)->PutInteger(36);
655 : 0 : }
656 : 0 : RTLFUNC(TYP_INTERNETFLD)
657 : : {
658 : : (void)pBasic;
659 : : (void)bWrite;
660 : :
661 : 0 : rPar.Get(0)->PutInteger(37);
662 : 0 : }
663 : :
664 : 0 : RTLFUNC(SET_ON)
665 : : {
666 : : (void)pBasic;
667 : : (void)bWrite;
668 : :
669 : 0 : rPar.Get(0)->PutInteger(1);
670 : 0 : }
671 : 0 : RTLFUNC(SET_OFF)
672 : : {
673 : : (void)pBasic;
674 : : (void)bWrite;
675 : :
676 : 0 : rPar.Get(0)->PutInteger(0);
677 : 0 : }
678 : 0 : RTLFUNC(TOGGLE)
679 : : {
680 : : (void)pBasic;
681 : : (void)bWrite;
682 : :
683 : 0 : rPar.Get(0)->PutInteger(2);
684 : 0 : }
685 : :
686 : 0 : RTLFUNC(FRAMEANCHORPAGE)
687 : : {
688 : : (void)pBasic;
689 : : (void)bWrite;
690 : :
691 : 0 : rPar.Get(0)->PutInteger(1);
692 : 0 : }
693 : 0 : RTLFUNC(FRAMEANCHORPARA)
694 : : {
695 : : (void)pBasic;
696 : : (void)bWrite;
697 : :
698 : 0 : rPar.Get(0)->PutInteger(14);
699 : 0 : }
700 : 0 : RTLFUNC(FRAMEANCHORCHAR)
701 : : {
702 : : (void)pBasic;
703 : : (void)bWrite;
704 : :
705 : 0 : rPar.Get(0)->PutInteger(15);
706 : 0 : }
707 : :
708 : 0 : RTLFUNC(CLEAR_ALLTABS)
709 : : {
710 : : (void)pBasic;
711 : : (void)bWrite;
712 : :
713 : 0 : rPar.Get(0)->PutInteger(2);
714 : 0 : }
715 : 0 : RTLFUNC(CLEAR_TAB)
716 : : {
717 : : (void)pBasic;
718 : : (void)bWrite;
719 : :
720 : 0 : rPar.Get(0)->PutInteger(1);
721 : 0 : }
722 : 0 : RTLFUNC(SET_TAB)
723 : : {
724 : : (void)pBasic;
725 : : (void)bWrite;
726 : :
727 : 0 : rPar.Get(0)->PutInteger(0);
728 : 0 : }
729 : :
730 : 0 : RTLFUNC(LINEPROP)
731 : : {
732 : : (void)pBasic;
733 : : (void)bWrite;
734 : :
735 : 0 : rPar.Get(0)->PutInteger(0);
736 : 0 : }
737 : 0 : RTLFUNC(LINE_1)
738 : : {
739 : : (void)pBasic;
740 : : (void)bWrite;
741 : :
742 : 0 : rPar.Get(0)->PutInteger(1);
743 : 0 : }
744 : 0 : RTLFUNC(LINE_15)
745 : : {
746 : : (void)pBasic;
747 : : (void)bWrite;
748 : :
749 : 0 : rPar.Get(0)->PutInteger(2);
750 : 0 : }
751 : 0 : RTLFUNC(LINE_2)
752 : : {
753 : : (void)pBasic;
754 : : (void)bWrite;
755 : :
756 : 0 : rPar.Get(0)->PutInteger(3);
757 : 0 : }
758 : :
759 : 0 : RTLFUNC(TYP_JUMPEDITFLD)
760 : : {
761 : : (void)pBasic;
762 : : (void)bWrite;
763 : :
764 : 0 : rPar.Get(0)->PutInteger(38);
765 : 0 : }
766 : :
767 : :
768 : : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
