11
11
// - the copyright holder be liable for any direct, indirect, incidental or -
12
12
// - special damages arising in any way out of the use of this software. -
13
13
// ---------------------------------------------------------------------------
14
// - copyright (c) 1999-2012 amaury darsch -
14
// - copyright (c) 1999-2015 amaury darsch -
15
15
// ---------------------------------------------------------------------------
17
17
#include "Cons.hpp"
47
50
#include "XhtmlTitle.hpp"
48
51
#include "XhtmlEquiv.hpp"
49
52
#include "XhtmlStyle.hpp"
53
#include "XhtmlCanvas.hpp"
54
#include "XhtmlSubmit.hpp"
50
55
#include "XhtmlScript.hpp"
56
#include "XhtmlOption.hpp"
57
#include "XhtmlHidden.hpp"
51
58
#include "XhtmlCaption.hpp"
73
80
return new Boolean (result);
83
// jsonp: json mime object predicate
85
Object* wax_jsonp (Runnable* robj, Nameset* nset, Cons* args) {
86
Object* obj = get_obj (robj, nset, args, "json-mime-p");
87
bool result = (dynamic_cast <JsonMime*> (obj) == nilp) ? false : true;
89
return new Boolean (result);
76
92
// xmlmp: xml mime object predicate
78
94
Object* wax_xmlmp (Runnable* robj, Nameset* nset, Cons* args) {
271
287
return new Boolean (result);
274
// sscript: xhtml script object predicate
290
// canvasp: xhtml canvas object predicate
292
Object* wax_canvasp (Runnable* robj, Nameset* nset, Cons* args) {
293
Object* obj = get_obj (robj, nset, args, "xhtml-canvas-p");
294
bool result = (dynamic_cast <XhtmlCanvas*> (obj) == nilp) ? false : true;
296
return new Boolean (result);
299
// scriptp: xhtml script object predicate
276
301
Object* wax_scriptp (Runnable* robj, Nameset* nset, Cons* args) {
277
302
Object* obj = get_obj (robj, nset, args, "xhtml-script-p");
396
421
Object::cref (obj);
397
422
return new Boolean (result);
425
// formp: xhtml form object predicate
427
Object* wax_formp (Runnable* robj, Nameset* nset, Cons* args) {
428
Object* obj = get_obj (robj, nset, args, "xhtml-form-p");
429
bool result = (dynamic_cast <XhtmlForm*> (obj) == nilp) ? false : true;
431
return new Boolean (result);
434
// formp: xhtml input text object predicate
436
Object* wax_textp (Runnable* robj, Nameset* nset, Cons* args) {
437
Object* obj = get_obj (robj, nset, args, "xhtml-text-p");
438
bool result = (dynamic_cast <XhtmlText*> (obj) == nilp) ? false : true;
440
return new Boolean (result);
443
// subtp: xhtml input submit object predicate
445
Object* wax_subtp (Runnable* robj, Nameset* nset, Cons* args) {
446
Object* obj = get_obj (robj, nset, args, "xhtml-submit-p");
447
bool result = (dynamic_cast <XhtmlSubmit*> (obj) == nilp) ? false : true;
449
return new Boolean (result);
452
// optnp: xhtml select option object predicate
454
Object* wax_optnp (Runnable* robj, Nameset* nset, Cons* args) {
455
Object* obj = get_obj (robj, nset, args, "xhtml-option-p");
456
bool result = (dynamic_cast <XhtmlOption*> (obj) == nilp) ? false : true;
458
return new Boolean (result);
461
// hidep: xhtml input hidden object predicate
463
Object* wax_hidep (Runnable* robj, Nameset* nset, Cons* args) {
464
Object* obj = get_obj (robj, nset, args, "xhtml-hide-p");
465
bool result = (dynamic_cast <XhtmlHidden*> (obj) == nilp) ? false : true;
467
return new Boolean (result);