![]() ![]() |
![]() |
File: [Development] / JSOC / base / util / scripts / sumaintain.pl
(download)
Revision: 1.1, Mon May 23 16:17:40 2011 UTC (12 years ago) by arta Branch: MAIN CVS Tags: Ver_LATEST, Ver_DRMSLATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, Ver_6-1, Ver_6-0, Ver_5-14, Ver_5-13, NetDRMS_Ver_LATEST, NetDRMS_Ver_9-9, NetDRMS_Ver_9-5, NetDRMS_Ver_9-41, NetDRMS_Ver_9-4, NetDRMS_Ver_9-3, NetDRMS_Ver_9-2, NetDRMS_Ver_9-1, NetDRMS_Ver_9-0, NetDRMS_Ver_8-8, NetDRMS_Ver_8-7, NetDRMS_Ver_8-6, NetDRMS_Ver_8-5, NetDRMS_Ver_8-4, NetDRMS_Ver_8-3, NetDRMS_Ver_8-2, NetDRMS_Ver_8-12, NetDRMS_Ver_8-11, NetDRMS_Ver_8-10, NetDRMS_Ver_8-1, NetDRMS_Ver_8-0, NetDRMS_Ver_7-1, NetDRMS_Ver_7-0, NetDRMS_Ver_6-4, NetDRMS_Ver_6-3, NetDRMS_Ver_6-2, NetDRMS_Ver_6-1, NetDRMS_Ver_6-0, NetDRMS_Ver_2-7, NetDRMS_Ver_2-6, HEAD Fix improper usage of XASSERT. |
#!/home/jsoc/bin/linux_x86_64/perl -w use Inline C => Config => LIBS => '-L/home/arta/cvs/JSOC/lib/linux_x86_64/ -ldrmsserver.a', INC => '-I/home/arta/cvs/JSOC/include'; use Inline C => << 'END_C_CODE'; #include "jsoc_main.h" char *GetSUs(char *query) { DRMS_RecordSet_t *recset = NULL; int drmsstatus = DRMS_SUCCESS; int irec; recset = drms_open_records(drms_env, query, &drmsstatus); if (recset && recset->n > 0) { } } END_C_CODE $sulist = GetSUs("hmi.M_45s[2010.11.20/1m]"); print "$sulist\n"; exit(0);
Karen Tian |
Powered by ViewCVS 0.9.4 |