开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > Oracle数据库 > 查看源码
swbltin.c
资源名称：sqlweb-2.2.0.tar.gz　[点击查看]
上传用户：aidanglao
上传日期：2007-01-07
资源大小：69k
文件大小：16k
源码类别：

Oracle数据库

开发平台：

Unix_Linux

swbltin.c：源码内容
  1. /* swbltin.c - built-in processing routines (if,cursor,symbol, etc)
  2. /*
  3. /* Copyright (c) 1995-1999 Applied Information Technologies, Inc.
  4. /* All Rights Reserved.
  5. /*  
  6. /* Distributed uder the GNU General Public License which was included in
  7. /* the file named "LICENSE" in the package that you recieved.
  8. /* If not, write to:
  9. /* The Free Software Foundation, Inc.,
  10. /* 675 Mass Ave, Cambridge, MA 02139, USA.
  11.  */
  12. #include <stdio.h>
  13. #include <stdlib.h>
  14. #include <ctype.h>
  15. #include <string.h>
  16. #include <fcntl.h>
  17. #include <sys/types.h>
  18. #include <sys/wait.h>
  20. #include "sqlweb.h"
  22. /*
  23. /* Internal Private Functions....
  24.  */
  25. static eBoolean_t iCp2CookList(PI *pPI);
  26. static eBoolean_t iCp2PIList(PI *pPI);
  27. static eBoolean_t iCp2PIAList(SYMBOL *pPIA);
  28. static eBoolean_t ChopPI(PI *pPI,eBoolean_t b);
  29. /* Global Variables defined elsewhere...
  30.  */
  31. extern SQLWEB_LDA gLDA;
  32. extern eBoolean_t gbBufferOutput;
  34. /*
  35. /* Global Variables used by all modules
  36. /* but owned by this one!
  37.  */
  39. /* Global Variables Private to THIS FILE
  40.  */
  41. static LIST *glCookList
  42.    ,*glPIList
  43.    ,*glPIAList
  44. ;
  47. eBoolean_t
  48. sqlweb_if(
  49.  PI *pPI
  50. ,eBoolean_t *pbExpr
  51. )
  52. {
  53.     char sSQL[MAX_TOKVAL_SIZE];
  54.     char *pSQL, *pBuf, *pExpr;
  55.     SQLWEB_CURSOR cda;
  57.     *pbExpr = eFalse;
  58.     if(!is_casematch(pPI->pTagName,"IF")
  59. && !is_casematch(pPI->pTagName,"SQLWEB-IF"))
  60.     {
  61. MsgPush("sqlweb_if:Can't Process %s",pPI->pTagName);
  62. return(eFalse);
  63.     }
  65.     /*
  66.     /* Process IF Tag
  67.      */
  68.     (*pbExpr) = eFalse;
  69.     if(ISeTrue(GetPIAValueREF(pPI,"EXPR",&pExpr))) {
  70. if(ISeTrue(GetPIAValueREF(pPI,"EVAL",&pBuf))
  71.     && (is_casematch(pBuf,"TRUE")) )
  72. {
  73.     ExpandString(pExpr,&pBuf);
  74.     RemoveCharCodes(pBuf);
  75.     pExpr = pBuf;
  76. }
  78. sprintf(sSQL,"%s %s",gpIfExpr,pExpr);
  79. RETeFalse(DbOpenCursor(&gLDA,sSQL,&cda)
  80.  ,"DbOpenCursor Failed"
  81.  );
  82. RETeFalse(DbFetchCursor(&cda,eTrue) /* Close */
  83.  ,"DbFetchCursor Failed"
  84.  );
  85. (*pbExpr) = cda.bFound;
  87. ChopPI(pPI,(*pbExpr));
  88. /* Chop Children IFF expression is FALSE
  89.  */
  91.     } /* Got the "Required EXPR" symbol... */
  92.     return(eTrue);
  93. }
  95. eBoolean_t
  96. sqlweb_cursor(
  97.  PI *pPI
  98. ,eBoolean_t *pbExpr
  99. )
  100. {
  101.     char *pSQL, *pBuf;
  102.     SQLWEB_CURSOR cda;
  103.     LIST *lBINDList;
  104.     LIST *lTmpCookList;
  105.     LIST *lTmpPIList;
  106.     int  iLoopCount=0;
  108.     *pbExpr = eFalse;
  110.     if(!is_casematch(pPI->pTagName,"CURSOR")
  111. &&!is_casematch(pPI->pTagName,"SQLWEB-CURSOR"))
  112.     {
  113. MsgPush("sqlweb_cursor:Can't Process %s",pPI->pTagName);
  114. return(eFalse);
  115.     }
  116.     /*
  117.     /* Process a CURSOR Tag
  118.      */
  119.     DebugHTML(__FILE__,__LINE__,4,"Got a CURSOR!");
  120.     if(ISeFalse(GetPIAValueREF(pPI,"SQL",&pSQL))){
  121. pSQL= gpNullSelect;
  122.     }
  124.     if(ISeTrue(GetPIAValueREF(pPI,"EVAL",&pBuf))
  125. &&(is_casematch(pBuf,"TRUE")))
  126.     {
  127. DebugHTML(__FILE__,__LINE__,2,"Opening SQL="%s"",pSQL);
  128. ExpandString(pSQL,&pBuf);
  129. RemoveCharCodes(pBuf);
  130. pSQL = pBuf;
  131.     }
  132.     DebugHTML(__FILE__,__LINE__,2,"Opening SQL="%s"",pSQL);
  134.     RETeFalse(DbOpenCursor(&gLDA,pSQL,&cda)
  135.      ,"DbOpenCursor Failed"
  136.      );
  137.     DebugHTML(__FILE__,__LINE__,4,"Its OPEN!");
  139.     /*
  140.     /* Save the CURSOR's PI List the lBINDList.
  141.     /* and create a New, clean, consolidated list and
  142.     /* setup a global pointer to the new list.
  143.      */
  144.     lTmpCookList = glCookList;
  145.     lTmpPIList   = glPIList;
  147.     lBINDList = pPI->lPI;
  148.     pPI->lPI = l_create("QUEUE");
  149.     glPIList  = pPI->lPI;
  151.     /*
  152.     /* Fetch LOOP
  153.      */
  154.     for(iLoopCount=0;;){
  155. /*
  156. /* Do the FETCH
  157.  */
  158. DebugHTML(__FILE__,__LINE__,4
  159.     ,"Attempting a FETCH(%d)!"
  160.     ,cda.iCursorIndex);
  161. RETeFalse(DbFetchCursor(&cda,eFalse)
  162.  ,"DbFetchCursor Failed"
  163.  );
  164. if(ISeFalse(cda.bFound)) {
  165.     DebugHTML(__FILE__,__LINE__,4,"Fetch Done.");
  166.     break;
  167. }
  168. iLoopCount++;
  170. DebugHTML(__FILE__,__LINE__,4,"Got a ROW, attempting LIST Dup");
  172. /* Step 1
  173. /* Duplicate the Origional LIST to BIND to the FETCHED ROW
  174.  */
  175. if( !(glCookList = l_create("QUEUE"))) {
  176.     MsgPush("l_create(lglookList) Failed");
  177.     return(eFalse);
  178. }
  179. RETeFalse(l_scan(lBINDList,(PFI)iCp2CookList)
  180.  ,"l_scan(iCp2CookList) Failed"
  181.  );
  183. /* Step 2
  184. /* Cook the Newly build glCookList built in the above step
  185.  */
  186. RETeFalse(l_scan(glCookList,(PFI)CookPI)
  187.  ,"CookPI Failed in w/in CURSOR"
  188.  );
  189.     
  190. if(ISeTrue(gbBufferOutput)){
  191.     /* Step 3
  192.     /* Add the newly Cooked Items to the pPI-lPI LIST
  193.     /* where it belongs.
  194.      */
  195.     RETeFalse(l_scan(glCookList,(PFI)iCp2PIList)
  196.      ,"l_scan(iCp2PIlist) Failed"
  197.      );
  198. }
  199. l_destroy(glCookList);
  200.     }
  202.     /* Chop "template" Children IFF no rows processed */
  203.     if(iLoopCount==0) {
  204. ChopPI(pPI,eFalse);
  205.     }
  207.     /* Never Re-Cook Looped Stuff */
  208.     *pbExpr = eFalse;
  210.     glCookList = lTmpCookList;
  211.     glPIList   = lTmpPIList;
  212.     return(eTrue);
  213. }
  215. eBoolean_t
  216. sqlweb_while(
  217.  PI *pPI
  218. ,eBoolean_t *pbExpr
  219. )
  220. {
  221.     char *pExpr, *pBuf;
  222.     LIST *lBINDList;
  223.     LIST *lTmpCookList;
  224.     LIST *lTmpPIList;
  226.     int iLoopCount=0;
  228.     *pbExpr = eFalse;
  230.     if(!is_casematch(pPI->pTagName,"WHILE")
  231. &&!is_casematch(pPI->pTagName,"SQLWEB-WHILE"))
  232.     {
  233. MsgPush("sqlweb_while:Can't Process %s",pPI->pTagName);
  234. return(eFalse);
  235.     }
  236.     /*
  237.     /* Process a WHILE Tag
  238.      */
  239.     DebugHTML(__FILE__,__LINE__,3,"Got a WHILE!");
  241.     if(ISeFalse(GetPIAValueREF(pPI,"EXPR",&pExpr))) {
  242. DebugHTML(__FILE__,__LINE__,0
  243.  ,"WARN: No EXPR for While on line %d"
  244.  ,pPI->iLineNbr
  245.  );
  246. MsgPush("sqlweb_while:No EXPR");
  247. return(eTrue);
  248.     }
  249.     if(ISeTrue(GetPIAValueREF(pPI,"EVAL",&pBuf))
  250. &&(is_casematch(pBuf,"TRUE")))
  251.     {
  252. ExpandString(pExpr,&pBuf);
  253. RemoveCharCodes(pBuf);
  254. pExpr = pBuf;
  255.     }
  257.     /*
  258.     /* Save the WHILE's PI List the lBINDList.
  259.     /* and create a New, clean, consolidated list and
  260.     /* setup a global pointer to the new list.
  261.      */
  262.     lTmpCookList = glCookList;
  263.     lTmpPIList   = glPIList;
  265.     lBINDList = pPI->lPI;
  266.     pPI->lPI = l_create("QUEUE");
  267.     glPIList  = pPI->lPI;
  269.     /*
  270.     /* Fetch LOOP
  271.      */
  272.     for(iLoopCount=0;;){
  273. DebugHTML(__FILE__,__LINE__,2,"While-Expr="%s"",pExpr);
  274. /*
  275. /* Process EXPR
  276.  */
  277. RETeFalse2(ParseIf(pExpr,pbExpr)
  278.   ,"Failed to expand WHILE:%s"
  279.   ,pExpr
  280.   );
  282. DebugHTML(__FILE__,__LINE__,4,"While-Expr:Done:(%s %d Children)"
  283.     ,ISeFalse((*pbExpr))?"CHOP":"KEEP"
  284.     ,pPI->lPI? l_size(pPI->lPI): -1
  285.     );
  286. if(ISeFalse(*pbExpr)) {
  287.     DebugHTML(__FILE__,__LINE__,4,"While Done.");
  288.     break;
  289. }
  290. iLoopCount++;
  292. DebugHTML(__FILE__,__LINE__,4,"Got a TRUE, attempting LIST Dup");
  294. /* Step 1
  295. /* Duplicate the Origional LIST to BIND to the FETCHED ROW
  296.  */
  297. if( !(glCookList = l_create("QUEUE"))) {
  298.     MsgPush("l_create(lglookList) Failed");
  299.     return(eFalse);
  300. }
  301. RETeFalse(l_scan(lBINDList,(PFI)iCp2CookList)
  302.  ,"l_scan(iCp2CookList) Failed"
  303.  );
  305. /* Step 2
  306. /* Cook the Newly build glCookList built in the above step
  307.  */
  308. RETeFalse(l_scan(glCookList,(PFI)CookPI)
  309.  ,"CookPI Failed in w/in CURSOR"
  310.  );
  311.     
  312. if(ISeTrue(gbBufferOutput)){
  313.     /* Step 3
  314.     /* Add the newly Cooked Items to the pPI-lPI LIST
  315.     /* where it belongs.
  316.      */
  317.      RETeFalse(l_scan(glCookList,(PFI)iCp2PIList)
  318.      ,"l_scan(iCp2PIlist) Failed"
  319.      );
  320. }
  321. l_destroy(glCookList);
  322.     }
  323.     /* Chop "template" Children IFF no rows processed */
  324.     if(iLoopCount==0) {
  325. ChopPI(pPI,eFalse);
  326.     }
  328.     /* Never Re-Cook Looped Stuff */
  329.     *pbExpr = eFalse;
  331.     glCookList = lTmpCookList;
  332.     glPIList   = lTmpPIList;
  333.     return(eTrue);
  334. }
  336. eBoolean_t
  337. sqlweb_connect(
  338.  PI *pPI
  339. ,eBoolean_t *pbExpr
  340. )
  341. {
  342.     char *pBuf, *pName;
  344.     *pbExpr = eFalse;
  345.     if(!is_casematch(pPI->pTagName,"CONNECT")
  346. &&!is_casematch(pPI->pTagName,"SQLWEB-CONNECT"))
  347.     {
  348. MsgPush("sqlweb_connect:Can't Process %s",pPI->pTagName);
  349. return(eFalse);
  350.     }
  352.     if(ISeFalse(GetPIAValueREF(pPI,"NAME",&pName))) {
  353. if(ISeFalse(GetPIAValueREF(pPI,"SCHEMA",&pName))) {
  354.     /* If no name or schema; use default found in "ini" file 
  355.      */
  356.     RETeFalse(DbConnect(0,&gLDA),"Failed to CONNECT to Database");
  357.     return(eTrue);
  358. }
  359.     }
  360.     ExpandString(pName,&pBuf);
  361.     RemoveCharCodes(pBuf);
  362.     pName = pBuf;
  364.     RETeFalse(DbConnect(pName,&gLDA),"Failed to CONNECT to Database");
  365.     *pbExpr = eFalse;
  366.     return(eTrue);
  367. }
  369. static eBoolean_t
  370. iCp2CookList(
  371.  PI *pPI
  372. )
  373. {
  374.     PI *pPI2;
  375.     LIST *lTmpList = glCookList;
  378.     DebugHTML(__FILE__,__LINE__,5,"iCp2CookList(%s)", pPI->pTagName);
  380.     pPI2 = NewPI();
  381.     if(!pPI2){
  382. MsgPush("NewPI failed");
  383. return(eFalse);
  384.     }
  385.     /* (void)memset(pPI2,0,sizeof(PI));
  386.      */
  388.     pPI2->iLevel = pPI->iLevel;
  389.     pPI2->pTagName = DupBuf(pPI->pTagName);
  390.     pPI2->pPiContents = DupBuf(pPI->pPiContents);
  392.     pPI2->pTag = pPI->pTag;
  393.     pPI2->pPIContext = pPI->pPIContext;
  394. /* Works only if pPIContext does NOT BIND
  395.  */
  396.     pPI2->lPI = l_create("QUEUE");
  397.     pPI2->lPIA = l_create("INORDER"); /* Searchable... */
  398.     pPI2->iLineNbr = pPI->iLineNbr;
  400.     glPIAList = pPI2->lPIA;
  401.     RETeFalse(l_scan(pPI->lPIA,(PFI)iCp2PIAList)
  402.      ,"Failed to Duplicate PIA List"
  403.      );
  405.     /* Add self to current COOK List
  406.      */
  407.     RETeFalse(ENQ(glCookList,pPI2)
  408.      ,"Cp2CookList:ENQ Failed"
  409.      );
  410.     glCookList = pPI2->lPI;
  411.     RETeFalse(l_scan(pPI->lPI,(PFI)iCp2CookList)
  412.      ,"Failed to Duplicate Cooked List"
  413.      );
  414.     glCookList = lTmpList;
  415.     return(eTrue);
  416. }
  417. static eBoolean_t
  418. iCp2PIList(PI *pPI)
  419. {
  420.     DebugHTML(__FILE__,__LINE__,4,"iCp2PIList(%s)", pPI->pTagName);
  421.     RETeFalse(ENQ(glPIList,pPI)
  422.      ,"Cp2PIList:ENQ Failed"
  423.      );
  424.     return(eTrue);
  425. }
  426. static eBoolean_t
  427. iCp2PIAList(SYMBOL *pPIA)
  428. {
  429.     SYMBOL *pSym;
  430.     pSym = NewPIA();
  431.     if(!pSym){
  432. MsgPush("NewPIA failed");
  433. return(eFalse);
  434.     }
  435.     pSym->iType = pPIA->iType;
  436.     pSym->pName = DupBuf(pPIA->pName);
  437.     pSym->pValue = DupBuf(pPIA->pValue);
  438.     pSym->esDataType = pPIA->esDataType;
  440.     return(ENQ(glPIAList,pSym));
  441. }
  443. eBoolean_t
  444. sqlweb_include(PI *pPI
  445. ,eBoolean_t *pbExpr
  446. )
  447. {
  448.     char sFileName[BUFSIZ];
  449.     char *pFieldName
  450.       ,*pExpandedName
  451.       ,*pType
  452. ;
  453.     PAGE *pPage;
  455.     *pbExpr = eTrue;
  456.     if(!is_casematch(pPI->pTagName,"INCLUDE")
  457. && !is_casematch(pPI->pTagName,"SQLWEB-INCLUDE"))
  458.     {
  459. MsgPush("sqlweb_include:Can't Process %s",pPI->pTagName);
  460. return(eFalse);
  461.     }
  462.     /*
  463.     /* The INCLUDE Tag
  464.      */
  466.     /*
  467.     /* Get the NAME Attribute
  468.      */
  469.     if(ISeFalse(GetPIAValueREF(pPI,"NAME",&pFieldName))){
  470. /* Get the FILENAME Attribute, for backward compat.
  471.  */
  472. if(ISeFalse(GetPIAValueREF(pPI,"FILENAME",&pFieldName))){
  473.     /* Get the PAGENAME Attribute, for backward compat.
  474.      */
  475.     if(ISeFalse(GetPIAValueREF(pPI,"PAGENAME",&pFieldName))){
  476. DebugHTML(__FILE__,__LINE__,0,"Nothing to INCLUDE.");
  477. return(eTrue);
  478.     } else {
  479. DebugHTML(__FILE__,__LINE__,0
  480.     ,"Warning, replace old PAGENAME attribute with FILENAME");
  481.     }
  482. }
  483.     }
  484.     ExpandString(pFieldName,&pExpandedName);
  486.     /*
  487.     /* Pagename starts with '/' then it's based on SQLWEB_DOC_ROOT
  488.      */
  489.     if(*pExpandedName=='/') {
  490. char *pIncRoot;
  491. if(ISeFalse(GetSymbolValueREF("SQLWEB_DOC_ROOT",&pIncRoot))) {
  492.     DebugHTML(__FILE__,__LINE__,0
  493.      ,"Warning: SQLWEB_DOC_ROOT not found in sqlweb.ini."
  494.      );
  495.     return(eTrue);
  496. }
  497. sprintf(sFileName,"%s%s",pIncRoot,pExpandedName);
  498.     }
  499.     /*
  500.     /* else its relative to current file.
  501.      */
  502.     else {
  503. char *pDirName = strrchr(gpFileName,'/');
  504. if(pDirName) {
  505.     char *p = gpFileName;
  506.     int i;
  507.     for(i=0,p=gpFileName;(p<pDirName);i++,p++)
  508. sFileName[i]=*p;
  509.     sFileName[i++]='/';
  510.     sFileName[i++]=0;
  511.     strcat(sFileName,pExpandedName);
  512. } else {
  513.     sprintf(sFileName,"./%s",pExpandedName);
  514. }
  515.     }
  517.     /*
  518.     /* Get the FILETYPE Attribute
  519.      */
  520.     if(ISeFalse(GetPIAValueREF(pPI,"TYPE",&pType))){
  521. if(ISeFalse(GetPIAValueREF(pPI,"FILETYPE",&pType))){
  522.     pType="SQLWEB";
  523. }
  524.     }
  526.     DebugHTML(__FILE__,__LINE__,3,"Loading: %s (type=%s)",sFileName,pType);
  527.     if(is_casematch(pType,"SQLWEB")) {
  528. if(ISeFalse(LoadHTML(sFileName,&pPage))){
  529.     DebugHTML(__FILE__,__LINE__,0
  530.      ,"INCLUDE: Failed to load html: %s", sFileName
  531.      );
  532.     return(eTrue);
  533. }
  534. /*
  535. /* Now that the new page is loaded use its 
  536. /* PI-List as this PI's PI-List
  537.  */
  538. pPI->lPI = pPage->lPI;
  539. return(eTrue);
  540.     }
  541.     if(ISeFalse(LoadTEXT(sFileName,pType,pPI))){
  542. DebugHTML(__FILE__,__LINE__,0
  543.  ,"INCLUDE: Failed to load %s file: %s"
  544.  ,pType
  545.  ,sFileName
  546.  );
  547. return(eTrue);
  548.     }
  549.     return(eTrue);
  550. }
  552. /*
  553. /* overrides the default IF processing depending on DB...
  554.  */
  555. eBoolean_t
  556. sqlweb_if2(
  557.  PI *pPI
  558. ,eBoolean_t *pbExpr
  559. )
  560. {
  561.     char *pExpr, *pBuf;
  563.     *pbExpr = eFalse;
  565.     if(!is_casematch(pPI->pTagName,"IF2")
  566. && !is_casematch(pPI->pTagName,"SQLWEB-IF2")
  567. && !is_casematch(pPI->pTagName,"SQLWEB-SYMBOL")
  568. && !is_casematch(pPI->pTagName,"SYMBOL"))
  569.     {
  570. MsgPush("sqlweb_if2:Can't Process %s",pPI->pTagName);
  571. return(eFalse);
  572.     }
  574.     /*
  575.     /* Process IF2 Tag
  576.      */
  577.     (*pbExpr) = eFalse;
  579.     if(ISeTrue(GetPIAValueREF(pPI,"EXPR",&pExpr))) {
  580. if(ISeTrue(GetPIAValueREF(pPI,"EVAL",&pBuf))
  581.     && (is_casematch(pBuf,"TRUE")) )
  582. {
  583.     ExpandString(pExpr,&pBuf);
  584.     RemoveCharCodes(pBuf);
  585.     pExpr = pBuf;
  586. }
  588. DebugHTML(__FILE__,__LINE__,3,"Expr="%s"",pExpr);
  590. RETeFalse2(ParseIf(pExpr,pbExpr)
  591.   ,"Failed to expand IF:%s"
  592.   ,pExpr
  593.   );
  595. ChopPI(pPI,(*pbExpr));
  596. /* Chop Children IFF expression is FALSE
  597.  */
  599.     } /* Got the "Required EXPR" symbol... */
  600.     return(eTrue);
  601. }
  603. eBoolean_t
  604. sqlweb_host(
  605.  PI *pPI
  606. ,eBoolean_t *pbExpr
  607. )
  608. {
  609.     char sBuf[MAX_TOKVAL_SIZE]
  610. ,*p;
  611.     char *pCmd, *pOutput, *pBuf;
  612.     int c, iCharCount, iStatus;
  613.     FILE *pF;
  615.     DebugHTML(__FILE__,__LINE__,3,"Host");
  616.     *pbExpr = eTrue;
  618. #ifdef WIN32
  619.     MsgPush("SQLweb/NT: Doesn't Support HOST");
  620.     return(eTrue);
  621. #endif
  623. #ifndef WIN32
  624.     if(!is_casematch(pPI->pTagName,"HOST")
  625. && !is_casematch(pPI->pTagName,"SQLWEB-HOST"))
  626.     {
  627. MsgPush("sqlweb_host:Can't Process %s",pPI->pTagName);
  628. return(eFalse);
  629.     }
  630.     /*
  631.     /* Get the CMD Attribute
  632.      */
  633.     if(ISeFalse(GetPIAValueREF(pPI,"CMD",&pCmd))){
  634. DebugHTML(__FILE__,__LINE__,1,"W:No "CMD" Attribute");
  635. return(eTrue);
  636.     }
  637.     ExpandString(pCmd,&pBuf);
  638.     pCmd = pBuf;
  639.     DebugHTML(__FILE__,__LINE__,3,"Running: (%s)",pCmd);
  641.     /*
  642.     /* Get the OUTPUT Attribute
  643.      */
  644.     if(ISeTrue(GetPIAValueREF(pPI,"OUTPUT",&pOutput))
  645. && is_casematch(pOutput,"FALSE"))
  646.     {
  647. *pbExpr = eFalse;
  648.     }
  650.     pF = popen(pCmd,"r");
  651.     if(!pF){
  652. MsgPush("sqlweb_host:Can't popen(%s,"r")", pCmd);
  653. return(eFalse);
  654.     }
  656.     DebugHTML(__FILE__,__LINE__,3,"Open'd(%x)",pF);
  657.     for( c=fgetc(pF), iCharCount=0, p=sBuf
  658. ;c != EOF
  659. ;c=fgetc(pF), iCharCount++ )
  660.     {
  661. if(iCharCount<sizeof(sBuf))
  662.     *p++ = (char)c;
  663.     }
  664.     *p = 0;
  665.     DebugHTML(__FILE__,__LINE__,3,"Read %d chars",iCharCount);
  666.     iStatus = pclose(pF);
  667.     DebugHTML(__FILE__,__LINE__,3,"popen:%d:%d",iStatus,c);
  669.     if(sBuf[0]) {
  670. FreeBuf(pPI->pPiContents);
  671. pPI->pPiContents= DupBuf(sBuf);
  672. SELSym("SQLWEB_HOST_OUTPUT",pPI->pPiContents);
  673.     }
  674.     return(eTrue);
  675. #endif
  676. }
  678. /*
  679. /* This one is not yet ready for prime time-- it would be best
  680. /* to run "CookPI" to an alternate buffer, and then run
  681. /* LoadHTML on the alternate buffer to reparse the output
  682. /* -- that would be a "read" EVAL
  683. /*
  684. /* This one just DON'T WORK!
  685.  */
  686. eBoolean_t
  687. sqlweb_eval(
  688.  PI *pPI
  689. ,eBoolean_t *pbExpr
  690. )
  691. {
  692.     eBoolean_t b = gbBufferOutput;
  694.     DebugHTML(__FILE__,__LINE__,0,"EVAL:Pass1n");
  695.     gbBufferOutput=eTrue;
  696.     if(ISeFalse(l_scan(pPI->lPI,(PFI)CookPI))) {
  697. MsgPush("EVAL: pass1 failed");
  698. return(eTrue);
  699.     }
  701.     DebugHTML(__FILE__,__LINE__,0,"EVAL:Pass2n");
  702.     gbBufferOutput=b;
  703.     if(ISeFalse(l_scan(pPI->lPI,(PFI)CookPI))) {
  704. MsgPush("EVAL: pass1 failed");
  705. return(eTrue);
  706.     }
  708.     *pbExpr = eTrue;
  709.     return(eTrue);
  710. }
  712. eBoolean_t
  713. sqlweb_demo(
  714.  PI *pPI
  715. ,eBoolean_t *pbExpr
  716. )
  717. {
  718.     pPI->pPiContents="This is a Demo, ::HOME = ':home', this is only a demo";
  719.     *pbExpr = eTrue;
  720.     return(eTrue);
  721. }
  723. static eBoolean_t
  724. ChopPI(PI *pPI,eBoolean_t bExpr)
  725. {
  726.     DebugHTML(__FILE__,__LINE__,3,"ChopPI(%s:%s %d Children)"
  727.     ,pPI->pTagName
  728.     ,ISeFalse(bExpr)?"CHOP":"KEEP"
  729.     ,pPI->lPI? l_size(pPI->lPI): -1
  730.     );
  732.     if(ISeFalse(bExpr)) {
  733. if(ISeTrue(gbBufferOutput)){
  734.     pPI->lPI = l_create("QUEUE");
  735.     pPI->pPiContents = DupBuf(0);
  736. } else {
  737.     FreePI(pPI);
  738. }
  739.     }
  740.     DebugHTML(__FILE__,__LINE__,5,"ChopPI:Done.");
  741.     return(eTrue);
  742. }